#!/usr/bin/perl ########################################################################## #################### read info for this year: ############################ do "../INFO.pl"; # updated for this year $logfile="./LOG"; # must chmod 666 ########################################################################## ####### update the versign parameters... ############################### ########################################################################## $VerisignLink="https://payments.verisign.com/payflowlink"; $VerisignDomain="verisign.com"; $VeriPartner="VeriSign"; $VeriLogin="imacs03"; ########################################################################## ########################################################################## unless ($ENV{'REQUEST_METHOD'} eq 'POST') { print "\n\nSorry, this only works with POST form.\n\n"; } 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"}; if ($email) { $emailnotif="$email"; } else { $emailnotif="(none)"; } $phonenum = $FORM{"phonenum"}; $country = $FORM{"country"}; $affiliation = $FORM{"affiliation"}; $category = $FORM{"category"}; $method = $FORM{"method"}; $addrform = $FORM{"addrform"}; ###################################################### #### derived values: ############################### ###################################################### $amount = $FEE{$category}; $category = $TYPE{$category}; &RecordInLog(); ###################################################### ##### Do it ! ###################################### ###################################################### if ($method eq "check") { &ResponseForCheck(); } if ($method eq "cardother") { &ResponseForCardother(); } if ($method eq "verisign") { &VeriSign(); } exit 0; ############################################################################## ############################################################################## ############################################################################## sub ResponseForCheck { print < $Acronym Submission Results

Thank you. Your form has been submitted.

A confirmation email is being
sent to you at $emailnotif.

To complete your registration,
be sure to send a check for \$$amount.00 (US dollars)
made out to Copper Mtn. Conference
to this address: 
$Acronym
University of Colorado
Department of Applied Math
526 UCB
Boulder   CO   80309-0526

EOCHECK } ############################################################################## sub ResponseForCardother { print < $Acronym Submission Results

Thank you. Your form has been submitted.

A confirmation email is being
sent to you at $emailnotif.

To complete your registration,
be sure to submit your credit card information
(credit card type, number, and expiration date):

  • fax it to $Acronym   Attn: $TheMan
        fax number 303-492-4066

  • email it to copper\@colorado.edu

  • mail it in a letter to
    $Acronym
University of Colorado
Department of Applied Math   
526 UCB
Boulder   CO   80309-0526

EOCO } ############################################################################## sub VeriSign { print < $Acronym Submission Results

Thank you. Your form has been submitted.

A confirmation email is being
sent to you at $emailnotif.

To complete your registration, you must submit your credit card payment
by clicking on the following link to a secure server ($VerisignDomain)

(Reminder about the cancellation policy: No refunds will be given for cancellations after $DeadlineEarlyReg.
Full refunds less a \$50 service charge will be given if notified before $DeadlineEarlyReg.)

EOV } ############################################################################## sub RecordInLog { $addrform =~ s/\|\|\|/, /g; open (MAIL,"| $sendmail -s \"$Acronym registration\" $eaddress") || &LogError("cannot email (MAIL)"); print MAIL <>$logfile") || &LogError("cannot write to $logfile"); print LOG < error
ERROR

$problem

EOERR exit 0; } ############################################################################## __END__