#!/usr/bin/perl
use CGI;
$query = new CGI;
$act = $query->param('act');
$password = $query->param('password');
$interface = $query->url_param('interface');
if ( $act eq "Display the source" ) {
if ( $password eq "password" ) {
print( "Content-type: text/plain\n\n" );
if ( $interface == 1 ) {
system( "cat 1.pl;echo '\n\n\n\n\n';cat 1.cpp" );
}
elsif ( $interface == 2 ) {
system( "cat 2.pl;echo '\n\n\n\n\n';cat 2.cpp" );
}
elsif ( $interface == 3 ) {
system( "cat 3.pl;echo '\n\n\n\n\n';cat 3.cpp" );
}
elsif ( $interface == 4 ) {
system( "cat 4.pl;echo '\n\n\n\n\n';cat 4.cpp" );
}
elsif ( $interface == 5 ) {
system( "cat 5.pl;echo '\n\n\n\n\n';cat 5.cpp" );
}
elsif ( $interface == 6 ) {
system( "cat 6.pl;echo '\n\n\n\n\n';cat Compare.pl" );
}
elsif ( $interface == 7 ) {
system( "cat 7.pl;echo '\n\n\n\n\n';cat Rate.php" );
}
else {
print( "\n\n\n No such interface: $interface" );
}
}
else {
print( "Content-type: text/html\n\n" );
print( "" );
print( "
Wrong password: " );
print( "$password" );
}
}
elsif ( $act eq "Help" ) {
print ( "Content-type: text/html\n\n" );
system( "cat Help.html" );
}
else {
print( "Content-type: text/html\n\n" );
print( "" );
print( "
No such option: " );
print( "$act" );
}