#!/usr/bin/perl ########################################################################## #### see the improved 2007 version !! ################################# ########################################################################## ########################################################################## #################### read info for this year: ############################ do "../INFO.pl"; ########################################################################## $VerisignLink="https://payments.verisign.com/payflowlink"; $VerisignDomain="verisign.com"; ########################################################################## $logfile="~copper/$Year/Register/LOG"; # must chmod 666 $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; } } else { &TestData(); } $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"}; #-mb: $dates = $FORM{"dates"}; $amount = $FEE{$category}; $category = $TYPE{$category}; &RecordInLog(); if ($method eq "check") { &ResponseForCheck(); } if ($method eq "cardother") { &ResponseForCardother(); } if ($method eq "verisign") { &VeriSign(); } exit 0; ############################################################################## ############################################################################## ############################################################################## sub TestData { %FORM = ( "fullname" => "Brucer ''Test Monkey'' Fast", "email" => "fast@colorado.edu", "phonenum" => "303-492-8995", "country" => "USA", "affil" => "appm UCB", "category" => "nonsiam_late", "method" => "cardother", "addrform" => "123 Main St.|||Colder, CO 80099" ); } ############################################################################## 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 March 1.
Full refunds less a \$50 service charge will be given if notified before March 1.)

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__