#!/usr/bin/perl

use CGI qw(:standard);

$rh=remote_host();
$Vers="englisch";

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

$site = param("site");
if(open (LOG, ">>/home/www/web79/html/stargazer/logclsk/ClearSkies.log"))
{  flock(LOG, $lock);
   print LOG "$year;$mon;$mday;$hour;$min;$sec;$rh;$site;$Vers;\n";
   flock(LOG, $unlock);
   close (LOG);
}

print "Content-type: text/html\n";

print redirect(-URL =>'http://www.stargazersoft.com/ClearSkiesE.sit');
