#!/usr/bin/perl
require TripodMail;
print "Content-type:text/html\n\n";
$FORM{'GraphicsDesign'} = "";
$FORM{'Screenprinting'} = "";
$FORM{'Digitizing'} = "";
$FORM{'Embroidery'} = "";
$FORM{'Manufacturing'} = "";
$alpha = "";
$printy_stuff = "";
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;
$FORM{$name} = $value;}
if ($FORM{'services'} eq "yes") {
$printy_stuff = qq(
Services:
$FORM{'GraphicsDesign'}
$FORM{'Screenprinting'}
$FORM{'Digitizing'}
$FORM{'Embroidery'}
$FORM{'Manufacturing'}
);
}
if ($FORM{'textarea'} ne "") {
$alpha = "Coments: $FORM{'textarea'}";
}
print <Order Form
Please check your order.
If all the info is correct please click yes, if not click the back button on your browser.
$FORM{'firstname'} $FORM{'lastname'}
Email: $FORM{'email'}
Phone Number: $FORM{'number'}
Catalog: $FORM{'catalog'}
Brand: $FORM{'brand'}
Item number: $FORM{'inumber'}
Color: $FORM{'color'}
Sizes: $FORM{'size'}
$printy_stuff
$alpha
EndHTML
print "