system.cgi
#!/usr/bin/perl 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); if ($ENV{'QUERY_STRING'}) { @getpairs =split(/&/, $ENV{'QUERY_STRING'}); push(@pairs,@getpairs); } } else { print "Content-type: text/html\n\n"; print "<P>Use Post or Get"; } print "Content-type: text/html\n\n"; $language = $formdata{'language'}; if ($language=~/English/) { $filename = "gatetseng.html"; } elsif ($language =~ /Catalan/) { $filename = "gatetscat.html"; } else { print "Sorry, you can only choose between English and Catalan."; } open (FILE, "/web/setgetweb/logs/$filename") || &ErrorMessage; @page = <FILE>; close FILE; foreach $line (@page) { print $line; } sub ErrorMessage { print "The server can't open that file. Sorry"; }