#!/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;$productsum=0;$gproductsum=0; $gsnitt; # 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 "<u>Loglist at ".$date.", kl. ".$time.":</u><br>";

# Check IP *************************************************
	my $myipfile=$logdir."ip-donot.log"; # IP's to not log

 	if (open(FIL, "<$myipfile")) { 
 		$avoid_ip=<FIL>;
 		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."<br>";
print "Your IP: $remote_host ";

#$ip_check= 0; ### DEBUGGING VALUE ###

if ($ip_check == 0) {print "will not be logged<br><br>";}
else {
	print "will update file, will not be logged from now on...<br><br>";
 	if (open(FIL, ">$myipfile")) { 
		print FIL $remote_host; # With newline
 		close(FIL);
    } 
}
;


$outstr="<table border=1><td colspan=13>RATING FOR ULIKE HJEMMESIDER</td>";
print $outstr; $outstr="";


# Logistikk.info
$outstr.="<tr><td colspan=13>&nbsp;</td></tr><tr><td colspan=1><b>Logistikk.info</b></td>";
$cmdstr=""; $gsum=0; $gproductsum=0; $gsnitt=0; # Buffer away the command string
$cmdstr.="<tr><td></td><td>1</td><td>2</td><td>3</td><td>4</td><td>5</td><td>6</td><td>7</td><td>8</td><td>9</td><td>10</td><td>Antall</td><td>Snitt</td></tr>";
$cmdstr.="<tr><td>Forsiden:</td>";&read_rate("c_logistikk_forside_",".log");$cmdstr.="</tr>";
$outstr.="<td colspan=10><b>Snitt:".$gsnitt."</td><td colspan=2>Antall:".$gsum."</td></tr>";
$outstr.=$cmdstr;
#$i=1;$c=&log_c_read("c_ledelse_kvalitet_".$i.".log");$sum+=$c;$productsum+=$i*$c;$cmdstr.="<td>".$c."</td>";
print $outstr; $outstr="";

# Ledelse.info
$outstr.="<tr><td colspan=13>&nbsp;</td></tr><tr><td colspan=1><b>Ledelse.info</b></td>";
$cmdstr=""; $gsum=0; $gproductsum=0; $gsnitt=0; # Buffer away the command string
$cmdstr.="<tr><td></td><td>1</td><td>2</td><td>3</td><td>4</td><td>5</td><td>6</td><td>7</td><td>8</td><td>9</td><td>10</td><td>Antall</td><td>Snitt</td></tr>";
$cmdstr.="<tr><td>Led_hj1:</td>";&read_rate("c_led_hj1_",".log");$cmdstr.="</tr>";
$cmdstr.="<tr><td>Led_hj2:</td>";&read_rate("c_led_hj2_",".log");$cmdstr.="</tr>";
$cmdstr.="<tr><td>Ledelse_hj1:</td>";&read_rate("c_ledelse_hj1_",".log");$cmdstr.="</tr>";
$cmdstr.="<tr><td>Kvalitet:</td>";&read_rate("c_ledelse_kvalitet_",".log");$cmdstr.="</tr>";
$cmdstr.="<tr><td>Perspektiv:</td>";&read_rate("c_ledelse_perspektiv_",".log");$cmdstr.="</tr>";
$cmdstr.="<tr><td>Funksjon:</td>";&read_rate("c_ledelse_funksjon_",".log");$cmdstr.="</tr>";
$cmdstr.="<tr><td>Strategiprosessen:</td>";&read_rate("c_ledelse_strategi_",".log");$cmdstr.="</tr>";
$cmdstr.="<tr><td>Tøffe tider:</td>";&read_rate("c_ledelse_kosteff_",".log");$cmdstr.="</tr>";
$cmdstr.="<tr><td>Bedre i praksis:</td>";&read_rate("c_ledelse_bedreipr_",".log");$cmdstr.="</tr>";
$cmdstr.="<tr><td>Bus-balls:Utviklingsråd:</td>";&read_rate("c_ledelse_bus_utvrad_",".log");$cmdstr.="</tr>";
$cmdstr.="<tr><td>Bus-balls:Lederadferd:</td>";&read_rate("c_ledelse_bus_adferd_",".log");$cmdstr.="</tr>";
$cmdstr.="<tr><td>Bus-balls:Sitater:</td>";&read_rate("c_ledelse_bus_sitat_",".log");$cmdstr.="</tr>";

$outstr.="<td colspan=10><b>Snitt:".$gsnitt."</td><td colspan=2>Antall:".$gsum."</td></tr>";
$outstr.=$cmdstr;
#$i=1;$c=&log_c_read("c_ledelse_kvalitet_".$i.".log");$sum+=$c;$productsum+=$i*$c;$cmdstr.="<td>".$c."</td>";
print $outstr; $outstr="";

# Info.no
$outstr.="<tr><td colspan=13>&nbsp;</td></tr><tr><td colspan=1><b>Info.no</b></td>";
$cmdstr=""; $gsum=0; $gproductsum=0; $gsnitt=0; # Buffer away the command string
$cmdstr.="<tr><td></td><td>1</td><td>2</td><td>3</td><td>4</td><td>5</td><td>6</td><td>7</td><td>8</td><td>9</td><td>10</td><td>Antall</td><td>Snitt</td></tr>";
$cmdstr.="<tr><td>Info.no:</td>";&read_rate("c_info.no_main_",".log");$cmdstr.="</tr>";
$outstr.="<td colspan=10><b>Snitt:".$gsnitt."</td><td colspan=2>Antall:".$gsum."</td></tr>";
$outstr.=$cmdstr;
print $outstr; $outstr="";

# Calc.no
$outstr.="<tr><td colspan=13>&nbsp;</td></tr><tr><td colspan=1><b>Calc.no</b></td>";
$cmdstr=""; $gsum=0; $gproductsum=0; $gsnitt=0; # Buffer away the command string
$cmdstr.="<tr><td></td><td>1</td><td>2</td><td>3</td><td>4</td><td>5</td><td>6</td><td>7</td><td>8</td><td>9</td><td>10</td><td>Antall</td><td>Snitt</td></tr>";
$cmdstr.="<tr><td>Calc.no:</td>";&read_rate("c_calc.no_",".log");$cmdstr.="</tr>";
$outstr.="<td colspan=10><b>Snitt:".$gsnitt."</td><td colspan=2>Antall:".$gsum."</td></tr>";
$outstr.=$cmdstr;
print $outstr; $outstr="";

# Uteliv.info
$outstr.="<tr><td colspan=13>&nbsp;</td></tr><tr><td colspan=1><b>Uteliv.info</b></td>";
$cmdstr=""; $gsum=0; $gproductsum=0; $gsnitt=0; # Buffer away the command string
$cmdstr.="<tr><td></td><td>1</td><td>2</td><td>3</td><td>4</td><td>5</td><td>6</td><td>7</td><td>8</td><td>9</td><td>10</td><td>Antall</td><td>Snitt</td></tr>";
$cmdstr.="<tr><td>Uteliv.info:</td>";&read_rate("c_uteliv_",".log");$cmdstr.="</tr>";
$outstr.="<td colspan=10><b>Snitt:".$gsnitt."</td><td colspan=2>Antall:".$gsum."</td></tr>";
$outstr.=$cmdstr;
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.="<td>".$c."</td>";
	$i=2;$c=&log_c_read($file."".$i.".log");$sum+=$c;$productsum+=$i*$c;$cmdstr.="<td>".$c."</td>";
	$i=3;$c=&log_c_read($file."".$i.".log");$sum+=$c;$productsum+=$i*$c;$cmdstr.="<td>".$c."</td>";
	$i=4;$c=&log_c_read($file."".$i.".log");$sum+=$c;$productsum+=$i*$c;$cmdstr.="<td>".$c."</td>";
	$i=5;$c=&log_c_read($file."".$i.".log");$sum+=$c;$productsum+=$i*$c;$cmdstr.="<td>".$c."</td>";
	$i=6;$c=&log_c_read($file."".$i.".log");$sum+=$c;$productsum+=$i*$c;$cmdstr.="<td>".$c."</td>";
	$i=7;$c=&log_c_read($file."".$i.".log");$sum+=$c;$productsum+=$i*$c;$cmdstr.="<td>".$c."</td>";
	$i=8;$c=&log_c_read($file."".$i.".log");$sum+=$c;$productsum+=$i*$c;$cmdstr.="<td>".$c."</td>";
	$i=9;$c=&log_c_read($file."".$i.".log");$sum+=$c;$productsum+=$i*$c;$cmdstr.="<td>".$c."</td>";
	$i=10;$c=&log_c_read($file."".$i.".log");$sum+=$c;$productsum+=$i*$c;$cmdstr.="<td>".$c."</td>";

	$gsum+=$sum;$gproductsum+=$productsum; # Keep the global sum
	if ($sum > 0) {$snitt= $productsum / $sum;}
	else {$snitt="-";}
	;
	if ($gsum > 0) {$gsnitt= $gproductsum / $gsum;}
	else {$gsnitt="-";}
	;


	$cmdstr.="<td>".$sum."</td><td>".$snitt."</td>";

}





 
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=<FIL>;
 		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=<FIL>;  # Rating
 		$antall=<FIL>; # Antall
		$string = $avg."  (".$antall." stemmer)";
 		close(FIL);
   } 
	
	return $string;
}