#!/usr/bin/perl

$fail=$ENV{'QUERY_STRING'};
print "Content-type:text/html\n\n";
@kaust=split(/\//, $fail);

$kontr="";

foreach $sona (@kaust)
{
 if ($sona eq "..")
 {
  $kontr="Vale";
 }
}

if ($kontr eq "Vale")
{
 $oige="/var/www/html/ajalugu/art.cgi?algus";
}
else
{
 $oige="/var/www/html/ajalugu/$fail";
}

open (a, "Ipool");
@algus=<a>;
close (a);

open (b, "$oige");
@sisu=<b>;
close (b);

open (c, "IIpool");
@lopp=<c>;
close (c);

print "@algus\n@sisu\n@lopp";