system.cgi

 

---

#!/usr/bin/perl

@pairs = split(/&/, $ENV{'QUERY_STRING'});

foreach $pair (@pairs)
{
    ($key, $value) = split (/=/, $pair);
    $key =~ tr/+/ /;
    $key =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
    $value =~ tr/+/ /;
    $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
    $value =~s/<!--(.|\n)*-->//g;

    if ($formdata{$key})
    {
        $formdata{$key} .= ", $value";
    }
    else
    {
        $formdata{$key} = $value;
    }
}


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/lawsonhelp/logs/$filename") || &ErrorMessage;
@page = <FILE>;
close FILE;

foreach $line (@page) {
	print $line;
	}







sub ErrorMessage {
	print "The server can't open that file. Sorry";
	}

---