#!/usr/bin/env perl
print "Content-Type: text/html\n\n";
&decode;
print "Display direct data which is received CGI data
\n";
$sports = $tags{'sports'};
print "sports = ", $sports, "\n";
$baseball = $tags{'baseball'};
$soccer = $tags{'soccer'};
$basket = $tags{'basket'};
$tennis = $tags{'tennis'};
$golf = $tags{'golf'};
print "baseball = ", $baseball, "\n";
print "soccer = ", $soccer, "\n";
print "basket = ", $basket, "\n";
print "tennis = ", $tennis, "\n";
print "golf = ", $golf, "\n";
$dept = $tags{'dept'};
print "dept = ", $dept, "\n";
$s_id = $tags{'student_id'};
print "student_id = ", $s_id, "\n";
$name = $tags{'name'};
print "name = ", $name, "\n";
$com = $tags{'comment'};
print "comment = ", $com, "\n";
print "\n";
#------------------------------------------------------------
# cgi.pl - decode CGI input.
# by ETO Kouichirou
# date 1994/05/11
#
# Usage:
#
# &decode;
# ...
# $name = $tags{'name'};
sub decode {
local($args, $n_read, *terms, $tag, $value);
if ($ENV{'REQUEST_METHOD'} eq "POST"){
$n_read = sysread(STDIN, $args, $ENV{'CONTENT_LENGTH'});
} else {
$args = $ENV{'QUERY_STRING'};
}
@terms = split('&', $args);
foreach (@terms) {
($tag, $value) = split(/=/, $_, 2);
$otags{$tag} = $value; # original tags
$tags{$tag} = &unpack($value); # tags is global
}
}
sub unpack {
local($value) = @_;
$value =~ s/\+/ /g;
$value =~ s/%(..)/pack("c", hex($1))/ge;
return $value;
}
sub unspecial {
local($value) = @_;
$value =~ s/&/&/g;
$value =~ s//>/g;
return $value;
}