#!/usr/bin/perl
$admin = 'tomr@aceldama.com';
$me = 'western.cgi';
%fields = ();
if (!defined $ENV{'REQUEST_METHOD'} or $ENV{'REQUEST_METHOD'} eq 'GET') {
print <<"EOF";
Content-type: text/html
Mad's All Inclusive Do-it-yourself Country & Western song
All Inclusive Do-it-yourself Country & Western song
Mad's All Inclusive Do-It-Yourself Country-Western Song is from MAD No. 233,
September 1982, pp. 14-15. Written by Frank Jacobs.
The "Title" section was added by Tom Rathborne.
Good Ol' Noise Dept.
One of the biggest items in Pop Music today is the Country Western song. In
case you've ever had the wish to write ne, it's really not that difficult. In
fact, as you'll find out below, it's a snap. Simply fill in the numbered blanks
from the corresponding numbered lists, and you have
MAD'S ALL INCLUSIVE DO-IT-YOURSELF COUNTRY WESTERN SONG!
$admin
EOF
exit;
# just printed form.
} elsif ($ENV{'REQUEST_METHOD'} eq 'POST') {
# split input into $fields.
read(STDIN, $query, $ENV{'CONTENT_LENGTH'});
@F = split(/\&/, $query);
foreach $f (@F) {
($n, $v) = split(/=/,$f);
$v =~ s#\+# #g;
$v =~ s#%([0-9a-fA-F][0-9a-fA-F])#sprintf("%c",hex($1))#eg;
$fields{$n} = $v;
}
print <<"EOF";
Content-type: text/html
Your Country & Western song
Your Country & Western song
The $fields{'T1'} who $fields{'T2'} my $fields{'T3'} $fields{'T4'}
I met her $fields{'1'} $fields{'2'};
I can still recall $fields{'3'} she wore;
She was $fields{'4'} $fields{'5'}
and I knew $fields{'6'};
$fields{'7'} I'd $fields{'8'} forever.
She said to me $fields{'9'};
But who'd have thought she'd $fields{'10'} $fields{'11'}
$fields{'12'} goodbye.
Created by $ENV{'HTTP_REFERER'}
$admin
EOF
# just printed results.
} else {
print <<"EOF";
Content-type: text/html
Error!
Submission Error!
Invalid REQUEST_METHOD served.
Something bad (and unspecified!) has happened.
E-mail $admin if you have any more problems. Thanks.
$admin
EOF
}