#!/usr/bin/perl # Die folgenden Variablen muessen an die lokale Konfiguration angepasst werden. # Zeichenkette(n), die in der Protokollzeile auftauchen muessen. # # Sie koennen auch mehrere Strings angeben, z. B. # $include="laber/eins|laber/zwei"; # # $include = "ALL"; nimmt alle Protokollzeilen, mit Ausnahme der # durch $exclude ausgeschlossenen. $include="ALL"; # Protokollzeilen, die diese Strings enthalten, werden bei der Berechnung der # Statistik ausgeschlossen (hier: Graphiken und Aufrufe von CGI Programmen). # # Mehrere Strings wieder durch "|" trennen. $exclude = "gif|jpg|png|cgi"; # Name und Pfad der Webserver-Logdatei $LOGDATEI = "/var/log/any-access_log"; # Farbe der Balken fuer die Stundenstatistik $scolor = "#FFFF00"; # Farbe der Balken fuer die Tagesstatistik $wcolor = "#FF00FF"; # Das wars! Ab hier muss nichts mehr geaendert werden! ########################################################################### &datum; &open_logfile; &calc_access; 𝕜 &general; &by_hour; &by_date; &by_html; &fuss; ########################################################################## # Open the SERVER LOG FILES # ------------------------- sub open_logfile { open (LOG,"$LOGDATEI") || die "Kann $LOGDATEI nicht oeffnen!\n"; while ($line = ) { chomp($line); if ((($line =~ /$include/) || ($include eq "ALL")) && ($line !~ /$exclude/i)) { push(@lines,$line); } } close(LOG); } # Extract the data from each line of the log # ------------------------------------------ sub calc_access { $i = 0; $currentdate = ""; foreach (@lines) { ($site,$junk1,$junk2,$when,$junk3,$junk4,$page,$junk5,$number,$bytes) = split; $page=~ s/%7E/~/gi; ($date,$hour,$minute,$second)=split(':',$when); $hour=~ s/^0//; # Wenn das Datum gleichbleibt, erhohe fuer dieses Datum den Counter um eins if ($date eq $currentdate) { $counter[$i]++; } # Nachster Tag (Tageszaehler ist die Variable $i) else { $i++; $currentdate=$date; $counter[$i]++; } ($firstdate) || ($firstdate=$date); ($day,$month,$year) = split('/',$date); $date = "$year/$month/$day"; $date=~ s/\[//; $dates{$date}++; # Anzahl Zugriffe pro Tag $hours{$hour}++; # Anzahl Zugriffe pro Stunde $pages{$page}++; # Anzahl Zugriffe pro FILE $totalbytes = $totalbytes + $bytes; } if ($totalbytes < 10) { print "Keine Abrufe für $include.\n"; print "

Keine Abrufe für $include.

\n"; print "Für das Verzeichnis (die Verzeichnisse) $include wurden\n", print "im letzten Monat keine Abrufe verzeichnet.\n"; print "\n"; exit; } } sub kopf { print "\n"; print "Zugriffs-Statistik\n"; print "\n"; if ($include eq "ALL") { print "

Zugriffstatistik

\n"; } else { print "

Zugriffstatistik für $include

\n"; } print "

$long_date

\n"; } sub general { $firstdate=~ s/\[//; $firstdate =~ s/^0//; print "

Allgemeine Daten

\n"; print "Auswertungszeitraum: $firstdate bis $date_2
\n"; print "Gesamtzahl aller Zugriffe: $#lines
\n"; print "Gesamtvolumen (in Bytes): $totalbytes
\n"; } # Calculate stats by hour # ----------------------- sub by_hour { print "

Zugriffsstatistik nach Tageszeit

\n"; print "

\n"; print "\n"; $highest=0; # ermittle maximale Anzahl von Zugriffen zu einer Stunde foreach $key (keys %hours) { if ($hours{$key} > $highest) { $highest=$hours{$key}; } } foreach $key (keys %hours) { $barsize{$key} = int(($hours{$key} * 250) / $highest); } foreach $key (0..23) { if ($barsize{$key} < 2) { $barsize{$key} = 2; } print "\n"; } print "\n\n"; foreach $key (0..23) { print "\n"; } print "\n\n"; print "\n"; print "\n"; print "

\n"; print "$hours{$key}
\n"; # Balken wird als einspaltige Tabelle mit variabler Hoehe realisiert print "\n"; print "

\n"; print "

$key

Uhrzeit

\n"; print "

\n"; } # Calculate stats by Date # ----------------------- sub by_date { $highest=0; undef %barsize; foreach $key (keys %dates) { if ($dates{$key} > $highest) { $highest=$dates{$key}; } } foreach $key (keys %dates) { $barsize{$key} = int(($dates{$key} * 350) / $highest); } print "

Abrufstatistik der letzten 30 Tage

\n"; print "

\n"; print "\n"; foreach $tag (sort {$a cmp $b} (keys %dates)) { print "\n"; print "\n"; print "\n"; print "\n"; } print "

$tag

$dates{$tag}

\n"; # Balken wird als einzeilige Tabelle mit variabler Breite realisiert print "\n"; print "

\n"; print "

\n"; } # Information on accessed HTML-pages # ---------------------------------- sub by_html { print "

Zugriffe pro HTML-Seite

\n"; print "\n"; # sortiere die WWW-Seiten vor der Augabe foreach $page (sort(keys %pages)) { $page=~ s/[\<\>]//g; print ""; print "\n"; } print "

$page

$pages{$page}

\n"; } sub fuss { print "\n"; print "\n"; } sub datum { ($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 ($mon < 10) { $mon = "0$mon"; } if ($mday < 10) { $mday = "0$mday"; } $month = $mon + 1; $year = $year + 1900; @months1 = ("Januar","Februar","März","April","Mai","Juni","Juli","August","September","Oktober","November","Dezember"); @months2 = ("Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec"); $date_1 = "$mday.$month $year"; $date_2 = "$mday/$months2[$mon]/$year"; $long_date = "$mday\. $months1[$mon] $year ($hour\.$min Uhr)"; }