#!/usr/local/bin/perl

### daylogger.pl

#################################################################
# Logs hits, sends e-mail daily to whatever address you give
#
# This program is not perfect, so you may have to change a
# few lines.
#
# Lots of comments, as a good programmer, you should comment
# too! Make it a habit!
#
# You need to set the priv (chmod) for each file manually.
#
# You can use or modifiy this free of charge so long as
# this notice and the comments remain intact.  By using this
# code you agree to indemnify No Crash or it's owners from any
# liability that might arise from it's use.
#
# Selling the code for this program without prior written
# consent is expressly forbidden.
#
# For more examples and free sources, visit www.nocrash.com
#################################################################

### My Local Variables  
### You may need to change the path to sendmail.

$mail_program = "/usr/lib/sendmail -t";

$from = "yoursite.com <www\@yoursite.com>";
$send_to = "you\@yoursite.com, me\@yoursite.com";
$pager_to = "yourtextpager\@yoursite.com, mytextpager\@yoursite.com";
$dateFile = "datefile.txt";
$logFile = "logfile.txt";
$doit = 0;

$lock = 2;		# 2 | 4 = 6, lock it exclusively & non-blocking
$unlock = 8;		# unlock the file

# LOCK_SH { 1 } requests a shared lock
# LOCK_EX { 2 } requests an exclusive lock
# LOCK_NB { 4 } is added, will return immediately rather than blocking waiting for the lock
# LOCK_UN { 8 } releases a previously requested lock

###
### Main body of script
###

&gettime;
&dolog; # always write to the logfile
&inchits;  # increment the hit file

### If you call this by <img src="scriptname.pl">
### and the browser or server needs us to print to it or else it errors, who knows why..
### the following line doesn't really show anything.
### only use whatever printing message your server needs to call this properly!

###print ("Content-type: image/x-xbitmap\n\n");
###printf ("#define count_width 1\n#define count_height 1\n");
###print("0x00");

### If you call this by <!--#exec cgi="scriptname.pl">
### and the browser or server needs us to print to it or else it errors, who knows why..
### the following line doesn't really show anything.
### only use whatever printing message your server needs to call this properly!

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

&dodate;    # lets check to see if it's a new day..
if ($doit != 1) {exit(0);}  # same day? then exit

&domail; #send the mail and then clear the log file

exit(0);


#############################################################################
# 	open  logfile and send it all via E-Mail then delete it all.  
#############################################################################
sub domail {
	
  	if (-e $logFile) {	# file exist, open with read write access
		open(COUNT,"+<$logFile") || 
			die("Can't open $logFile: $!\n");
		flock(COUNT,$lock);

  	} else { 	die("Can't open $logFile: $!\n");
             }

    if ( !open(MAIL, "|$mail_program") ) { 
        print "ERROR - Darn it all!<P>\n";
        exit;
        }
print MAIL <<"EOM";
From: $from
To: $send_to
Subject: Daily Web Page Access Log
\n
Hit Counter= $num \n
EOM

while ( $dum=<COUNT>) {
print MAIL "$dum";			
      }

flock(COUNT,$unlock);
close(COUNT);
close (MAIL);

### now open it again with a mode that should clear it.

open(COUNT,">$logFile") ||
	die("Can't zero $logFile: $!\n");

print COUNT<<EOH;
Each line set contains  Time,Date,IP - HTTP_REFERER

EOH

close(COUNT);


# now do the pager stuff (diferent e-mail address, data summary

    if ( !open(MAIL, "|$mail_program") ) { 
        print "ERROR - Darn it all!<P>\n";
        exit;
        }
print MAIL <<"EOM";
From: webpage
To: $pager_to
Subject: Hits=$num
\n
EOM
close (MAIL);


}


#############################################################################
# 	open  logfile and put in the data stored.  
#############################################################################

### note that the chop function (its a perl function) simply removes
### the last character in a string. Thus removing a \n or whatever bothers you.

