#!/usr/bin/perl

##############################################
##############################################
# SCRIPT NAME:  Page_Web_Log_Reader.cgi
# FUNCTION:     summarize the web log
##############################################


# MINE: Molecular INformation Explorer
# Copyright 2000 Dawn Field.  All rights reserved.
# The CGI-PERL scripts belonging to MINE
# may be used and modified freely, but I do
# request that this copyright notice remain attached
# to this file/source code.  If you make modifications
# please do not distribute unless
# you fully document the modifications.

	
	
use  CGI;
require "CGI-MINE.pl";


        #################
        # START EACH MINE CGI SCRIPT
        #################
        # this redirects the error messages to the user's screen
        # and is useful for debugging CGI scripts!
        open (STDERR, ">&STDOUT");         # print errors to screen
        $| = 1;                            # flush the print buffer continuously
        # make a new query object using CGI.pm module
        $query = new CGI;
        # print the required header and start the web page
        print $query->header;   
        print $query->start_html('MINE');
        # Each time a script is invoked for the first time (or $action undef),
        # log the visit in the custom MINE server log (see CGI-MINE.pl)
        # (put this after the header incase an error message is printed)
        # check value of $action
        $action = $query->param('action');
        if ($action eq undef) {&log();}

	END {
		&table_bottom();
	}

        #######
        # START THE WEBPAGE
        #######
        # print the MINE menu
        &menu;
        # start the basic gray table used for formatting MINE pages
        &table_top();
        # put the main title of your page here
        print "<b><i><font size=+1>Usage Summary</font></i></b><p><p>";
	print "This is a sample utility script to show how you could use PERL to summarize
	the information logged in the MINE web log (<a href=\"log_archive_file\">log_archive_file</a>).<P>";
	# initialize some variables
        %seen_script = (); 	# a hash to keep track of each script
	%seen_user = (); 	# a hash to keep track of each IP-machine name
	%seen_domain = (); 	# a hash to keep track of domain at the end of each machine name (e.g. .edu)
	# read the contents of the web log (made by &log() function in CGI-MINE.pl
	open (IN, "log_archive_file");
	while ($line = <IN>) {
		# the first line and every other line is the date (has lots of spaces)
		# skip lines with DATE for now
		$line = <IN>;
		($date, $script, $ip, $machine) = split (/\s/, $line);
		# take the path info out of the script name
		$script =~ /Page(.)*/;
		$script = $&; # let script equal the match (special variable $&)
		$script = "<a href = \"$script\">$script</a>";
		# print "Script:$script IP: $ip, Machine: $machine<P><hr>";
	        ++$seen_script{$script};
	        ++$seen_user{"$ip <b>$machine</b>"};
		$machine =~/(\.)(\w+)$/;
		$domain = ($2);
		# sometime the machine name is the IP, and we want to skip those
		if ($domain =~ /[0-9]/) { undef ($domain);}	
		# print "Domain: $domain<br>";
		if ($domain) {++$seen_domain{"$domain"};}
	}

	# start a table
	print "<table BORDER COLS=3 WIDTH=\"200\"><tr>";

        # PRINT DOMAIN  HASH
        print "<td></td><td><B>Distribution by Domain</B></td><td>Accessed</td></tr>";
        undef($counter);
        foreach $motif_type (sort keys %seen_domain) {
                $counter++;
                print "<td>$counter</td><td>$motif_type</td><td>$seen_domain{$motif_type}</b></td></tr>";
                $total_seen =  $total_seen + "$seen_domain{$motif_type}";
        }
	print "</table>";

	print "<P>";

	# PRINT SCRIPT USAGE HASH
        print "<B>Script Usage Summary</B>:<hr>";
	undef($counter);
        undef($total_seen);
        foreach $motif_type (sort keys %seen_script) {
		$counter++;
	        print "$counter.    $motif_type accessed <b>$seen_script{$motif_type}</b> times<BR>";
		$total_seen =  $total_seen + "$seen_script{$motif_type}"; 
        }
	# PRINT USER HASH
	print "<P>_____________<P>$total_seen";
	undef($total_seen);
	undef($counter);
        print "<P><P><B>User Log Summary</B>:<hr>";
        foreach $motif_type (sort keys %seen_user) {
        	$counter++;
		print "$counter.    $motif_type visited <b>$seen_user{$motif_type}</b> times<BR>";
        }

        # finish the table formatting
        &table_bottom();



        # PRINT BOTTOM OF EACH WEB PAGE
        # if $show_source is set to 1 show a link
        # at the bottom of each script to the source
        # code - pass the name of this script to the
        # function in CGI-MINE.pl
        if ($show_source) {
                $script_name = $query->script_name();
                &source ($script_name);
        }        # ATTACH the MINE copywrite
        &mine_cp;
        print $query->end_html;
        #################
        # END WEBPAGE
        #################