#!/usr/local/bin/perl

#Aggemam Text Counter(tm) by Simon Skals
#
#This is version 1.2 patchlevel 3
#
#Feel free to modify this script, call it your own, or whatever.
#You can mail me at aggemam@gid.dk and be subsequently ignored.
#
#The most recent version of this script can always be found at this URL:
#Aggemam homepage http://www.gid.dk/~simon/
#
#DESCRIPTION:
#Aggemam Text Counter is a simple text counter that requires SSI. For good
#measure, it logs the IP address of the last visitor and the counter will not
#increment until it is fetched by a new IP.
#
#INSTALLATION:
#Installation should be easy. Just copy the script into your cgi-bin and
#chmod it to 755. Touch the files counter.dat and hostname.dat in whatever
#location you've chosen for them. Remember to make them readable and writable
#for the world.
#
#Finally, just stick this piece of SSI in your HTML:
#   <!--#exec cgi="/cgi-bin/aggemam.pl"-->
#
#Please note that this script will suck if your system doesn't support flock.
#
#CONFIGURATION:
#Set this variable to the directory where you want to store the data files. 
#Be careful not to add a final trailing slash.

$datadir="/usr/home/yourlogin/somedir";

#Ok, let's get to work.
#Prepare for HTML output.

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

#Get the REMOTE_HOST variable to find out who's hitting the page. 

$host = $ENV{'REMOTE_HOST'}; 

#Open the file counter.dat to find out the current value of the counter.

open (counter, "<$datadir/counter.dat") || &error("Ouch, could not open $datadir/counter.dat.");

flock counter, 2; 

$counter = <counter>;

close (counter);

#Next we've got to open the file hostname.dat to see the latest hostname to
#hit the page.

open (hostname, "<$datadir/hostname.dat") || &error("Ouch, could not open $datadir/hostname.dat.");

flock hostname, 2; 

$oldhost = <hostname>;

close (hostname);

#Check whether these two hostnames are identical.

if ($host eq $oldhost) {

#If they're identical, we don't want the counter to increase. Instead we just
#print the current value that we got from counter.dat.

print "$counter";
	
exit;   

} else {

#If they're not identical, we want to increase the counter with 1 and save this
#value to counter.dat. Then we save the new hostname to hostname.dat. Finally,
#we print the new value of the counter.

$counter++;

open (newcounter, ">$datadir/counter.dat") || &error("Ouch, could not open $datadir/counter.dat.");

flock newcounter, 2; 

print newcounter "$counter";

close (newcounter);

open (newhostname, ">$datadir/hostname.dat") || &error("Ouch, could not open $datadir/hostname.dat.");

flock newhostname, 2;

print newhostname "$host";

close (newhostname);

print "$counter";

exit;

}

#Here's the subroutine we use in case something went haywire. 

sub error {

$descr = $_[0] ;

print "[$descr $!.]";

exit;

}
Published in: CGI
Download

Related snippets