#!/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"> |