#!/usr/bin/perl
use strict;
use Carp ();
     local $SIG{__WARN__} = \&Carp::cluck;
##############################################################################
# Counter                       Version 1.1.1                                #
# Copyright 1996 Matt Wright    mattw@worldwidemart.com                      #
# Created 10/27/95              Last Modified 4/25/96                        #
# Scripts Archive at:           http://www.worldwidemart.com/scripts/        #
##############################################################################
# COPYRIGHT NOTICE                                                           #
# Copyright 1996 Matthew M. Wright  All Rights Reserved.                     #
#                                                                            #
# Counter may be used and modified free of charge by anyone so long as       #
# this copyright notice and the comments above remain intact.  By using this #
# code you agree to indemnify Matthew M. Wright from any liability that      #  
# might arise from it's use.                                                 #  
#                                                                            #
# Selling the code for this program without prior written consent is         #
# expressly forbidden.  In other words, please ask first before you try and  #
# make money off of my program.                                              #
#                                                                            #
# Obtain permission before redistributing this software over the Internet or #
# in any other medium.	In all cases copyright and header must remain intact.#
##############################################################################
# Define Variables

	### FILE AND DIRECTORY LOCATIONS, REFERERS ###
use CGI;

my $insert_width=0;
my $insert_height=0;
my $output=0;
my $error="ERROR";
my $count=0;
my $length=0;
my $num=0;

my $query = new CGI;
my $count_file=0;

if (!defined $query->param('COUNTER')) {
$count_file = "/home/x075bb/www/cgi-bin/counter/count.txt";

} else { 
$count_file="/home/x075bb/www/cgi-bin/counter/".$query->param('COUNTER').".counterfile";
}

my $digit_dir = "digit_dir";
my $access_log = "access_log";
my $error_log = "error_log";

my $flyprog = "/home/x075bb/www/cgi-bin/counter/fly-1.6.5/fly -q";
my $fly_temp = "/home/x075bb/.public_html/cgi-bin/counter/fly-1.6.5/fly_temp.txt";

my $bad_referer_img = "http://ops.tamu.edu/x075bb/cgi-bin/counter/bad_referer.gif";

my @referers = ("ops.tamu.edu","nac1.tamu.edu","nac.tamu.edu","nacpc1.tamu.edu","nacpc2.tamu.edu","nacpc3.tamu.edu","hdc.tamu.edu","bob.tamu.edu", "ops", "nac");

	### IMAGE SETTINGS ###

my $width = "16";
my $height = "24";

my $tp = "255,255,255";
my $il = "0";

my $frame_width = "0";
my $frame_color = "255,255,255";

my $dot = "X";
my $logo = "X";

	### OPTIONS ###

my $uselog = "1";	# 1 = YES; 0 = NO

# Done
##############################################################################
my $date=0; my $min=0;
my $monc=0; my $sec=0;
my $isdst=0;
my $yday=0;
my $wday=0;
my $year=0;
my $mon=0;
my $mday=0;
my $hour=0;
# Get the Date For Logging Purposes
if ($uselog == 1) {
   ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
   if ($sec < 10)  { $sec = "0$sec";   }
   if ($min < 10)  { $min = "0$min";   }
   if ($hour < 10) { $hour = "0$hour"; }
   if ($mday < 10) { $mday = "0$mday"; }
   if ($mon < 10)  { $monc = "0$mon";  }
   $date = "$hour\:$min\:$sec $mon/$mday/$year";
}

# Make Sure People Aren't Messing With the Counter From Other Web Pages
&check_referer;

# Get the Counter Number And Write New One to File
&get_num;

# If they Just want a transparent dot or a logo, give them that.
&check_dot;

# Determine Length of Counter Number
$num = $length = length($count);
my %CHAR;
# Set Individual Counter Numbers Into Associative Array
while ($num > 0) {
   $CHAR{$num} = chop($count);
   $num--;
}

# Determine the Height and Width of the Image
my $img_width = (($width * $length) + ($frame_width * 2));
my $img_height = (($frame_width * 2) + $height);

