#!/usr/bin/perl #################### read info for this year: ############################ do "../INFO.pl"; ########################################################################## $bgcolor="bgcolor=\"#009ebe\""; # background color of webpages ########################################################################## if($ENV{'REQUEST_METHOD'} eq 'POST') { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); @pairs = split(/&/,$buffer); foreach $pair (@pairs) { ($name, $value) = split(/=/,$pair); $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg; $value =~ s/\"/''/g; $FORM{$name} = $value; } } $fullname = $FORM{"fullname"}; $email = $FORM{"email"}; $phonenum = $FORM{"phonenum"}; $country = $FORM{"country"}; $affiliation = $FORM{"affiliation"}; # category in (siam nonsiam student siam_late nonsiam_late student_late) $category = $FORM{"category"}; #-mb: $dates = $FORM{"dates"}; $banquet = $FORM{"banquet"}; ############################################################## #-mb: OVERRIDE SELECTED IF REGISTRATION RECEIVED LATE ############################################################## if (time() > $deadline) { $category .= '_late'; } # override $category =~ s/_late_late/_late/; # fix # method in (check verisign cardother) $method = $FORM{"method"}; $address = $FORM{"address"}; $address =~ s/^\s*//; $address =~ s/\s*$//; ($addrhtml=$address) =~ s/[\r\n]+/
/g; ($addrform=$address) =~ s/[\r\n]+/|||/g; # do some checks that they filled out the form correctly: if ($fullname !~ /\w/) { &YouForgotName(); } if ( !($email || $address)) { &YouForgotAddress(); } #-mb: added: if ($affiliation !~ /\w/) { &YouForgotAffiliation(); } #-mb: added: if ( !($email)) { &YouForgotEmail(); } &ConfirmationPage(); exit 0; ################################################################################# ################################################################################# sub YouForgotName { print < Go back, provide name

We need your name

Please go back to the registration page and provide your name, and any other needed information.

We need, at the very least, your name and either your email address or your street address.

EOYFN exit 0; } ################################################################################# sub YouForgotAddress { print < Go back, provide address

We need your address

Please go back to the registration page and provide either your email address or your street address.

EOYFA exit 0; } ################################################################################ #-mb: check also affiliation ################################################################################ sub YouForgotAffiliation { print < Go back, provide affiliation

We need your affiliation

Please go back to the registration page and provide your name, and any other needed information.

We need, at the very least, your name and either your email address or your street address, along with your affiliation.

EOYFN exit 0; } ################################################################################ #-mb: check also e-mail ################################################################################ sub YouForgotEmail { print < Go back, provide your email

We need your your email

Please go back to the registration page and provide your name, and any other needed information.

We need, at the very least, your name and either your email address or your street address, along with your affiliation.

EOYFN exit 0; } ################################################################################# sub ConfirmationPage { print < CONFIRM REGISTRATION:

CONFIRM REGISTRATION

Review the information below.
Either confirm your registration,
or go back to the registration page and revise as needed.
\n
Name$fullname
Email$email
Phone$phonenum
Address$addrhtml
Country$country
Affiliation$affiliation
Planned attendance dates$dates
Attending banquet?$banquet
Fee\$ $FEE{$category}.00, $TYPE{$category}, $category
Payment EOH if ($method eq "check") { print "by check or money order\n"; print "(sent by mail)"; } if ($method eq "verisign") { print "online credit card\n"; print "(VeriSign)"; } if ($method eq "cardother") { print "credit card\n"; print "(sending information by phone/mail/email)"; } ################################### print <

(For a EuroCheque payment, a \$6 bank processing fee will be added.)

Please be sure you understand the cancellation policy:
No refunds will be given for cancellations after March 1.
Full refunds less a \$50 service charge will be given if notified before March 1.

EOT exit 0; } ################################################################################# __END__