#!/usr/bin/perl5 -w # Script: Analyze Web Site Hits (Prior Set) # Author: MAST Communications, mast@interlog.com # Modified By: Tom Brown, tom@tntt.com # Version: March 8, 1998 $| = 1; # set variables $log = '/user/br/broberts/public_html/nocache/rgsummary.txt'; $mainpage = 'http://www.robertsgroup.net'; # get the date ($mday,$year) = (localtime(time))[3,5]; $day = (Sunday,Monday,Tuesday,Wednesday,Thursday,Friday,Saturday)[(localtime)[6]]; $month = (Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec)[(localtime)[4]]; $year += 1900; $today = "$day, $month $mday, $year"; # read total number of lines in log open LOG, $log or &Error("Can't open $log: $!"); @total = ; $num_hits = @total; close LOG; &GetResults; print qq(Content-type: text/html\n\n); print qq(Roberts Group Hits (Previous)\n); print qq(\n); print qq(

ROBERTSGROUP.NET (Previous)

\n); print qq(

Date: $today  \; \; \;Total Hits: $num_hits  \; \; \;Analyze Current Log  \; \; \;Detailed Log

\n); print qq(\n); print qq(\n); print qq(\n); print qq(\n); print qq(\n); print qq(\n); print qq(\n); print qq(\n); print qq(\n); print qq(
Visited Pages by RankTop 10 Visiting Domains
\n); &ShowPages; print qq(\n); &ShowDomains; print qq(
\n); print qq(\n); ##### Subroutines ### sub GetResults { open LOG, $log or die "Can't open $log: $!"; while () { chomp; @records = split m#\|#; ($page,$host) = @records[1,3]; if ($host) { $Host{$host}++; } if ($page) { $Page{$page}++; } } close LOG; } sub ShowDomains { foreach $host (( sort { $Host{$b} <=> $Host{$a} } keys %Host)[0 .. 9]) { print qq(
  • $host - $Host{$host}
    \n); } } sub ShowPages { foreach $page ( sort { $Page{$b} <=> $Page{$a} } keys %Page ) { print qq(
  • $page - $Page{$page}
    \n); } } sub Error { local($msg) = @_; print <<"EOF"; Error

    $msg

    Back
    EOF exit; } exit; __END__