repeat.cgi

 

---

#!/usr/bin/perl

@pairs = split(/&/, $ENV{'QUERY_STRING'});

foreach $pair (@pairs)
{
    ($key, $value) = split (/=/, $pair);
    $key =~ tr/+/ /;
    $key =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
    $value =~ tr/+/ /;
    $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
    $value =~s/<!--(.|\n)*-->//g;

    if ($formdata{$key})
    {
        $formdata{$key} .= ", $value";
    }
    else
    {
        $formdata{$key} = $value;
    }
}



$base = $formdata{'base'};
$school = $formdata{'school'};

$twice = $base x 2;
$cheer = $base x 2 . $school;

$number = $formdata{'number'};
$repeat = $formdata{'repeat'};

$repeat_number = $number x $repeat;

print "Content-type: text/html\n\n";
print "<FONT SIZE=+2>The cheer is <B>$cheer</B>.";
print "<P>And the number, $number, repeated $repeat times is <B>$repeat_number<B></FONT>";

---