#! /usr/bin/perl
##############################################################################

#  Author = T. Michael Sacket
#											Jeremy D. Sacket
#           Mijer Web Productions
#           www.mijer.com
#

##############################################################################
#!!! EDIT THIS PART OF THE SCRIPT ONLY !!!
##############################################################################
# Define Variables

  $baseurl = "http://www.oustaletford.com/counter";
 
  $image = "transparent.gif";

# Done
##############################################################################
#!!! DO NOT EDIT BELOW THIS LINE !!!
##############################################################################
#
# Get page name and set the log file
$logfiletxt = "$ENV{'QUERY_STRING'}";
$logfile = "$logfiletxt.txt";

# Print transparent gif location
print "Location: $baseurl/$image\n\n";

# Log PageView
    open (LOG, "+<$logfile");
    $previous_views = <LOG>;
				$previous_views += 1 ;
				seek(LOG,0,0);
    print LOG "$previous_views";
    close (LOG);



exit;