|
Server : Apache/2.4.62 System : FreeBSD fbsdweb2.web.rcn.net 14.1-RELEASE FreeBSD 14.1-RELEASE releng/14.1-n267679-10e31f0946d8 GENERIC amd64 User : www ( 80) PHP Version : 8.3.8 Disable Function : NONE Directory : /domains/highlandlabs/cqi-bin/ALFA_DATA/alfasymlink/root/domains/hrahg/cgi-bin/ |
Upload File : |
#!/usr/bin/perl
# Count file
$Count_Log = "count.log";
#
# Text before/after the count number
$Before = "";
$After = "visits to this page since 25th September, 2002";
#
# Font face, size, and color
$Font_Face = "arial";
$Font_Size = "-1";
$Font_Colour = "black";
#
# Bold/underlined/italicized
# 1 = yes
# 0 = no
$Bold = "0";
$Underline = "0";
$Italics = "0";
#
# IP logging
# 1 = Yes
# 0 = No
$IP_Logging = "0";
$IP_Log = "ips.log";
#############################################################
print "Content-Type: text/html\n\n";
if ($IP_Logging eq "1") {
open(IPLOG,"$IP_Log"); @ips = <IPLOG>; close(IPLOG);
foreach $ip (@ips) { chomp($ip);
if ($ip eq "$ENV{REMOTE_ADDR}") { $match = 1;
open(COUNTLOG,"$Count_Log"); $count = <COUNTLOG>; close(COUNTLOG);
if ($Bold eq "1") { print "<B>"; } if ($Underline eq "1") { print "<U>"; } if ($Italics eq "1") { print "<I>"; }
print "<FONT FACE=\"$Font_Face\" SIZE=\"$Font_Size\" COLOR=\"$Font_Colour\">$Before <b>$count</b> $After</FONT>";
if ($Italics eq "1") { print "</I>"; } if ($Underline eq "1") { print "</U>"; } if ($Bold eq "1") { print "</B>"; }
exit; }
}
if (! $match) {
open(IPLOG,">>$IP_Log"); print IPLOG "$ENV{REMOTE_ADDR}\n"; close(IPLOG);
open(COUNTLOG,"$Count_Log"); $count = <COUNTLOG>; close(COUNTLOG);
$nextnumber = ($count) + (1);
open(COUNTLOG1,">$Count_Log"); print COUNTLOG1 "$nextnumber"; close(COUNTLOG1);
if ($Bold eq "1") { print "<B>"; } if ($Underline eq "1") { print "<U>"; } if ($Italics eq "1") { print "<I>"; }
print "<FONT FACE=\"$Font_Face\" SIZE=\"$Font_Size\" COLOR=\"$Font_Colour\">$Before <b>$nextnumber</b> $After</FONT>";
if ($Italics eq "1") { print "</I>"; } if ($Underline eq "1") { print "</U>"; } if ($Bold eq "1") { print "</B>"; }
}
exit; }
open(COUNTLOG,"$Count_Log"); $count = <COUNTLOG>; close(COUNTLOG);
$nextnumber = ($count) + (1);
open(COUNTLOG1,">$Count_Log"); print COUNTLOG1 "$nextnumber"; close(COUNTLOG1);
if ($Bold eq "1") { print "<B>"; } if ($Underline eq "1") { print "<U>"; } if ($Italics eq "1") { print "<I>"; }
print "<FONT FACE=\"$Font_Face\" SIZE=\"$Font_Size\" COLOR=\"$Font_Colour\">$Before <b>$nextnumber</b> $After</FONT>";
if ($Italics eq "1") { print "</I>"; } if ($Underline eq "1") { print "</U>"; } if ($Bold eq "1") { print "</B>"; }