#!/usr/bin/perl

use CGI qw(:standard);


$lock   = 2;
$unlock = 8;
$rh     = remote_host();

($sec,$min,$hour,$mday,$mon,$year) = localtime(time);
$mon+=1;

#if(index($rh,"basel.datacomm.ch")==-1)
{  $wp = param("wp");
   if(open (LOG, ">>/home/www/web79/html/stargazer/log/ruedi.log"))
   {  flock(LOG, $lock);
      print LOG "$year;$mon;$mday;$hour;$min;$sec;$rh;$wp;\n";
      flock(LOG, $unlock);
      close(LOG);
   }
}

print "Content-type: image/gif", "\n\n";

open (IMAGE, "</stargazersoft.com/html/images/einmalein.gif");
print <IMAGE>;
close (IMAGE);



#<script language="JavaScript"><!--
#  document.write('<img src="http://home.datacomm.ch/cgi-schmidruedi/wl.pl?wp='+
#                    document.title+'" width="1" height="1">');
#// --></script>