|
Server : Apache/2.4.62 System : FreeBSD fbsdweb2.web.rcn.net 14.1-RELEASE FreeBSD 14.1-RELEASE releng/14.1-n267679-10e31f0946d8 GENERIC amd64 User : www ( 80) PHP Version : 8.3.8 Disable Function : NONE Directory : /domains/mandarintools/cgi-bin/ |
Upload File : |
#!/usr/bin/perl
use CGI;
my $q = new CGI;
if ($q->param('foo') eq "") {
print "Content-type: text/html\n\n";
print "<html><head>\n";
print "</head><body>What are you doing here?</body></html>";
exit;
}
$cgiaddr = $q->remote_addr();
$cgihost = $q->remote_host();
$ipaddr = $ENV{'REMOTE_ADDR'};
$host = $ENV{'REMOTE_HOST'};
$ref = $ENV{'HTTP_REFERER'};
$forwarded = $ENV{'HTTP_X_FORWARDED_FOR'};
open(IP, ">> homeip.txt");
print IP "$forwarded\n";
close(IP);
print "Content-type: text/html\n\n";
print "<html><head><meta http-equiv=\"refresh\" content=\"1800\">\n";
print "</head><body>$forwarded<br>$ipaddr<br>$cgiaddr<br>$cgihost<br>$ref";
#foreach $var (keys %ENV) {
# print "$var " . $ENV{$var} . "<br>";
#}
print "</body></html>\n";