sub dolog {
	
  	if (-e $logFile) {	# file exist, open with append
		open(COUNT,">>$logFile") || 
			die("Can't open $logFile: $!\n");
		flock(COUNT,$lock);

  	} else { 	# new logfile open with write access
		open(COUNT,">$logFile") ||
			die("Can't create $logFile: $!\n");
		flock(COUNT,$lock);
  	}


## if your ISP allows reverse DNS look up, then take out the comment lines

##	($part1,$part2,$part3,$part4)=split(/\./,$ENV{REMOTE_ADDR});
##	$IP_adr=pack("C4",$part1,$part2,$part3,$part4);
##	($host_name)=(gethostbyaddr("$IP_adr", 2));
##	if ($host_name !~ /\w/) {
		$host_name = $ENV{REMOTE_ADDR};
##	}

### Here we set up the variables for a proper printout, use what you want

$a = $ENV{'REMOTE_ADDR'};
$b = $ENV{'REQUEST_URI'};
$c = $ENV{'HTTP_REFERER'};

  print COUNT<<EOH;
$date, $host_name
$c

EOH

	flock(COUNT,$unlock);
  	close(COUNT);
}



#############################################################################
# 	open  datefile and read in the data stored.  
#############################################################################

### note that the chop function (its a perl function) simply removes
### the last character in a string. Thus removing a \n or whatever bothers you.

sub dodate {
	
  	if (-e $dateFile) {	# file exist, open with read write access
		open(COUNT,"+<$dateFile") || 
			die("Can't open $dateFile: $!\n");
		flock(COUNT,$lock);
		$lastday = <COUNT>; 		# the day number last time I wrote data
       		chop $lastday;

  	} else { 	# new datefile open with write access
		open(COUNT,">$dateFile") ||
			die("Can't create $dateFile: $!\n");
		flock(COUNT,$lock);
		$lastday = 0;
  	}

  	if ($lastday != $today) {         # is it a new day?
   		$lastday = $today;
            $doit = 1;
  	      seek(COUNT,0,0);	         # go to the first line to rewrite data
    	      print COUNT<<EOH;
$lastday
EOH
            }
	flock(COUNT,$unlock);
  	close(COUNT);
}


##############################################################################
#	Generate time.
##############################################################################
sub gettime {
	($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
	$year = $year + 1900;
	$date = sprintf("%02d:%02d:%02d %02d/%02d/%04d",
		$hour,$min,$sec,$mon+1,$mday,$year);
	$day = sprintf("%02d/%02d/%04d",$mon+1,$mday,$year);
	$today = sprintf("%02d",$mday);
	$month = sprintf("%02d",$mon+1);
}


sub inchits {
   open(NUMBER,"hitcnt.txt");
   $num = <NUMBER>;
   $num++;
   close(NUMBER);
   open(NUMBER,">hitcnt.txt") || die $!;
   print NUMBER "$num";
   close(NUMBER);

}


## I use this for testing on a new system where I don't know what is returned
## its NOT called here.

sub nothing {

# this is for testing only
#    if ( !open(MAIL, "|$mail_program") ) { 
#        print "ERROR - Darn it all!<P>\n";
#        exit;
#        }
#print MAIL <<"EOM";
#To: $send_to
#Subject: variable list just for you! TEST!
#\n HTTP Referer $ENV{'HTTP_REFERER'}
#\n HTTP From $ENV{'HTTP_FROM'}
#\n Date local $ENV{'DATE_LOCAL'}
#\n Remote host $ENV{'REMOTE_HOST'}
#\n Last Modified $ENV{'LAST_MODIFIED'}
#\n Remote User $ENV{'REMOTE_USER'}
#\n REMOTE_IDENT $ENV{'REMOTE_IDENT'}
#\n REMOTE_ADDR $ENV{'REMOTE_ADDR'}
#\n HTTP_USER_AGENT $ENV{'HTTP_USER_AGENT'}
#\n $date
#\n $day
#\n $today
#\n $month
#\n stuff $totalReads

#\n Just a test....
#\n.\n
#EOM
#close (MAIL);
#exit(0);
}