in reply to XML to CGI form

Darn! I was just trying to do that!

You might remember one of my pet projects, a Module Reviews (again!)

So I was just trying to write a simple CGI that would do this, and I came up with this simple way to write a template to generate the form:

<conf>
  <category id="usage" html="select" multiple="multiple">
    <name>Usage</usage>
    <option id="read">Read Docs</option>
    <option id="tested">Tested</option>
    <option id="rejected">Rejected</option>
    <option id="used">Used</>
    <option id="used_a_lot">Used a lot</option>
  </category>
  <category id="quality" html="radio" type="number" range="0-5">
    <name>Quality</name>
  </category>
  <category id="documentation" html="radio" type="number" range="0-5">
    <nameDocumentaion></name>
  </category>
  <category id="support" html="radio" type="number" range="0-5" na="ye
+s">
    <name>Support</name>
  </category>
</conf>

[download]

Now I plan to use this config file to both generate the input form and then to drive the generation of the XML created when the form is used.

Does this makes sense? And is this close to what you want to do?

I'll have the code later, sorry, you just caught me in the act of writing it ;--(

Replies are listed 'Best First'.
RE: RE: XML to CGI form
by BastardOperator (Monk) on Nov 03, 2000 at 21:06 UTC
    Yes, this is very close to what I want to do. Although data for multiple selects and the like could potentially be pulled from database tables. The big question is, how will you translate that to html? I'd like to allow them to specify a font or whatever, but in doing that it gets so close to being the actual html form, that I may as well have them write it in html :). Will you parse it yourself and translate? I'd like to know if there is a way to do that without parsing it completely yourself.

    Just for the sake of filling up vroom's database :), let me show you what I have so far (P.S. this describes a form, but it also tries to describe a table structure, both of which refer to adding an entry which is a computer system). This was done with the intent of parsing it myself to produce appropriate html, but again, if there's a way that I could rewrite/retag everything and use some module to produce the output, I'd love that.
    <?xml version="1.0" standalone="yes"?>

<!-- Everyone gets an id for free, you must have a unique "subject" ro
+w!!! -->
<!-- i.e. for every addition to a type, an id will be assigned -->
<!-- i.e. everything must have a row named subject (VARCHAR(128) max) 
+-->
<!-- which will contain the hostname or whatever you like, but it -->
<!-- _must_ be named "subject" -->

<!-- Stuff to think about -->
<!-- <macro type="sql">SELECT * from foo</macro> -->
<!-- <macro type="perl">sub { print 4 * 50 }</macro> -->
<!-- select id,subject from (whatever) where something="stuff" -->
<!-- <target>id:subect:something="stuff"</target> ? -->
<!-- <name>file</name><datatype>blob</datatype><style>file_upload</sty
+le> -->

<!-- ********** START SYSTEM DEFINITION ********** -->
<form> 
    <name>System</name>
    <post_notes_to>1</post_notes_to>
    <email_notes>1</email_notes>
    <row> 
        <element>
            <label>Hostname</label>
            <name>subject</name>
            <required>1</required>
            <validchars>[\w\.-_]+</validchars>
            <datatype>varchar</datatype>
            <size>25</size>
        </element>
    </row>
    <row>
        <element>
            <label>Vendor/Model</label>
            <name>sysdesc</name>
            <required>1</required>
            <validchars>[\w\.-_]+</validchars>
            <datatype>varchar</datatype>
            <size>64</size>
            <default>Sun UE6500</default>
            <instructions>(i.e. Sun UE6500)</instructions>
        </element>
    </row>
    <row>
        <element>
            <label>Serial#</label>
            <name>serialnum</name>
            <required>0</required>
            <validchars>[\w\.-_:]+</validchars>
            <datatype>varchar</datatype>
            <size>32</size>
        </element>
    </row>
    <row>
        <element>
            <label>Maint Contract</label>
            <name>maint</name>
            <required>0</required>
            <datatype>varchar</datatype>
            <style>pulldown</style>
            <title>Select Contract...</title>
            <info_from>Maintenance</info_from>
            <target>id:subject</target>
        </element>
    </row>
    <row>
        <element>
            <label>Mac Address</label>
            <name>mac</name>
            <required>0</required>
            <validchars>[\w:]+</validchars>
            <datatype>varchar</datatype>
            <size>32</size>
        </element>
    </row>
    <row>
        <element>
            <label>OS Level</label>
            <name>oslevel</name>
            <required>0</required>
            <validchars>[\w\.]+</validchars>
            <datatype>varchar</datatype>
            <size>32</size>
            <default>SunOS 5.8</default>
        </element>
    </row>
    <row>
        <element>
            <label>IP Address</label>
            <name>ipaddr1</name>
            <required>0</required>
            <validchars>[\d/:\.]+</validchars>
            <datatype>varchar</datatype>
            <size>32</size>
        </element>
    </row>
    <row>
        <element>
            <label>Contacts</label>
            <name>icontacts</name>
            <required>0</required>
            <datatype>varchar</datatype>
            <style>multiple</style>
            <size>3</size>
            <title>==Internal Contacts==</title>
            <info_from>Internal Contacts</info_from>
            <target>id:subject</target>
        </element>
        <element>
            <name>vcontacts</name>
            <required>0</required>
            <datatype>varchar</datatype>
            <style>multiple</style>
            <size>3</size>
            <title>==Vendor Contacts==</title>
            <info_from>Vendor Contacts</info_from>
            <target>id:subject</target>
        </element>
    </row>
    <row>
        <element>
            <label>Description</label>
            <name>description</name>
            <required>0</required>
            <datatype>text</datatype>
            <style>textarea</style>
            <size>45w:10h</size>
        </element>
    </row>
    <row>
        <element>
            <label>Last Modified</label>
            <name>date</name>
            <required>0</required>
            <datatype>date</datatype>
        </element>
    </row>
</form>

    [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom