Current Path : /services/http/users/r/ryantate/

Upload File :

Current File : /services/http/users/r/ryantate/test.html.~3~

#!/opt/local/bin/perl -T

#-wT
#use strict;

$ENV{PATH}='/usr/bin/';
my $Log_path="/services/http/users/r/ryantate/fplog.txt";

if (open LOG, ">>$Log_path") {
  my $host = ($ENV{'REMOTE_HOST'} || $ENV{'REMOTE_ADDR'} || '--unknown--');
  my $agent=($ENV{'HTTP_USER_AGENT'} || '--unknown--');
  my $referer=  ($ENV{'HTTP_REFERER'} || '--none--');
  print LOG scalar localtime() . "\t" . $host . "\t" . $referer . "\t" . $agent . "\n";
  close LOG;
}

print "Content-type: text/html\n\n";
print "<!-- visit logged -->";

Copyright 2K16 - 2K18 Indonesian Hacker Rulez Copyright sisTR