#!/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 source" ) {
  if ( $password eq "password" ) {
    print( "Content-type: text/plain\n\n" );
    if ( $interface == 1 ) {
      system( "cat 1.cgi;echo '\n\n\n\n\n';cat 1.pl;echo '\n\n\n\n\n';cat 1.java" );
    }
    elsif ( $interface == 2 ) {
      system( "cat 2.cgi;echo '\n\n\n\n\n';cat 2.pl;echo '\n\n\n\n\n';cat 2.java" );
    }
    elsif ( $interface == 3 ) {
      system( "cat 3.cgi;echo '\n\n\n\n\n';cat 3.pl;echo '\n\n\n\n\n';cat 3.java" );
    }
    elsif ( $interface == 4 ) {
      system( "cat 4.cgi;echo '\n\n\n\n\n';cat 4.pl;echo '\n\n\n\n\n';cat 4.java" );
    }
    elsif ( $interface == 5 ) {
      system( "cat 5.cgi;echo '\n\n\n\n\n';cat 5.pl;echo '\n\n\n\n\n';cat 5.java" );
    }
    elsif ( $interface == 6 ) {
      system( "cat 6.cgi;echo '\n\n\n\n\n';cat 6.pl;echo '\n\n\n\n\n';cat 6.java" );
    }
    elsif ( $interface == 7 ) {
      system( "cat 7.cgi;echo '\n\n\n\n\n';cat 7.pl;echo '\n\n\n\n\n';cat 7.java" );
    }
    else {
      print( "\n\n\n     No such interface: $interface" );
    }
  }  
  else {
    print( "Content-type: text/html\n\n" );
    print( "<center><font size='+2'><b>Wrong password: </b>" );
    print( "<i>$password</i></font>" );
    print( "<form><input type='button' value='Back' onclick on='history.go(-1);return false;' /></center>" );
  }
}
elsif ( $act eq "Help" ) {
  print ( "Content-type: text/html\n\n" );
  system( "cat Help.html" );
}
else {
  print( "Content-type: text/html\n\n" );
  print( "<center><font size='+2'><b>No such option: </b>" );
  print( "<i>$act</i></font></center>" );
}