#!/usr/local/bin/perl5

# General purpose simple form, by Mordechai T. Abzug
# Copyright 9 Oct 1997

$title = qq(Barrueco Masterclass Registration Form);
$admin = qq(jcovey\@smart.net);
#$admin = qq(webmaster\@barrueco.com);
$adminHREF=qq(<a href="http://pobox.com/~jeff.covey">
              jeff covey </a> \n);
$mail_subject="Barrueco Masterclass Registration";
$mail_results_to = qq($admin);
$homeHREF=qq(<a href="http://www.barrueco.com">
             The Manuel Barrueco Homepage </a> \n);

$admin_footer=qq(<p> <hr> This page maintained by: <br> \n
		 ${adminHREF}, \n
		 who can be emailed as \n
		 <a href="mailto:$admin"> <i> $admin </> </a>);


#format for table entries:
# user visible label, type of field, required? (bool), fieldname, 
# type-dependent arg1, type-dependent arg2. .. 

# args for types:
# textfield: (none)
# checkbox:  checked (bool), value when checked, label

@table=(


    ["", "hr", 0, ""],
    ["", "h3", 0, "Personal info"],
    ["Your Name", "textfield", 1, "name"],
    ["Your email adress", "textfield", 1, "email"],
    ["What days/times do you prefer?", "textfield", 1, "shedule-when"],
    

    ["", "hr", 0, ""],
    ["", "h3", 0, "Basic computer info"],
    ["CPU type", "popup_menu", 1, "CPU-type", 
     ["", "386", "486", "586/pentium", "686/pentium pro", 
      "multi-processor", "other"], ""],
    ["Bus type", "popup_menu", 1, "Bus-type",
     ["", "ISA", "EISA", "MCA", "VESA", "PCI", "other"], ""],
    ["Processor speed", "textfield", 1, "processor-speed"],
    ["Amount of memory", "textfield", 1, "memory"],
    ["Case", "popup_menu", 1, "Case",
     ["", "desktop", "minitower", "midtower", "tower", "laptop", "other"], ""],
    ["Which OS/distribution do you want?", "popup_menu", 1, "distribution",
     ["", "Redhat (linux)", "Slackware (linux)", "Debian (linux)", "FreeBSD",
      "other"], ""],
    ["Please detail any 'others'", "textarea", 0, "basic-others", "", 3, 50],


    ["", "hr", 0, ""],
    ["", "h3", 0, "Floppy disks"],
    ['Do you have a 3 1/2" floppy drive?', "checkbox", 0, "3-1/2-floppy?",
     "", "yes", ""],
    ['Do you have a 5 1/4" floppy drive?', "checkbox", 0, "5-1/4-floppy?",
     "", "yes", ""],


    ["", "hr", 0, ""],
    ["", "h3", 0, "Hard disks"],
    ["What is your first hard disk (necessary for linux)?", "popup_menu", 1, 
     "disk-1",
     ["", "NONE", "IDE", "EIDE", "SCSI"], ""],
    ["What is your second hard disk (can be NONE)?", "popup_menu", 1, "disk-2",
     ["", "NONE", "IDE", "EIDE", "SCSI"], ""],
    ["What is your third hard disk (can be NONE)?", "popup_menu", 1, "disk-3",
     ["", "NONE", "IDE", "EIDE", "SCSI"], ""],
    ["What is your fourth hard disk (can be NONE)?", "popup_menu", 1, "disk-4",
     ["", "NONE", "IDE", "EIDE", "SCSI"], ""],
    ["", "b", 0,
     "You need an empty partition of at least 50 MB to have a useful system. ".
     "We can help you repartition if you have a drive with the space. ".
     "But make sure to backup any data before you come. "],
    ["How much of your spare space are you giving to Linux?", "textfield", 1,
     "spare-disk-space-for-linux"],


    ["", "hr", 0, ""],
    ["", "h3", 0, "CD-ROMs, tape drives"],
    ["What kind of CD-ROM drive do you have (can be NONE)?", "popup_menu", 1,
     "CD-ROM", ["", "NONE", "ATAPI", "SCSI", "other"], ""],
    ["What type of tape drive do you have (can be NONE)?", "popup_menu", 1, 
     "tape-type", ["", "NONE", "ATAPI", "SCSI", "floppy", "other"], ""],
    ["Do you have a secondary floppy controller for your tape drive?", 
     "checkbox", 0, "secondary-floppy-controller?", "", "yes", ""],
    ["Please detail any 'others'", "textarea", 0, "CD-tape-others", "", 3, 50],



    ["", "hr", 0, ""],
    ["", "h3", 0, "Other removable media"],
    ["What kind of other removable media do you have (can be NONE)?", 
     "popup_menu", 1,  "removable-media",
     ["", "NONE", "zip parallel", "zip SCSI", "syquest parallel",
      "syquest SCSI", "LE-120", "other"], ""],

    ["", "hr", 0, ""],
    ["", "h3", 0, "Monitor & video"],
    ["What kind of monitor do you have?", "textfield", 1, "monitor"],
    ["What is the maximum resolution supported by your monitor?",
     "textfield", 1, "monitor-resolution"],
    ["What is your monitor's vertical refresh rate (could be a range) ".
     "according to its manual?", "textfield", 1, "monitor-vertical-rate"],
    ["What is your monitor's horizontal refresh rate (could be a range) ".
     "according to its manual?", "textfield", 1, "monitor-horizontal-rate"],
    ["Which model videocard do you have (preferably including the chipset)?",
     "textfield", 1, "videocard-model"],
    ["How much memory does your video card have, and what type is it (ie. ".
     "2 meg DRAM)?", "textfield", 1, "video-memory"],


    ["", "hr", 0, ""],
    ["", "h3", 0, "Mouse"],
    ["What does your mouse interface with (NONE if no mouse)?", 
     "popup_menu", 1, "mouse-interface", 
     ["", "NONE", "bus", "COM1", "COM2", "COM3", "COM4", "other"], ""],
    ["How many buttons does your mouse have?",
     "popup_menu", 1, "mouse-buttons", ["", 2, 3], ""],
    ["What protocol does your mouse speak?", "popup_menu", 1, "mouse_protocol",
     ["", "Wacom tablet", "PS/2", "Logitech", "MM series", 
      "Mouse-Systems-Compatible", "Microsoft", "Mouseman"], ""],
    


    ["", "hr", 0, ""],
    ["", "h3", 0, "Other"],
    ["Which SCSI controller do you have (NONE if none)?", "textfield", 1,
     "SCSI-controller"],
    ["Which ethernet card do you have (include 10base2 or 10baseT; NONE for ".
     "none)?", "textfield", 1, "ethernet-card"],
    ["Which sound card do you have (NONE for none)?  ".
     "What IO/IRQ/DMA does it use?", 
     "textfield", 1, "sound-card"],
    ["Where is your modem (NONE if none)?", "popup_menu", 1, "modem", 
     ["", "NONE", "COM1", "COM2", "COM3", "COM4"], ""],
    ["Is your modem external or internal?", "popup_menu", 0, "modem-internal",
     ["", "NONE", "internal", "external"], ""],
    ["Would you like help setting up your system for UMBC PPP dial-in?",
     "checkbox", 0, "UMBC-dial-in-help-wanted?"],
    ["Does your keyboard use a round connector (DIN-5) or PS/2 connector?",
     "popup_menu", 1, "keyboard-connector", ["", "NONE", "DIN-5", "PS/2"], ""],
    ["Do you have any other interesting hardware?", "textarea", 0, 
     "other-hardware", "", 3, 50],


    ["", "hr", 0, ""],
    ["", "h3", 0, "Spare slots"],
    ["", "b", 0, "We may need to temporarily install either an ethernet card ".
     "or a SCSI adapter in your machine, so we need to know how many spare ".
     "slots you have (NONE for none)."],
    ["How many ISA spares?", "textfield", 1, "ISA-spare"],
    ["How many EISA spares?", "textfield", 1, "EISA-spare"],
    ["How many VESA spares?", "textfield", 1, "VESA-spare"],
    ["How many PCI spares?", "textfield", 1, "PCI-spare"],
    ["How many other (describe) spares?", "textfield", 0, "other-spare"],


    ["", "hr", 0, ""],
    ["", "h3", 0, "Spare slots"],
    ["Do you have any comments about this process?", "textarea", 0,
     "comments", "", 3, 50],


    ["", "hr", 0, ""],


    );


do "form-engine.pl";

sub define_vars {


    $header=<<EOheader;
EOheader


    $intro=<<EOintro; 
<p> Welcome to the UMBC Linux User's Group InstallFest Registration page.
We ask that people interested in the InstallFest register first with a 
hardware description, for several reasons: (1) so we'll know what <b>we</b> 
need to bring; (2) so you'll have all the information about your computer 
handy during the 'fest; and (3) so we'll have an idea of when to schedule.
EOintro

    $footer=<<EOfooter;

<p> Thanks for filling out the form.
EOfooter


    $successful_submission=<<EOsuccess;
<p> Thanks!
<p> I'll forward that on to the people who should get it.
Hope to see you at the InstallFest!
EOsuccess

    $failed_submission_part1=<<EOfailure1;
<p> Oops.
<p> Submission failed because you left out some required data:
EOfailure1

    $failed_submission_part2=<<EOfailure2
<p> Please fill in the data below.  You might want to use your browser's 
search feature to locate what you need to fill in.
EOfailure2

}