#!/usr/bin/perl #AUTHOR: Tekno Inform AS #Creation date: 28.02.03 $cmdstr=""; # Buffer for total htlm commands $fpath = $0; while (chop($fpath) ne '\\') {} $logdir ="./rating/"; # Rel. position of log directory $sum=0;$gsum=0;$g2sum=0;$productsum=0;$gproductsum=0; $g2productsum=0;$gsnitt=0; $g2snitt=0; # Local and global sum $totteller=0; # Global MAIN: { $savj=0;$savj0=0;$savj1=0;$savj2=0; # Global values require "$fpath/cgi-lib.pl"; &date(); print "Content-type: text/html\n\n"; print "Ratelist at ".$date.", kl. ".$time.":
"; # Check IP ************************************************* my $myipfile=$logdir."ip-donot.log"; # IP's to not log if (open(FIL, "<$myipfile")) { $avoid_ip=; close(FIL); } $remote_host=$ENV{'REMOTE_HOST'}; # IP (Hostname of visitor) #my $temp=$avoid_ip; #$temp=~s/$remote_host//; # Remove his IP from string my $ip_check=0; if ($avoid_ip =~ /$remote_host/) {$ip_check=0;} # $remote_host is found in $avoid_ip else {$ip_check=1; } if ("$remote_host" ne "$avoid_ip") {$ip_check=1;} # Temp solution, till problem over solved else {$ip_check=0;} # End of ip check ******************************************* print "IP not to log: ".$avoid_ip."
"; print "Your IP: $remote_host "; #$ip_check= 0; ### DEBUGGING VALUE ### if ($ip_check == 0) {print "will not be logged

";} else { print "will update file, will not be logged from now on...

