chromatic,
This is the script. Do you see anything that doesn't look right? Honestly, I don't have a clue.
#!/usr/local/bin/perl
$cgi_lib'maxdata = 131072;
$cgi_lib'writefiles = 0;
$cgi_lib'filepre = "cgi-lib";
$cgi_lib'bufsize = 8192;
$cgi_lib'maxbound = 100;
$cgi_lib'headerout = 0;
print &PrintHeader;
&ReadParse;
$mailprog = '/usr/lib/sendmail';
$address = 'bjenkins@holstongases.com';
open (MAIL, "|$mailprog $address\n") || die "Can't open $mailprog!\n";
print MAIL "$in{'company_name'}\n";
print MAIL "$in{'contact'}\n";
print MAIL "$in{'phone'}\n";
print MAIL "$in{'fax'}\n";
print MAIL "$in{'email'}\n";
print MAIL "$in{'PO_number'}\n";
print MAIL "$in{'when_required'}\n";
print MAIL "$in{'order_qty1'}\n";
print MAIL "$in{'order_item1'}\n";
print MAIL "$in{'order_desc1'}\n";
print MAIL "$in{'order_price1'}\n";
print MAIL "$in{'order_total1'}\n";
print MAIL "$in{'order_qty2'}\n";
print MAIL "$in{'order_item2'}\n";
print MAIL "$in{'order_desc2'}\n";
print MAIL "$in{'order_price2'}\n";
print MAIL "$in{'order_total2'}\n";
print MAIL "$in{'order_qty3'}\n";
print MAIL "$in{'order_item3'}\n";
print MAIL "$in{'order_desc3'}\n";
print MAIL "$in{'order_price3'}\n";
print MAIL "$in{'order_total3'}\n";
print MAIL "$in{'order_qty4'}\n";
print MAIL "$in{'order_item4'}\n";
print MAIL "$in{'order_desc4'}\n";
print MAIL "$in{'order_price4'}\n";
print MAIL "$in{'order_total4'}\n";
print MAIL "$in{'order_qty5'}\n";
print MAIL "$in{'order_item5'}\n";
print MAIL "$in{'order_desc5'}\n";
print MAIL "$in{'order_price5'}\n";
print MAIL "$in{'order_total5'}\n";
print MAIL "$in{'order_qty6'}\n";
print MAIL "$in{'order_item6'}\n";
print MAIL "$in{'order_desc6'}\n";
print MAIL "$in{'order_price6'}\n";
print MAIL "$in{'order_total6'}\n";
print MAIL "$in{'order_qty7'}\n";
print MAIL "$in{'order_item7'}\n";
print MAIL "$in{'order_desc7'}\n";
print MAIL "$in{'order_price7'}\n";
print MAIL "$in{'order_total7'}\n";
print MAIL "$in{'order_qty8'}\n";
print MAIL "$in{'order_item8'}\n";
print MAIL "$in{'order_desc8'}\n";
print MAIL "$in{'order_price8'}\n";
print MAIL "$in{'order_total8'}\n";
print MAIL "$in{'order_qty9'}\n";
print MAIL "$in{'order_item9'}\n";
print MAIL "$in{'order_desc9'}\n";
print MAIL "$in{'order_price9'}\n";
print MAIL "$in{'order_total9'}\n";
print MAIL "$in{'order_qty10'}\n";
print MAIL "$in{'order_item10'}\n";
print MAIL "$in{'order_desc10'}\n";
print MAIL "$in{'order_price10'}\n";
print MAIL "$in{'order_total10'}\n";
print MAIL "$in{'order_qty11'}\n";
print MAIL "$in{'order_item11'}\n";
print MAIL "$in{'order_desc11'}\n";
print MAIL "$in{'order_price11'}\n";
print MAIL "$in{'order_total11'}\n";
print MAIL "$in{'order_qty12'}\n";
print MAIL "$in{'order_item12'}\n";
print MAIL "$in{'order_desc12'}\n";
print MAIL "$in{'order_price12'}\n";
print MAIL "$in{'order_total12'}\n";
print MAIL "$in{'order_qty13'}\n";
print MAIL "$in{'order_item13'}\n";
print MAIL "$in{'order_desc13'}\n";
print MAIL "$in{'order_price13'}\n";
print MAIL "$in{'order_total13'}\n";
print MAIL "$in{'order_qty14'}\n";
print MAIL "$in{'order_item14'}\n";
print MAIL "$in{'order_desc14'}\n";
print MAIL "$in{'order_price14'}\n";
print MAIL "$in{'order_total14'}\n";
print MAIL "$in{'order_qty15'}\n";
print MAIL "$in{'order_item15'}\n";
print MAIL "$in{'order_desc15'}\n";
print MAIL "$in{'order_price15'}\n";
print MAIL "$in{'order_total15'}\n";
close(MAIL);
sub ReadParse {
local ($method, $query, @keypairs, $keyvalue, $key, $value);
$method = $ENV{'REQUEST_METHOD'};
if ($method eq "GET") {
$query = $ENV{'QUERY_STRING'};
} elsif ($method eq "POST") {
read (STDIN, $query, $ENV{'CONTENT_LENGTH'});
}
@keypairs = split(/&/,$query);
foreach $keyvalue (@keypairs) {
($key,$value) = split(/=/,$keyvalue);
$key =~ tr/+/ /;
$key =~ s/%(
\dA-Fa-f\dA-Fa-f)/pack("C",hex($1))/eg;
$value =~ tr/+/ /;
$value =~ s/%(
\dA-Fa-f\dA-Fa-f)/pack("C",hex($1))/eg;
$value =~ s/
\r\n+$//;
if (defined($in{$key})) {
$in{$key} = join("\0",$in{$key},$value);
} else {
$in{$key} = $value;
}
}
}
sub PrintHeader {
return "Content-type: text/html\n
<html>
<title><holstongases.com></title>
<body bgcolor=teal text=black link=red vlink=red>
Holstongases.com
Thank You for Your Order. We Appreciate Your Business
This Order Will Be Confirmed by E-mail or Fax within 24HRS.
";
}
Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
Read Where should I post X? if you're not absolutely sure you're posting in the right place.
Please read these before you post! —
Posts may use any of the Perl Monks Approved HTML tags:
- a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
| |
For: |
|
Use: |
| & | | & |
| < | | < |
| > | | > |
| [ | | [ |
| ] | | ] |
Link using PerlMonks shortcuts! What shortcuts can I use for linking?
See Writeup Formatting Tips and other pages linked from there for more info.