#!/usr/bin/perl ##################################################### use CGI qw(param); open(HITS, "count.txt"); $hits = ; close(HITS); ##################################################### $hits++; ##################################################### open(ADDHITS, ">count.txt"); print ADDHITS "$hits"; close(ADDHITS); ##################################################### # - SmartStatus by SmartScript@hotmail.com # - Tweaked By Darreli@webtv.net # - Please leave this credit line here # - Script Name: Sig.cgi ~ Chmod: 755 # -

########################################################### @months = ("January", "February", "March", "April", "May", "June", "July", "August", "September", "October", "November", "December"); # - @days = ("Sunday", "Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday"); ($sec, $min, $hourt, $daya, $montha, $year, $day2) = localtime(time); $year += "1900"; # - $day = "$days[$day2]"; $month = "$months[$montha]"; $date = "$month $daya, $year"; ######################################### $file = "status.txt"; open(FILE, ">$file"); $status = ; close(FILE); ######################################### $email = "DarrelI\@webtv.net"; @em = split("", $email); $email1 = join(" ", @em); ######################################### $ra=$ENV{'REMOTE_ADDR'}; $rp=$ENV{'REMOTE_PORT'}; ######################################### print "Content-Type: text/html\n\n"; print < EOM exit;


$email1
Alias:Drscripts
Date:$date
Status:Online Scripting	$status
Remote Ip:$ra
Remote Port:$rp
EmailHits:$hits