#!/usr/local/bin/perl

use Fcntl qw(:flock);
use CGI qw(:standard);
$user = $ENV{'HTTP_SM_USER'};

read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});		## Get data 
 
$duncan ="155.44.11.5";
$scott = "155.44.10.228";
$joe1 = "rogue3.highoutput.com";
$joe2 = "dsl092-067-126.bos1.dsl.speakeasy.net";
$cat = "63.86.62.193";  
$steph = "tiliguas.ne.client2.attbi.com";

$flag = 0;
$message = "";

$address = $ENV{REMOTE_ADDR};
$loc ="rant2.cgi";  

if($address eq $steph)
{

}    

if($address eq $duncan)
{
	 
}    

if($address eq $scott)
{
	 $message = "Your name is Scott...";
      $flag = 1;
}          

if($address eq $joe1)
{
	 $message = "Please dont fuck with the HTML"; 
      $flag = 1;
}

if($address eq $joe2)
{
	$message = "Please dont fuck with the HTML";
	$flag = 1;
}

if($address eq $cat)
{
	$message = "I loooooooove you Cat!  You are the BEST, and I cant wait to get married to you.";
     $flag = 1;
}

        



&Print_Header;       
 
if($flag == 1)
{
	print("<SCRIPT LANGUAGE=JavaScript>");
	print("alert('$message'); ");   
	print("document.location='$loc'");
	print("</SCRIPT>");
}

if($flag == 0)
{
	print("<SCRIPT LANGUAGE=JavaScript>");
	print("document.location='rant2.cgi'");
	print("</SCRIPT>");
}




&Print_Footer;



sub Print_Header
{
    print "Content-type: text/html\n\n";
    $headerfile = 'header.tpl';
    open(HEADER, $headerfile);
    flock(HEADER,$LOCK_SH);
	while (<HEADER>)
	{
	print "$_";
	}
	flock(HEADER,$LOCK_UN);
	close(HEADER);
	return;
}##### END OF PRINT_HEADER SUBROUNTINE  




sub Print_Footer
{
    $footerfile = 'footer.tpl';
    open(FOOTER, $footerfile);
    flock(FOOTER,$LOCK_SH);
    while (<FOOTER>)
    {
	print "$_";
    }
    flock(FOOTER,$LOCK_UN);
    close(FOOTER);
    return;}
####### END OF PRINT_FOOTER SUBROUNTINE