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";
	}