#!/perl # ----------------------------------------------------------------------------- # # Title: 1999 IDEAL NATIONAL CONFERENCE REGISTRATION FORM # # ----------------------------------------------------------------------------- MAIN: { $b=1; $d=1; $ENV{'DWBHOME'} = ("/opt/pub/dwb/"); # Read in all the variables set by the form if (&ReadParse(*input)) { &ProcessForm; # Process the information entered on the form } else { # Put the form up on the screen for input &PrintForm; } } # ============================================================================= # The subroutine will print the form on the screen # for the user to enter data into. sub PrintForm { print "Content-type: text/html\n\n"; print <<'ENDOFTEXT'; 1999 IDEAL National Conference Registration Form

REGISTRATION FORM




IDEAL 1999 NATIONAL CONFERENCE
"MOVING TOWARD THE MILLENIUM - ACCENTUATING ABILITIES"

May 13-15, 1999
King of Prussia, PA

REGISTRATION PERIOD : 01/26/1999 - 5/10/1999
CONFERENCE HOT LINE : (630) 979-2455

Please refer to the IDEAL Conference Information Web Page for full conference information.

Welcome to the 1999 IDEAL National Conference Registration web page. Please enter all requested information and click on the "submit" button when finished. You will receive a confirmation number automatically as soon as the data is entered in the database. A confirmation will also be e-mailed if you indicate an e-mail address below. If you want a confirmation via paper copy, please indicate this choice in the comment section. This form works best if viewed on a full screen.