# Open the In-File for Commands
open(FLY,">$fly_temp") || die "Can't Open In File For FLY Commands: $!\n";

# Create New Counter Image
print FLY "new\n";
print FLY "size $img_width,$img_height\n";

# If User Wants Frame, Print Commands to the In-File
&make_frame;

# Copy Individual Counter Images Commands to In-File
my $j = 1;
while ($j <= $length) {
   print FLY "copy $insert_width,$insert_height,-1,-1,-1,-1,$digit_dir/$CHAR{$j}\.gif\n";
   $insert_width = ($insert_width + $width); 
   $j++;
}

# If they want a color transparent, make it transparent
if ($tp ne "X" && $tp =~ /.*,.*,.*/) {
   print FLY "transparent $tp\n";
}

# If they want the image interlaced, make it interlaced
if ($il == 1) {
   print FLY "interlace\n";
}

# Close FLY
close(FLY);

$output = `$flyprog -i $fly_temp`;
print "Content-type: image/gif\n\n";
print "$output";

# Remove Temp File
unlink($fly_temp);

# Log the Counter Access
if ($uselog == 1) {
   &log_access;
}

sub check_referer {
   my $ref=0;
   my $referer;

   if (@referers && $ENV{'HTTP_REFERER'}) {
      foreach $referer (@referers) {
         if ($ENV{'HTTP_REFERER'} =~ /$referer/) {
            $ref = 1;
            last;
         }
      }
   }
   else {
      $ref = 1;
   }

   if ($ref != 1) {
      print "Location: $bad_referer_img\n\n";

      if ($uselog == 1) {
         open(LOG,">>$error_log") || die "Can't Open User Error Log: $!\n";
         print LOG "$error: $ENV{'REMOTE_HOST'} [$date] $ENV{'HTTP_REFERER'} - $ENV{'HTTP_USER_AGENT'}\n";
         close(LOG);
      }

      exit;
   }
}

sub get_num {
   open(COUNT,"$count_file") || die "Can't Open Count Data File $count_file: $!\n"; 
   $count = <COUNT>;
   close(COUNT);
   if ($count =~ /\n$/) {
      chop($count);
   }

   $count++;

   open(COUNT,">$count_file") || die "Can't Open Count Data File For Writing: $!\n";
   print COUNT "$count";
   close(COUNT);
}

sub check_dot {

   if ($dot == 1) {
      # Open the In-File for Commands
      open(FLY,">$fly_temp") || die "Can't Open In File For FLY Commands: $!\n";

      # Create New Counter Image
      print FLY "new\n";
      print FLY "size 1,1\n";
      print FLY "fill x,y,0,0,0\n";
      print FLY "transparent 0,0,0\n";
      close(FLY);

      $output = `$flyprog -i $fly_temp`;
      print "Content-type: image/gif\n\n";
      print "$output";

      exit;
   }
   elsif ($logo ne "X" && $logo =~ /.*tp:\/\//) {
      print "Location: $logo\n\n";

      # Log The Access
      if ($uselog == 1) {
         &log_access;
      }

      exit;
   }
}

sub make_frame {
# stuff added to make use strict behave
   my $current_width=0;
   my $current_height=0;
   my $insert_frame=0;

   $insert_width = $insert_height = $frame_width;

   $insert_frame = 0;

   while ($insert_frame < $frame_width) {
      $current_width = ($img_width - $insert_frame);
      $current_height = ($img_height - $insert_frame);
 
      print FLY "line 0,$insert_frame,$img_width,$insert_frame,$frame_color\n";
      print FLY "line $insert_frame,0,$insert_frame,$img_height,$frame_color\n";
      print FLY "line $current_width,0,$current_width,$img_height,$frame_color\n";
      print FLY "line $current_height,0,$current_height,$img_width,$frame_color\n";

      $insert_frame++;
   }
}

sub log_access {
   open(LOG,">>$access_log") || die "Can't Open User Access Log: $!\n";
   print LOG "[$date] $ENV{'HTTP_REFERER'} - $ENV{'REMOTE_HOST'} -  $ENV{'HTTP_USER_AGENT'}\n";
   close(LOG);
}