#! /usr/bin/perl
##############################################################################
#  PageView Version 1.0
#  Script 1 of 2 		pageview.cgi
#  Author = T. Michael Sacket
#           Mijer Web Productions
#           www.mijer.com
#
#		Copyright © 1997-1998 Mijer Web Productions.
#  All Rights Reserved.
#
#  This software is not freeware and may not be used unless 
#  you have purchased the proper license.  This software may
#  not be modified without the express, written consent of
#  Mijer Web Productions.  This software's use
#  requires that this header remains entact.
#  This script is part of a set.
#
#  For purchase information on Status Version 1.0, visit 
#  our website at www.mijer.com or
#  or send email to: sales@mijer.com  
##############################################################################
#!!! EDIT THIS PART OF THE SCRIPT ONLY !!!
##############################################################################
# Define Variables

  $baseurl = "http://www.marshallbros.com/Pages/pageview";
 
  $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);