#!/usr/bin/perl
&parse;
print
"Content-type:text/vnd.wap.wml\n\n"
;
print
"<?xml version=\"1.0\"?>\n"
;
print
"<wml><card id=HTML title=Grade_Report>"
;
print
"<pre>Get ID = "
;
print $config{
'id'
};
print
"</pre></card></wml>"
;
exit;
sub parse {
if
($ENV{
'REQUEST_METHOD'
} eq
'GET'
) {
@pairs = split(/&/, $ENV{
'QUERY_STRING'
});
} elsif ($ENV{
'REQUEST_METHOD'
} eq
'POST'
) {
read(STDIN, $buffer, $ENV{
'CONTENT_LENGTH'
});
@pairs = split(/&/, $buffer);
}
foreach $pair (@pairs) {
local($name, $value) = split(/=/, $pair);
$name =~ tr/+/ /;
$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack(
"C"
, hex($1))/eg;
$name =~ s/~!/~!/g;
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack(
"C"
, hex($1))/eg;
$value =~ s/~!/~!/g;
$value =~ s/<!--(.|\n)*-->
$config{$name} = $value;
}
}