#!/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);
|
---|
Replies are listed 'Best First'. | |
---|---|
RE: readme!@!
by cwest (Friar) on Jun 27, 2000 at 00:00 UTC | |
by marko (Beadle) on Jun 27, 2000 at 07:46 UTC |
Back to
Obfuscated Code