#!/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 ; close(FILE);