#!/usr/bin/perl 

print "Content-type: text/html\n\n";
$referer=$ENV{'HTTP_REFERER'};

$logfile="/var/www/customers/tubenet/public_html/cgi/datat/tplog.txt";
$errorfile="/var/www/customers/tubenet/public_html/cgi/datat/tperrors.txt";

chop($shortdate=`date +'%H:%M:%S %m-%d-%Y'`);
open (LOG, ">>$logfile") || open(LOG, ">>$errorfile");
print LOG "$shortdate | ";
print LOG "$ENV{'REMOTE_ADDR'} | "; 
print LOG "$ENV{'REMOTE_HOST'} | ";
print LOG "$ENV{'HTTP_REFERER'}\n";
close (LOG);

print"<HTML><HEAD><TITLE>TubeNet - The Site for Tube and Pipe Industries</TITLE></HEAD>";
print"<META http-equiv=\"Refresh\" content=\"0; URL=http://www.tubenet.org.uk/main.shtml\">";
#print"<FRAMESET COLS=\"115,*\" FRAMEBORDER=1 FRAMESPACING=1 BORDER=\"1\"   NORESIZE>";

#print"<FRAME SRC=\"http://tubenet.org.uk/menu2.html\" NAME=\"toc\" MARGINHEIGHT=\"0\" MARGINWIDTH=\"0\" SCROLLING=\"auto\" noresize>";

#print"<FRAME SRC=\"http://tubenet.org.uk/maintest.shtml\" NAME=\"content\" MARGINHEIGHT=\"10\" MARGINWIDTH=\"15\" NORESIZE>";

#print"</FRAMESET></HTML>";
print"</HTML>";



