Knowledge Base Nr: 00267 hidden_script_stores_user_info.pl - http://www.swe-kaiser.de

!/usr/bin/perl
CGI-Skript, das diverse Informationen ueber den Aufrufer abspeichert
und ein Bild zurueckliefert. (verstecktes Script.)

  
# Aufruf: <IMG SRC="/cgi-bin/stat.pl" title="irgend ein text">

#-- Get Infos --
$addr     = "$ENV{REMOTE_ADDR}";
$port     = "$ENV{REMOTE_PORT}";
$browser  = "$ENV{HTTP_USER_AGENT}";
$url      = "$ENV{REQUEST_URI}";
$now      =  localtime;

#-- Log infos --
open (LOG, ">>stats.log") or die ("$!: can´t open stats.log\n");
flock (LOG, $LOCK_EX) or die ("$!: can´t get lock\n");
print (LOG "$now, URL=$url, ADDR=$addr, HOST=$host, PORT=$port, BROWSER=$browser\n");
flock (LOG, $LOCK_UN);
close (LOG);

# return Image-Location to keep Browser happy
print "location: http://www.yourdomain.de/images/image.jpg\n\n";