"; if (open(FIL, ">$myipfile")) { print FIL $remote_host; # With newline close(FIL); } } ; # Reset start values $outstr=""; $tot_string.=""; # Logistikk.info $outstr.=" Logistikk.info"; $cmdstr=""; $gsum=0; $gproductsum=0; $gsnitt=0; # Buffer away the command string $cmdstr.="12345678910AntallSnitt"; $cmdstr.="Forsiden:";&read_rate("c_logistikk_forside_",".log");$cmdstr.=""; $outstr.="Snitt:".$gsnitt."Antall:".$gsum.""; $outstr.=$cmdstr; #$i=1;$c=&log_c_read("c_ledelse_kvalitet_".$i.".log");$sum+=$c;$productsum+=$i*$c;$cmdstr.="".$c.""; $tot_string.=$outstr; $outstr=""; # Ledelse.info $outstr.=" Ledelse.info"; $cmdstr=""; $gsum=0; $gproductsum=0; $gsnitt=0; # Buffer away the command string $cmdstr.="12345678910AntallSnitt"; $cmdstr.="Led_hj1:";&read_rate("c_led_hj1_",".log");$cmdstr.=""; $cmdstr.="Led_hj2:";&read_rate("c_led_hj2_",".log");$cmdstr.=""; $cmdstr.="Ledelse_hj1:";&read_rate("c_ledelse_hj1_",".log");$cmdstr.=""; $cmdstr.="Kvalitet:";&read_rate("c_ledelse_kvalitet_",".log");$cmdstr.=""; $cmdstr.="Perspektiv:";&read_rate("c_ledelse_perspektiv_",".log");$cmdstr.=""; $cmdstr.="Funksjon:";&read_rate("c_ledelse_funksjon_",".log");$cmdstr.=""; $cmdstr.="Strategiprosessen:";&read_rate("c_ledelse_strategi_",".log");$cmdstr.=""; $cmdstr.="Tøffe tider:";&read_rate("c_ledelse_kosteff_",".log");$cmdstr.=""; $cmdstr.="Bedre i praksis:";&read_rate("c_ledelse_bedreipr_",".log");$cmdstr.=""; $cmdstr.="Bus-balls:Utviklingsråd:";&read_rate("c_ledelse_bus_utvrad_",".log");$cmdstr.=""; $cmdstr.="Bus-balls:Lederadferd:";&read_rate("c_ledelse_bus_adferd_",".log");$cmdstr.=""; $cmdstr.="Bus-balls:Sitater:";&read_rate("c_ledelse_bus_sitat_",".log");$cmdstr.=""; $outstr.="Snitt:".$gsnitt."Antall:".$gsum.""; $outstr.=$cmdstr; #$i=1;$c=&log_c_read("c_ledelse_kvalitet_".$i.".log");$sum+=$c;$productsum+=$i*$c;$cmdstr.="".$c.""; $tot_string.=$outstr; $outstr=""; # Info.no $outstr.=" Info.no"; $cmdstr=""; $gsum=0; $gproductsum=0; $gsnitt=0; # Buffer away the command string $cmdstr.="12345678910AntallSnitt"; $cmdstr.="Info.no:";&read_rate("c_info.no_main_",".log");$cmdstr.=""; $outstr.="Snitt:".$gsnitt."Antall:".$gsum.""; $outstr.=$cmdstr; $tot_string.=$outstr; $outstr=""; # Calc.no $outstr.=" Calc.no"; $cmdstr=""; $gsum=0; $gproductsum=0; $gsnitt=0; # Buffer away the command string $cmdstr.="12345678910AntallSnitt"; $cmdstr.="Calc.no:";&read_rate("c_calc.no_",".log");$cmdstr.=""; $outstr.="Snitt:".$gsnitt."Antall:".$gsum.""; $outstr.=$cmdstr; $tot_string.=$outstr; $outstr=""; # Uteliv.info $outstr.=" Uteliv.info"; $cmdstr=""; $gsum=0; $gproductsum=0; $gsnitt=0; # Buffer away the command string $cmdstr.="12345678910AntallSnitt"; $cmdstr.="Uteliv.info:";&read_rate("c_uteliv_",".log");$cmdstr.=""; $outstr.="Snitt:".$gsnitt."Antall:".$gsum.""; $outstr.=$cmdstr; $tot_string.=$outstr; $outstr=""; # End of reading, Create Heading $outstr=""; # Calculate the overall average if ($g2sum > 0) {$g2snitt= $g2productsum / $g2sum;} else {$g2snitt="-";} ; $outstr.=""; $outstr.=""; print $outstr; $outstr=""; print $tot_string; $outstr="
RATING FOR ULIKE HJEMMESIDER
Alle siderSnitt:".$g2snitt."Antall:".$g2sum."
"; print $outstr; $outstr=""; exit; } # ************************************************************************* # Read rating data sub read_rate { $file = shift;$fileext=shift; $sum=0;$productsum=0; # Initvariables $i=1;$c=&log_c_read($file."".$i.".log");$sum+=$c;$productsum+=$i*$c;$cmdstr.="".$c.""; $i=2;$c=&log_c_read($file."".$i.".log");$sum+=$c;$productsum+=$i*$c;$cmdstr.="".$c.""; $i=3;$c=&log_c_read($file."".$i.".log");$sum+=$c;$productsum+=$i*$c;$cmdstr.="".$c.""; $i=4;$c=&log_c_read($file."".$i.".log");$sum+=$c;$productsum+=$i*$c;$cmdstr.="".$c.""; $i=5;$c=&log_c_read($file."".$i.".log");$sum+=$c;$productsum+=$i*$c;$cmdstr.="".$c.""; $i=6;$c=&log_c_read($file."".$i.".log");$sum+=$c;$productsum+=$i*$c;$cmdstr.="".$c.""; $i=7;$c=&log_c_read($file."".$i.".log");$sum+=$c;$productsum+=$i*$c;$cmdstr.="".$c.""; $i=8;$c=&log_c_read($file."".$i.".log");$sum+=$c;$productsum+=$i*$c;$cmdstr.="".$c.""; $i=9;$c=&log_c_read($file."".$i.".log");$sum+=$c;$productsum+=$i*$c;$cmdstr.="".$c.""; $i=10;$c=&log_c_read($file."".$i.".log");$sum+=$c;$productsum+=$i*$c;$cmdstr.="".$c.""; $gsum+=$sum;$gproductsum+=$productsum; # Keep the global sum (for this homepage) $g2sum+=$sum;$g2productsum+=$productsum; # Keep the global sum (for alle homepages) if ($sum > 0) {$snitt= $productsum / $sum;} else {$snitt="-";} ; if ($gsum > 0) {$gsnitt= $gproductsum / $gsum;} else {$gsnitt="-";} ; $cmdstr.="".$sum."".$snitt.""; } sub date { ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time+$addsecs); @months = ("01","02","03","04","05","06","07","08","09","10","11","12"); @days = ("Sun","Mon","Tue","Wed","Thu","Fri","Sat"); if ($sec < 10) {$sec = "0$sec";} if ($min < 10) {$min = "0$min";} if ($hour < 10) {$hour = "0$hour";} if ($hour > 11) {$ap = "PM";} if ($hour < 12) {$ap = "AM";} if ($mday < 10) {$mday = "0$mday";} $year+=1900; #$date = "@days[$wday] @months[$mon]/$mday/$year"; #$time = "$hour:$min:$sec $ap"; $date = "$year-@months[$mon]-$mday @days[$wday] "; $time = "$hour:$min:$sec"; return; } ############################## sub log_c_read{ ############################## my $string=""; my $teller=0; # my $resource=$_[0]; #Ressursnr. my $filnavn=shift; #Ressursnr. $filnavn=$logdir.''.$filnavn; if (open(FIL, "<$filnavn")) { $string=; close(FIL); } if ($string ne "") {$teller=$string;} else {$teller=0;}; $totteller+=$teller; # Global Increment return $teller; } ############################## sub log_r_read{ # Rating ############################## my $string=""; # my $resource=$_[0]; #Ressursnr. my $filnavn=shift; #Ressursnr. $filnavn=$logdir.''.$filnavn; if (open(FIL, "<$filnavn")) { $avg=; # Rating $antall=; # Antall $string = $avg." (".$antall." stemmer)"; close(FIL); } return $string; }