#!/usr/bin/perl
$accessfile = ".htaccess";
open (FILE, "$accessfile");
@deny = <FILE>;
close(FILE);
chop @deny[3];
chop @deny[3];
chop @deny[4];
chop @deny[4];
@deny[3] =~ s/deny from//g;
@deny[4] =~ s/deny from//g;
print "Content-type: text/plain\n\n";
print "document.write('@deny[3]');\n";
print "document.write('<br>');\n";
print "document.write('@deny[4]');\n";
exit;
|
<script language="JavaScript" src="deny-site.cgi"> |