#!/usr/local/bin/perl
#######################################################
#                                                     #       
# Program - Graphical Counter  version 1.0            #
#                                                     #
# This counts the number of users that access your    #
# page.						      #	
#                                                     #
# MAKE SURE THAT YOU READ OVER THE TERMS OF AGREEMENT #
# BEFORE USING THIS SCRIPT.  BY USING THIS SCRIPT,    #
# YOU ARE AGREEING TO ABIDE BY THEM.  HOWEVER, IF YOU #
# DON'T AGREE WITH IT, THEN DON'T USE MY SCRIPTS.     #
# PLEASE READ THE 'README.TXT' FILE BEFORE INSTALLING.#
# KEEP IN MIND THAT JASON'S SCRIPTS & THE AESTHETIC   #
# SURGERY CENTER SHALL NOT BE HELD LIABLE FOR ANY     #
# DAMAGES THAT MAY OCCUR FROM DOWNLOADING AND/OR      #
# INSTALLING MY PROGRAMS. USE AT YOUR OWN RISK!       #
#                                                     #
#######################################################
#Change Variables
$count = '/mnt/web/guide/aestheticsurgerycenter/test/count.dat';
$base_url = 'http://www.aestheticsurgerycenter.com/test/';
$your_ip = "0.0.0.0";  
$gif = '.gif';

##############################################

if ($ENV{'REMOTE_ADDR'} eq $your_ip) {               
} 
  
else {
    print "Content-type: text/html\n\n";
    open (COUNT, "$count");
    $counter = <COUNT>;
    close (COUNT);
    open (COUNT, ">$count");
    $counter += 1;
    print COUNT "$counter";

    @indivual = split(//, $counter);
    foreach $number (@indivual) {
    $output = "<img src=\"$base_url$number$gif\" alt=\"$CNum\">";
    print $output;
    }
    close (COUNT);
    }