#!/usr/bin/env perl
use Cwd 'abs_path';
$|=1;
alarm(10);
my $request=<>;
alarm(0);
$request =~ s/[\r\n]//g;
chdir("/var/www/morena");
my $path=abs_path("./$request");
$path="/var/www/morena/" if $path eq "/var/www/morena";
print "3cut it out\t.\t.\t.\r\n" and exit 1 if $path !~ /^\/var\/www\/morena\//;
$path.="/menu" if -d $path;
print "3not found\t.\t.\t.\r\n" and exit 2 if !open(FILE, "<$path");
print <FILE>;
close(FILE);