Please note that your name, phone number, ideal membership, banquet attendance and payment method are required fields and MUST be filled out on this form.

    PARTICIPANT INFORMATION

    Last Name First Name
    Email Address (handle@lucent.com)
    Work Telephone Number (xxx-yyy-zzzz) HRID No. (Badge)


    Company :  

    Street Address Room Number
    City State  Zip Code


    Special needs :
      
    Sign Language Interpreter ?Yes No

    Wheelchair/Scooter Access ? Yes No

    Room Near Elevator/Stairs ? Yes No

    Other Needs Not Listed Above ? Yes No


    Are You an EBP Representative? Yes, Which EBP ?  
    No

    Are You attending the Friday evening banquet ? Yes No
    Number of banquet guests beside yourself (the banquet guest fee is $40.00 per guest)

    Are You an IDEAL member today ? Yes No

    CONFERENCE FEES

    Type of Registration Regular Registration Late Registration
    01/26/98 to 4/09/98 04/10/98 to 05/10/98
    Member $500 $550
    Non-Member $550 $600


    Note: Refund requests will be accepted up to May 2, 1999.
    A 10% service fee will be deducted from all refunds to offset bank charges .
    To request a refund you must call Dave Yost at (630) 979-2455.



    PAYMENT INFORMATION
    Your conference registration fees may be paid by Procurement card (Lucent Employees Only), personal American Express, Visa or Mastercard, or personal check. Discover cards will NOT be accepted. Guest charges must be paid by personal American Express, Visa or Mastercard, or by personal check (Procurement card use is not allowed for Guest fees). Returned personal checks will be subject to a $25 processing fee.

    Please indicate your method of payment for your conference registration fees:

    If paying by personal check, send to:
    Ralph Carlson
    Lucent Technologies
    2600 Warrenville Road Room 32P15
    Lisle, IL 60532


    Credit Card or Procurement Card :
    Name as it appears on the card:
    Credit Card No: - - - (Please double check for accuracy)
    Expiration Date (mm-yy):
    HRID of holder (if procurement card) :
    Billing Address of Holder :

    Street Address
    City State   Zip Code




    Please indicate your method of payment for your Guest's Fees (if any):

    If paying by personal check, send to:
    Ralph Carlson
    Lucent Technologies
    2600 Warrenville Road Room 32P15
    Lisle, IL 60532


    Credit Card Information :
    Name as it appears on the card:
    Credit Card No: - - - (Please double check for accuracy)
    Expiration Date (mm-yy):
    Billing Address of Holder :

    Street Address
    City State Zip Code





    WORKSHOP SELECTIONS
    First Choice Second Choice
        FRIDAY MORNING SESSION
    First Choice Second Choice
        FRIDAY AFTERNOON SESSION
    First Choice Second Choice
        SATURDAY MORNING SESSION
    First Choice Second Choice
        SATURDAY AFTERNOON SESSION

    Additional Comments :




    Last Modified on January 26, 1999. Comments are welcome at
    guzdziol@lucent.com
    ENDOFTEXT } # ============================================================================= # This subroutine will process the data put # on the form by the user and present the results # in a html format. sub ProcessForm { local ($syscmd, $lname, $fname, $email, $phone, $hrid, $street, $roomno, $city, $state, $zip, $specneed1, $specneed2, $specneed3, $specneed5, $spnd5text, $idealmem, $ebprep, $ebp, $banquet, $banqguest, $paymeth1, $pay1name, $pay1no1, $pay1no2, $pay1no3, $pay1no4, $pay1exp, $pay1prhr, $p1prstreet, $p1prcity, $p1prstate, $p1przip, $paymeth2, $pay2name, $pay2no1, $pay2no2, $pay2no3, $pay2no4, $pay2exp, $p2prstreet, $p2prcity, $p2prstate, $p2przip, $selwork1a, $selwork2a, $selwork3a, $selwork4a, $selwork1b, $selwork2b, $selwork3b, $selwork4b, $comments, $company, $notlisted); if ($input{'lname'} eq ''){ $blr[$b] = "1"; $b++; $lname = " "; } else { $lname = $input{'lname'}; $lname =~ tr/a-z/A-Z/ } if ($input{'fname'} eq ''){ $blr[$b] = "2"; $b++; $fname = " "; } else { $fname = $input{'fname'}; $fname =~ tr/a-z/A-Z/ } if ($input{'email'} eq ''){ $email = " "; } else { $email = $input{'email'}; } if ($input{'phone'} eq ''){ $blr[$b] = "3"; $b++; $phone = " "; } else { $phone = $input{'phone'}; } if ($input{'hrid'} eq ''){ $hrid = " "; } else { $hrid = $input{'hrid'}; } if ($input{'street'} eq ''){ $street = " "; } else { $street = $input{'street'}; $street =~ tr/a-z/A-Z/ } if ($input{'roomno'} eq ''){ $roomno = " "; } else { $roomno = $input{'roomno'}; $roomno =~ tr/a-z/A-Z/ } if ($input{'city'} eq ''){ $city = " "; } else { $city = $input{'city'}; $city =~ tr/a-z/A-Z/ } if ($input{'state'} eq ''){ $state = " "; } else { $state = $input{'state'}; } if ($input{'zip'} eq ''){ $zip = " "; } else { $zip = $input{'zip'}; } if ($input{'specneed1'} eq ''){ $specneed1 = " "; } else { $specneed1 = $input{'specneed1'}; } if ($input{'specneed1'} eq '1'){ $specneed1 = "yes"; $specneed1a = "need sign language interpreter"; } else { $specneed1 = "no"; } if ($input{'specneed2'} eq ''){ $specneed2 = " "; } else { $specneed2 = $input{'specneed2'}; } if ($input{'specneed2'} eq '1'){ $specneed2 = "yes"; $specneed2a = "need wheelchair/scooter accessible facilities"; } else { $specneed2 = "no"; } if ($input{'specneed3'} eq ''){ $specneed3 = " "; } else { $specneed3 = $input{'specneed3'}; } if ($input{'specneed3'} eq '1'){ $specneed3 = "yes"; $specneed3a = "need room near elevator"; } else { $specneed3 = "no"; } if ($input{'specneed5'} eq ''){ $specneed5 = " "; } else { $specneed5 = $input{'specneed5'}; } if ($input{'specneed5'} eq '1'){ $specneed5 = "yes"; $specneed5a = "other need"; } else { $specneed5 = "no"; } if ($input{'spnd5text'} eq ''){ $spnd5text = " "; } else { $spnd5text = $input{'spnd5text'}; } if ($input{'idealmem'} eq ''){ $blr[$b] = "4"; $b++; $idealmem = " "; } else { $idealmem = $input{'idealmem'}; } if ($input{'idealmem'} eq '1'){ $idealmem = "yes"; } else { $idealmem = "no"; } if ($input{'ebprep'} eq ''){ $ebprep = " "; } else { $ebprep = $input{'ebprep'}; } if ($input{'ebprep'} eq '1'){ $ebprep = "yes"; } else { $ebprep = "no"; } if ($input{'ebp'} eq ''){ $ebp = " "; } else { $ebp = $input{'ebp'}; } if ($input{'banquet'} eq ''){ $blr[$b] = "5"; $b++; $banquet = " "; } else { $banquet = $input{'banquet'}; } if ($input{'banquet'} eq '1'){ $banquet = "yes"; } else { $banquet = "no"; } if ($input{'banqguest'} eq ''){ $banqguest = "0"; } else { $banqguest = $input{'banqguest'}; } if ($input{'paymeth1'} eq ''){ $blr[$b] = "6"; $b++; $paymeth1 = " "; } else { $paymeth1 = $input{'paymeth1'}; } if ($input{'pay1name'} eq ''){ $pay1name = " "; } else { $pay1name = $input{'pay1name'}; $pay1name =~ tr/a-z/A-Z/ } if ($input{'pay1no1'} eq ''){ $pay1no1 = " "; } else { $pay1no1 = $input{'pay1no1'}; } if ($input{'pay1no2'} eq ''){ $pay1no2 = " "; } else { $pay1no2 = $input{'pay1no2'}; } if ($input{'pay1no3'} eq ''){ $pay1no3 = " "; } else { $pay1no3 = $input{'pay1no3'}; } if ($input{'pay1no4'} eq ''){ $pay1no4 = " "; } else { $pay1no4 = $input{'pay1no4'}; } if ($input{'pay1exp'} eq ''){ $pay1exp = " "; } else { $pay1exp = $input{'pay1exp'}; } if ($input{'pay1prhr'} eq ''){ $pay1prhr = " "; } else { $pay1prhr = $input{'pay1prhr'}; } if ($input{'p1prstreet'} eq ''){ $p1prstreet = " "; } else { $p1prstreet = $input{'p1prstreet'}; $p1prstreet =~ tr/a-z/A-Z/ } if ($input{'p1prcity'} eq ''){ $p1prcity = " "; } else { $p1prcity = $input{'p1prcity'}; $p1prcity =~ tr/a-z/A-Z/ } if ($input{'p1prstate'} eq ''){ $p1prstate = " "; } else { $p1prstate = $input{'p1prstate'}; $p1prstate =~ tr/a-z/A-Z/ } if ($input{'p1przip'} eq ''){ $p1przip = " "; } else { $p1przip = $input{'p1przip'}; } if ($input{'paymeth2'} eq ''){ $paymeth2 = " "; } else { $paymeth2 = $input{'paymeth2'}; } if ($input{'pay2name'} eq ''){ $pay2name = " "; } else { $pay2name = $input{'pay2name'}; $pay2name =~ tr/a-z/A-Z/ } if ($input{'pay2no1'} eq ''){ $pay2no1 = " "; } else { $pay2no1 = $input{'pay2no1'}; } if ($input{'pay2no2'} eq ''){ $pay2no2 = " "; } else { $pay2no2 = $input{'pay2no2'}; } if ($input{'pay2no3'} eq ''){ $pay2no3 = " "; } else { $pay2no3 = $input{'pay2no3'}; } if ($input{'pay2no4'} eq ''){ $pay2no4 = " "; } else { $pay2no4 = $input{'pay2no4'}; } if ($input{'pay2exp'} eq ''){ $pay2exp = " "; } else { $pay2exp = $input{'pay2exp'}; } if ($input{'p2prstreet'} eq ''){ $p2prstreet = " "; } else { $p2prstreet = $input{'p2prstreet'}; $p2prstreet =~ tr/a-z/A-Z/ } if ($input{'p2prcity'} eq ''){ $p2prcity = " "; } else { $p2prcity = $input{'p2prcity'}; $p2prcity =~ tr/a-z/A-Z/ } if ($input{'p2prstate'} eq ''){ $p2prstate = " "; } else { $p2prstate = $input{'p2prstate'}; } if ($input{'p2przip'} eq ''){ $p2przip = " "; } else { $p2przip = $input{'p2przip'}; } if ($input{'selwork1a'} eq ''){ $selwork1a = " "; } else { $selwork1a = $input{'selwork1a'}; } if ($input{'selwork2a'} eq ''){ $selwork2a = " "; } else { $selwork2a = $input{'selwork2a'}; } if ($input{'selwork3a'} eq ''){ $selwork3a = " "; } else { $selwork3a = $input{'selwork3a'}; } if ($input{'selwork4a'} eq ''){ $selwork4a = " "; } else { $selwork4a = $input{'selwork4a'}; } if ($input{'selwork1b'} eq ''){ $selwork1b = " "; } else { $selwork1b = $input{'selwork1b'}; } if ($input{'selwork2b'} eq ''){ $selwork2b = " "; } else { $selwork2b = $input{'selwork2b'}; } if ($input{'selwork3b'} eq ''){ $selwork3b = " "; } else { $selwork3b = $input{'selwork3b'}; } if ($input{'selwork4b'} eq ''){ $selwork4b = " "; } else { $selwork4b = $input{'selwork4b'}; } if ($input{'comments'} eq ''){ $comments = " "; } else { $comments = $input{'comments'}; } if ($input{'company'} eq ''){ $company = " "; } else { $company = $input{'company'}; } if ($company eq 'Lucent'){ $conum=0; } else { $conum=1; } if ($pay1name eq ' '){ if ($paymeth1 eq 'Personal_Check' or $paymeth1 eq 'None'){ } else { $blr[$b] = "7"; $b++; } } if ($pay1no1 eq ' '){ if ($paymeth1 eq 'Personal_Check' or $paymeth1 eq 'None'){ } else { $blr[$b] = "8"; $b++; } } if ($pay1no2 eq ' '){ if ($paymeth1 eq 'Personal_Check' or $paymeth1 eq 'None'){ } else { $blr[$b] = "9"; $b++; } } if ($pay1no3 eq ' '){ if ($paymeth1 eq 'Personal_Check' or $paymeth1 eq 'None'){ } else { $blr[$b] = "10"; $b++; } } if ($pay1no4 eq ' '){ if ($paymeth1 eq 'Personal_Check' or $paymeth1 eq 'None'){ } else { $blr[$b] = "11"; $b++; } } if ($pay1exp eq ' '){ if ($paymeth1 eq 'Personal_Check' or $paymeth1 eq 'None'){ } else { $blr[$b] = "12"; $b++; } } if ($banqguest eq '0'){ } else { if ($paymeth2 eq ' '){ $blr[$b] = "13"; $b++; } if ($pay2name eq ' '){ if ($paymeth2 eq 'Personal_Check'){ } else { $blr[$b] = "14"; $b++; } } if ($pay2no1 eq ' '){ if ($paymeth2 eq 'Personal_Check'){ } else { $blr[$b] = "15"; $b++; } } if ($pay2no2 eq ' '){ if ($paymeth2 eq 'Personal_Check'){ } else { $blr[$b] = "16"; $b++; } } if ($pay2no3 eq ' '){ if ($paymeth2 eq 'Personal_Check'){ } else { $blr[$b] = "17"; $b++; } } if ($pay2no4 eq ' '){ if ($paymeth2 eq 'Personal_Check'){ } else { $blr[$b] = "18"; $b++; } } if ($pay2exp eq ' '){ if ($paymeth2 eq 'Personal_Check'){ } else { $blr[$b] = "19"; $b++; } } } if ($b > 1){ for ($i=1; $i< @blr; $i++){ if ($blr[$i] eq '1'){ $msg[$d]="First Name Missing ..."; $d++; } if ($blr[$i] eq '2'){ $msg[$d]="Last Name Missing ..."; $d++; } if ($blr[$i] eq '3'){ $msg[$d]="Phone Number Missing ..."; $d++; } if ($blr[$i] eq '4'){ $msg[$d]="IDEAL Membership Selection Missing ..."; $d++; } if ($blr[$i] eq '5'){ $msg[$d]="Banquet Attendance Selection Missing ..."; $d++; } if ($blr[$i] eq '6'){ $msg[$d]="Conference Registration Payment Method Missing ..."; $d++; } if ($blr[$i] eq '7'){ $msg[$d]="Name on Registration Payment Method Missing ..."; $d++; } if ($blr[$i] eq '8'){ $msg[$d]="Registration Payment Card 1st Number Group Missing ..."; $d++; } if ($blr[$i] eq '9'){ $msg[$d]="Registration Payment Card 2nd Number Group Missing ..."; $d++; } if ($blr[$i] eq '10'){ $msg[$d]="Registration Payment Card 3rd Number Group Missing ..."; $d++; } if ($blr[$i] eq '11'){ $msg[$d]="Registration Payment Card 4th Number Group Missing ..."; $d++; } if ($blr[$i] eq '12'){ $msg[$d]="Registration Payment Card Expiration Date Missing ..."; $d++; } if ($blr[$i] eq '13'){ $msg[$d]="Guest Fees Payment Method Missing ..."; $d++; } if ($blr[$i] eq '14'){ $msg[$d]="Name on Guest Fees Payment Method Missing ..."; $d++; } if ($blr[$i] eq '15'){ $msg[$d]="Guest Fees Payment Card 1st Number Group Missing ..."; $d++; } if ($blr[$i] eq '16'){ $msg[$d]="Guest Fees Payment Card 2nd Number Group Missing ..."; $d++; } if ($blr[$i] eq '17'){ $msg[$d]="Guest Fees Payment Card 3rd Number Group Missing ..."; $d++; } if ($blr[$i] eq '18'){ $msg[$d]="Guest Fees Payment Card 4th Number Group Missing ..."; $d++; } if ($blr[$i] eq '19'){ $msg[$d]="Guest Fees Payment Card Expiration Date Missing ..."; $d++; } } } if ($b > 1) { &BlankResponse; # Flag user for which fields are blank } else { &GenOuts; # Generate the outputs } } # ============================================================================= # This subroutine will generate the outputs sub GenOuts { open(CONFIRM,"){ $confirm=$_; } close (CONFIRM); $confirm++; open(CONFIRM,">/home/yost/public_html/confirm.log"); printf CONFIRM "$confirm\n"; close (CONFIRM); ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time); if ($sec eq '0'){ $sec = "00"; } if ($mon eq '0'){ $smon = "January"; $nmon = "01"; } if ($mon eq '1'){ $smon = "February"; $nmon = "02"; } if ($mon eq '2'){ $smon = "March"; $nmon = "03"; } if ($mon eq '3'){ $smon = "April"; $nmon = "04"; } if ($mon eq '4'){ $smon = "May"; $nmon = "05"; } if ($mon eq '5'){ $smon = "June"; $nmon = "06"; } if ($mon eq '6'){ $smon = "July"; $nmon = "07"; } if ($mon eq '7'){ $smon = "August"; $nmon = "08"; } if ($mon eq '8'){ $smon = "September"; $nmon = "09"; } if ($mon eq '9'){ $smon = "October"; $nmon = "10"; } if ($mon eq '10'){ $smon = "November"; $nmon = "11"; } if ($mon eq '11'){ $smon = "December"; $nmon = "12"; } if ($wday eq '0'){ $wday = "Sunday"; } if ($wday eq '1'){ $wday = "Monday"; } if ($wday eq '2'){ $wday = "Tuesday"; } if ($wday eq '3'){ $wday = "Wednesday"; } if ($wday eq '4'){ $wday = "Thursday"; } if ($wday eq '5'){ $wday = "Friday"; } if ($wday eq '6'){ $wday = "Saturday"; } $payamt1 = "0"; if ($ebprep eq 'no'){ if ($idealmem eq 'yes'){ if (int $nmon <4){ $payamt1 = "500"; } if ($nmon eq '04'){ if (int $mday<=9){ $payamt1 = "500"; } else { $payamt1 = "550"; } } } if ($idealmem eq 'no'){ if (int $nmon <4){ $payamt1 = "550"; } if ($nmon eq '04'){ if (int $mday<=9){ $payamt1 = "550"; } else { $payamt1 = "600"; } } } if ($conum eq '1'){ $pay1 = int ($payamt1); $payamt1 = $pay1+ "200"; } } if (int $banqguest>=1){ $payamt2 = int($banqguest)*40; } $payamt = int($payamt1) + int($payamt2); open (FILEHNDL,">> /home/yost/public_html/register.log") || die print "\nCan't Open input file $!\n\n"; print FILEHNDL "$nmon/$mday/$year;"; print FILEHNDL "$confirm;"; print FILEHNDL "$company;"; print FILEHNDL "$fname;"; print FILEHNDL "$lname;"; print FILEHNDL "$hrid;"; print FILEHNDL "$street;"; print FILEHNDL "$roomno;"; print FILEHNDL "$city;"; print FILEHNDL "$state;"; print FILEHNDL "$zip;"; print FILEHNDL "$phone;"; print FILEHNDL "$email;"; print FILEHNDL "$specneed1a;"; print FILEHNDL "$specneed2a;"; print FILEHNDL "$specneed3a;"; print FILEHNDL "$specneed5a;"; print FILEHNDL "$spnd5text;"; print FILEHNDL "$idealmem;"; print FILEHNDL "$ebprep;"; print FILEHNDL "$ebp;"; print FILEHNDL "$banquet;"; print FILEHNDL "$banqguest;"; print FILEHNDL "$selwork1a;"; print FILEHNDL "$selwork2a;"; print FILEHNDL "$selwork3a;"; print FILEHNDL "$selwork4a;"; print FILEHNDL "$selwork1b;"; print FILEHNDL "$selwork2b;"; print FILEHNDL "$selwork3b;"; print FILEHNDL "$selwork4b;"; print FILEHNDL "$comments;"; print FILEHNDL "$paymeth1;"; print FILEHNDL "$payamt1;"; print FILEHNDL "$paymeth2;"; print FILEHNDL "$payamt2;"; print FILEHNDL "$payamt;"; print FILEHNDL "\n"; close (FILEHNDL); system("/bin/chmod 666 /home/yost/public_html/register.log"); open (FILEHNDL,">> /home/yost/public_html/collect.log") || die print "\nCan't Open input file $!\n\n"; print FILEHNDL "$nmon/$mday/$year;"; print FILEHNDL "$confirm;"; print FILEHNDL "$company;"; print FILEHNDL "$fname;"; print FILEHNDL "$lname;"; print FILEHNDL "$hrid;"; print FILEHNDL "$phone;"; print FILEHNDL "$email;"; print FILEHNDL "$payamt;"; print FILEHNDL "$paymeth1;"; print FILEHNDL "$payamt1;"; print FILEHNDL "$pay1name;"; print FILEHNDL "$pay1no1-"; print FILEHNDL "$pay1no2-"; print FILEHNDL "$pay1no3-"; print FILEHNDL "$pay1no4;"; print FILEHNDL "$pay1exp;"; print FILEHNDL "$pay1prhr;"; print FILEHNDL "$p1prstreet;"; print FILEHNDL "$p1prcity;"; print FILEHNDL "$p1prstate;"; print FILEHNDL "$p1przip;"; print FILEHNDL "$paymeth2;"; print FILEHNDL "$payamt2;"; print FILEHNDL "$pay2name;"; print FILEHNDL "$pay2no1-"; print FILEHNDL "$pay2no2-"; print FILEHNDL "$pay2no3-"; print FILEHNDL "$pay2no4;"; print FILEHNDL "$pay2exp;"; print FILEHNDL "$p2prstreet;"; print FILEHNDL "$p2prcity;"; print FILEHNDL "$p2prstate;"; print FILEHNDL "$p2przip;"; print FILEHNDL "\n"; close (FILEHNDL); system("/bin/chmod 666 /home/yost/public_html/collect.log"); print "Content-type: text/html\n\n"; print "\n"; print "*** Form Submitted ****\n"; print "\n\n"; print "Thank You for Registering For the Conference, $fname $lname !\n"; print "

    \n"; print "Your Confirmation Number is $confirm ... \n"; print "Your Registration Amount is $payamt dollars (US) ... \n"; print "\n\n"; open (ciout,"| /usr/ucb/mail -s Ideal_Conference_Registration_Received yost\@ihgp.ih.lucent.com") || die print "\nCan't Open input file $!\n\n"; print ciout "Content-type: text\n\n"; print ciout "Confirmation Number $confirm issued ...\n\n"; print ciout "Registration received $hour:$min:$sec $wday, $smon $mday, 19$year for ...\n\n"; print ciout "$fname $lname, HRID# $hrid\n"; print ciout "Company : $company\n"; print ciout "Company Address:\n"; print ciout "$street $roomno\n"; print ciout "$city, $state $zip\n"; print ciout "Phone Number: $phone\n"; print ciout "Email: $email\n"; print ciout "\n"; print ciout "Does $fname Require a Sign Language Interpreter ? $specneed1\n"; print ciout "\n"; print ciout "Does $fname Require Wheelchair/Scooter Accessible Facilities ? $specneed2\n"; print ciout "\n"; print ciout "Does $fname Require a Room Near Elevator or Stairs ? $specneed3\n"; print ciout "\n"; print ciout "Does $fname Have Other Needs ? $specneed5\n"; print ciout "\n"; print ciout "$fname 's Other Needs: $spnd5text\n"; print ciout "\n"; print ciout "\n"; print ciout "IDEAL Member ? $idealmem\n"; print ciout "EBP Representative ? $ebprep EBP ? $ebp\n"; print ciout "Is $fname attending the Friday night banquet ? $banquet\n"; print ciout "How Many Guests is $fname Bringing ? $banqguest\n"; print ciout "\n"; print ciout "Workshop Information for $fname $lname:\n"; print ciout "Friday Morning 1st Choice: $selwork1a\n"; print ciout "Friday Morning 2nd Choice: $selwork1b\n"; print ciout "\n"; print ciout "Friday Afternoon 1st Choice: $selwork2a\n"; print ciout "Friday Afternoon 2nd Choice: $selwork2b\n"; print ciout "\n"; print ciout "Saturday Morning 1st Choice: $selwork3a\n"; print ciout "Saturday Morning 2nd Choice: $selwork3b\n"; print ciout "\n"; print ciout "Saturday Afternoon 1st Choice: $selwork4a\n"; print ciout "Saturday Afternoon 2nd Choice: $selwork4b\n"; print ciout "\n"; print ciout "Other Comments ...: $comments\n"; print ciout "\n"; print ciout "\n"; close (ciout); open (ciout,"| /usr/ucb/mail -s Ideal_Conference_Registration_Received wojo\@ihgp.ih.lucent.com") || die print "\nCan't Open input file $!\n\n"; print ciout "Content-type: text\n\n"; print ciout "Registration received $hour:$min:$sec $wday, $smon $mday 19$year for ...\n"; print ciout "Confirmation Number $confirm issued for ...\n\n"; print ciout "$fname $lname, HRID# $hrid\n"; print ciout "Company : $company\n"; print ciout "Company Address:\n"; print ciout "$street $roomno\n"; print ciout "$city, $state $zip\n"; print ciout "Phone Number: $phone\n"; print ciout "Email: $email\n"; print ciout "\n"; close(ciout); open (ciout,"| /usr/ucb/mail -s 1999_IDEAL_Conference_registraton_recieved $email") || die print "\nCan't Open input file $!\n\n"; print ciout "Content-type: text\n\n"; print ciout "Registration received $wday $smon $mday 19$year for ...\n\n"; print ciout "$fname $lname, HRID# $hrid\n"; print ciout "Company : $company\n"; print ciout "Company Address:\n"; print ciout "$street $roomno\n"; print ciout "$city, $state $zip\n"; print ciout "Phone Number: $phone\n"; print ciout "Email: $email\n"; print ciout "\n"; print ciout "Confirmation Number: $confirm\n"; print ciout "Registration Amount: $payamt dollars (US)\n"; print ciout "\n"; close (ciout); open (ciout,"| /usr/ucb/mail -s Ideal_Conference_Registration_Received guzdziol\@ixstar.ih.lucent.com") || die print "\nCan't Open input file $!\n\n"; print ciout "Content-type: text\n\n"; print ciout "Registration received $wday $smon $mday 19$year for ...\n\n"; print ciout "$fname $lname, HRID# $hrid\n"; print ciout "Company : $company\n"; print ciout "Company Address:\n"; print ciout "$street $roomno\n"; print ciout "$city, $state $zip\n"; print ciout "Phone Number: $phone\n"; print ciout "Email: $email\n"; print ciout "\n"; print ciout "Confirmation Number: $confirm\n"; print ciout "\n"; close (ciout); } # ============================================================================= sub ReadParse { local (*in) = @_ if @_; local ($i, $key, $val); # Read in text if (&MethGet) { $in = $ENV{'QUERY_STRING'}; } elsif ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN,$in,$ENV{'CONTENT_LENGTH'}); } @in = split(/&/,$in); foreach $i (0 .. $#in) { # Convert plus's to spaces $in[$i] =~ s/\+/ /g; # Split into key and value. ($key, $val) = split(/=/,$in[$i],2); # splits on the first =. # Convert %XX from hex numbers to alphanumeric $key =~ s/%(..)/pack("c",hex($1))/ge; $val =~ s/%(..)/pack("c",hex($1))/ge; # Associate key and value # \0 is the multiple separator $in{$key} .= "\0" if (defined($in{$key})); $in{$key} .= $val; } return length($in); } # ============================================================================= sub MethGet { return ($ENV{'REQUEST_METHOD'} eq "GET"); } # ============================================================================= sub PrintVariables { local (%in) = @_; local ($old, $out, $output); $old = $*; $* =1; $output .= "

    "; foreach $key (sort keys(%in)) { foreach (split("\0", $in{$key})) { ($out = $_) =~ s/\n/
    /g; $output .= "
    $key
    $out
    "; } } $output .= "
    "; $* = $old; return $output; } # ============================================================================= sub BlankResponse { print "Content-type: text/html\n\n"; print "\n"; print "*** User Error ****\n"; print "\n\n"; print "Required form fields were left blank:

    \n\n"; for ($j=1; $j< @msg; $j++){ print " $msg[$j]
    \n"; } print "Please hit the BACK button, fill out required form fields and try again, or

    \n"; print "Return to the IDEAL Conference Information page, if you like.\n"; print "\n\n"; exit; }