#!/usr/bin/perl
use CGI;
$query = new CGI;
$act = $query->param( 'act' );
$stops = $query->param( 'stops' );
if ( $act eq "Find routes" ) {
# Print HTML.
print( "Content-type: text/html\n\n" );
# Use "here-doc" syntax.
print <<EndofHTML;
<html>
<body>
<table width="100%" height="80%">
<tr>
<td align="center">
<font size="+0"><b>
EndofHTML
# Remove leading and trailing spacing.
$stops =~ s/^\s*(\S*)\s*$/$1/;
# For security, remove some Unix metacharacters.
$stops =~ s/;|>|>>|<|\*|\?|\&|\|//g;
# Compose a Java command.
$cmd = "/usr/bin/java -Djava.security.egd=file:/dev/./urandom ListRoutes " . $stops;
print( $cmd ); system( $cmd );
print <<EndofHTML;
<form>
<input type="button" value=" Back " onclick="history.go(-1);return false;" />
</form>
</b></font>
</td>
</tr>
</table>
</body>
</html>
EndofHTML
}
elsif ( $act eq "HTML source" ) {
print ( "Content-type: text/plain\n\n" );
$cmd = "/usr/bin/lynx -dump -source " . $ENV{HTTP_REFERER};
$cmd .= "; echo \n\n\n\n";
system( $cmd );
}
elsif ( $act eq "CGI source" ) {
# Print plain text.
print ( "Content-type: text/plain\n\n" );
system( "/bin/cat ListRoutes.cgi; echo \n\n\n\n" );
}
elsif ( $act eq "Perl source" ) {
print ( "Content-type: text/plain\n\n" );
system( "/bin/cat ListRoutes.pl; echo \n\n\n\n" );
}
elsif ( $act eq "Java source" ) {
print ( "Content-type: text/plain\n\n" );
system( "/bin/cat ListRoutes.java; echo \n\n\n\n" );
}
elsif ( $act eq "SQL source" ) {
print ( "Content-type: text/plain\n\n\n" );
print ( "SELECT DISTINCT rs.rid FROM route_stop rs, stop s WHERE" );
print ( " ( UPPER(s.name) LIKE '%UND%' OR UPPER(s.name) LIKE" );
print ( " '%SCHOOL%' ) AND s.sid = rs.sid ORDER BY rs.rid" );
}
elsif ( $act eq "Help" ) {
print ( "Content-type: text/html\n\n" );
system( "/bin/cat Help.html" );
}
else {
print( "Content-type: text/html\n\n" );
print( "No such option: <em>$act</em>" );
}
|
