#!/usr/bin/perl
&parse_form;
&run;
sub run {
print "Content-type: text/html\n\n";
print "Vietnamese Radio News\n
";
exit
}
elsif ($input{'quangle'} =~ '2')
{
print "
";
exit
}
elsif ($input{'quangle'} =~ '3')
{
print "
";
exit
}
elsif ($input{'quangle'} =~ '5')
{
print "
";
exit
}
elsif ($input{'quangle'} =~ '6')
{
print "
";
exit
}
elsif ($input{'quangle'} =~ '7')
{
print "
";
exit
}
elsif ($input{'quangle'} =~ '8')
{
print "
";
exit
}
elsif ($input{'quangle'} =~ '9')
{
print "
";
exit
}
else
{
print "
";
exit
}
}
sub parse_form {
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
if (length($buffer) < 5) {
$buffer = $ENV{QUERY_STRING};
}
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/+/;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$input{$name} = $value;
}
}