#!/usr/bin/perl -w
print "Content-type:text/html\n\n"
; sub
lzzga {my($e) = @_ ;
print $e ; exit
;}print
"O\n";print "d\n";print "d\n";print " c\n"; print
"o\n";print "d\n";print "e\n";print ".\n"
; @values = split(/&/,$ENV{'QUERY_STRING'})
; foreach
$i(@values){($varname, $mydata) = split(/=/, $i)
;$1zzga = $mydata;}$extension =
"html";if (length($1zzga) > 15)
{dienice("ERROR: HTML File failed validation procedure")
;} if ($extension
ne "html")
{lzzga("ERROR: HTML File failed validation procedure")
;} $pre = "/tmp/" . $1zzga
;open (ZZ11ZZ, $pre)
or lzzga("ERROR: HTML file not found")
; while
(<ZZ11ZZ>) {print
$_
; }close(ZZ11ZZ);