#!/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 ="./log/"; # Rel. position of log directory


$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 ";
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);
    } 




}
;


$cmdstr.="<table>";

$cmdstr.="<tr><td><b>Logistikk</b></td></tr>";
$cmdstr.="<tr><td>Logistikk.info</td><td>Fors</td><td>Om</td><td>Nyhet</td><td>Tjen</td><td>Metod</td><td>Link</td></tr>";
$cmdstr.="<tr><td>".&log_c_read("c_logistikk.no_.log")."</td><td>".&log_c_read("c_logistikk.no_fors.log")."</td><td>".&log_c_read("c_logistikk.no_om.log")."</td><td>".&log_c_read("c_logistikk.no_nyh.log")."</td><td>".&log_c_read("c_logistikk.no_tjen.log")."</td><td>".&log_c_read("c_logistikk.no_met.log")."</td><td>".&log_c_read("c_logistikk.no_link.log")."</td></tr>";
$cmdstr.="<tr><td>Logseminar (1-5)</td><td>".&log_c_read("c_logistikk.no_sem.log")."</td><td>".&log_c_read("c_logistikk.no_sem2.log")."</td><td>".&log_c_read("c_logistikk.no_sem3.log")."</td><td>".&log_c_read("c_logistikk.no_sem4.log")."</td><td>".&log_c_read("c_logistikk.no_sem5.log")."</td></tr>";
$cmdstr.="<tr><td>Pallreg (0-1)</td><td>0:".&log_c_read("c_pallreg.info_0.log")."</td><td>Oppdat:".&log_c_read("c_pallreg.info_1.log")."</td><td>Logl-led:".&log_c_read("c_pallreg.info_2.log")."</td></tr>";

$cmdstr.="<tr><td><br><b>Kampanjesider </b></td></tr>";
$cmdstr.="<tr><td>Log.seminar</td><td>1:".&log_c_read("c_logistikk.no_sem.log")."</td><td>2:".&log_c_read("c_logistikk.no_sem2.log")."</td><td>3:".&log_c_read("c_logistikk.no_sem3.log")."</td><td>4:".&log_c_read("c_logistikk.no_sem4.log")."</td><td>5:".&log_c_read("c_logistikk.no_sem5.log")."</td></tr>";
$cmdstr.="<tr><td>Ad 20030618: Seminar</td><td>".&log_c_read("c_ad.no_20030618.log")."</td></tr>";
$cmdstr.="<tr><td>Ad 20030626: Pizza</td><td>".&log_c_read("c_ad.no_20030626.log")."</td></tr>"; 
$cmdstr.="<tr><td>Ad 20030815: Bolig</td><td>".&log_c_read("c_ad.no_20030815.log")."</td>";$cmdstr.="<td>Ad 20030908: Hotell</td><td>".&log_c_read("c_ad.no_20030908.log")."</td></tr>";
$cmdstr.="<tr><td colspan=4>----Inngår ikke i totalsum nedenfor-------</td></tr>"; # 
$cmdstr.="<tr><td>&nbsp;</td></tr>"; # 

$cmdstr.="<tr><td>Ressurs</td><td>Sum</td><td>x</td><td>Hov.side(0)</td><td>x</td><td>x</td>";
$cmdstr.="<tr><td colspan=5><hr></td></tr>"; 
$cmdstr.="<tr><td><b>KN sider </b></td></tr>"; # Kurt Nilsen
&read_any("KurtNilsen.no:","kurtnilsen.no");
&read_any("Pizza.no:","pizza.no");
$cmdstr.="<tr><td colspan=4>----Inngår ikke i totalsum nedenfor-------</td></tr>"; # 
$cmdstr.="<tr><td>&nbsp;</td></tr>"; # 
$totteller=0; # Global

$cmdstr.="<tr><td><b>INFO sider </td></tr>"; # Alle
$cmdstr.="<tr><td><b>Totalt sider:</b></td><td><b>xxxyyyxxx</b></td>"; # Alle
$cmdstr.="<td>Inn:</td><td><b>xxxyy4xxx</b></td>"; # Alle søk.
$cmdstr.="<td>Ut(info):</td><td><b>xxxyy5xxx</b></td></tr>"; # Alle ex. infoteller
$cmdstr.="<tr><td></td><td></td><td>Inn(ex.info):</td><td>xxxyy3xxx</td>"; # Alle ex. infoteller
$cmdstr.="<td>Inn(info):</td><td>xxxyy2xxx</td></tr>"; # Alle ex. infoteller
#require "$fpath/c_bolig.info.log"; 

#$cmdstr.="<tr><td>Bolig.info:  </td><td>".&log_c_read("c_bolig.info.log")."</td>";
$cmdstr.="<tr><td>Ressurs</td><td>Sum</td><td>1/3-14/5</td><td>Hov.side(0)</td><td>Plant(1)</td><td>Ukens(2)</td>";
&read_any("Bolig.info:","bolig.info");

$cmdstr.="<tr><td>Arrobe.info:  </td><td>".&log_c_read("c_arrobe.info.log")."</td></tr>";
$cmdstr.="<tr><td>Min.info:  </td><td>".&log_c_read("c_min.info.log")."</td></tr>";
$cmdstr.="<tr><td>Ledelse.info:</td><td>".&log_c_read("c_ledelse.info.log")."</td></tr>";
$cmdstr.="<tr><td>Borsen.info:</td><td>".&log_c_read("c_borsen.info.log")."</td></tr>";
$cmdstr.="<tr><td>Person.no:  </td><td>".&log_c_read("c_person.no.log")."</td></tr>";
$cmdstr.="<tr><td>Sykkel.info:  </td><td>".&log_c_read("c_sykkel.info.log")."</td></tr>";
$cmdstr.="<tr><td>Uteliv.info:  </td><td>".&log_c_read("c_uteliv.info.log")."</td></tr>";
$cmdstr.="<tr><td>- sommerpar:  </td><td>".&log_c_read("c_uteliv.info_som.log")."</td><td>".&log_c_read("c_uteliv.info_som1.log")."</td><td>".&log_c_read("c_uteliv.info_som2.log")."</td><td>".&log_c_read("c_uteliv.info_som3.log")."</td>";
$cmdstr.="<td></td><td>4:".&log_c_read("c_uteliv.info_som4.log")."</td><td>".&log_c_read("c_uteliv.info_som5.log")."</td></tr><tr><td>6:".&log_c_read("c_uteliv.info_som6.log")."</td><td>".&log_c_read("c_uteliv.info_som7.log")."</td><td>".&log_c_read("c_uteliv.info_som10.log")."</td>";
$cmdstr.="<td></td><td>11:".&log_c_read("c_uteliv.info_som11.log")."</td><td>12:".&log_c_read("c_uteliv.info_som12.log")."</td><td>an:".&log_c_read("c_uteliv.info_som13.log")."</td><td>c2:".&log_c_read("c_uteliv.info_som14.log")."</td></tr>";

$cmdstr.="<tr><td>Uteliv.nad:  </td><td>o:".&log_c_read("c_uteliv.info_nadia.log")."</td><td>x:".&log_c_read("c_uteliv.info_nadiax.log")."</td></tr>";

$tot3=$totteller; # Save this value!


# ****************************************************
$cmdstr.="<tr><td><br><b>INFO.NO</b></br>";
#require "$fpath/c_info.no.log"; 

$cmdstr.="<tr><td><u>Info.no (inn):  </td><td>".&log_c_read("c_info.no.log")."</u></td><td colspan=3>Rating:".&log_r_read("r_info.no.log")."</td></tr>";
$tot4=$totteller; # Save this value!
$cmdstr.="<tr><td><u>Søk med info(ut):</u></td><td><b>xxxyy5xxx</b></td></tr>";


$cmdstr.="<tr><td>Kommentar (150):  </td><td>".&log_c_read("go_r150.log")."</u></td><td></td></tr>";
$cmdstr.="<tr><td>Google (132):  </td><td>".&log_c_read("go_r132.log")."</u></td><td>x</td></tr>";
$cmdstr.="<tr><td>Fast (108):  </td><td>".&log_c_read("go_r108.log")."</u></td><td>x</td></tr>";
$cmdstr.="<tr><td>Nettguide (133):</td><td>".&log_c_read("go_r133.log")."</u></td><td>x</td></tr>";

$cmdstr.="<tr><td>Translate (142):</td><td>  ".&log_c_read("go_r142.log")."</td></tr>";
$cmdstr.="<tr><td>TransUrl (143):</td><td>  ".&log_c_read("go_r143.log")."</td></tr>";
$cmdstr.="<tr><td>Calc.no (145):</td><td>  ".&log_c_read("go_r145.log")."</td></tr>";

$cmdstr.="<tr><td>Kvasir (102):</td><td>  ".&log_c_read("go_r102.log")."</td></tr>";
$cmdstr.="<tr><td>Yahoo (103):</td><td>  ".&log_c_read("go_r103.log")."</td></tr>";
$cmdstr.="<tr><td>Startsiden (104):</td><td>  ".&log_c_read("go_r104.log")."</td></tr>";
$cmdstr.="<tr><td>AltaVista (106):</td><td>  ".&log_c_read("go_r106.log")."</td></tr>";
$cmdstr.="<tr><td>Telefonkat (125):</td><td>  ".&log_c_read("go_r125.log")."</td></tr>";
$cmdstr.="<tr><td>GuleSider (126):</td><td>  ".&log_c_read("go_r126.log")."</td></tr>";

$cmdstr.="<tr><td>Lycos (107):</td><td>  ".&log_c_read("go_r107.log")."</td></tr>";
$cmdstr.="<tr><td>HotBot (109):</td><td>  ".&log_c_read("go_r109.log")."</td></tr>";
$cmdstr.="<tr><td>AskJeeves (110):</td><td> ".&log_c_read("go_r110.log")."</td></tr>";
$cmdstr.="<tr><td>Br.sund (118):</td><td>  ".&log_c_read("go_r118.log")."</td></tr>";
$cmdstr.="<tr><td>Br.kunngj (148):</td><td>  ".&log_c_read("go_r148.log")."</td></tr>";
$cmdstr.="<tr><td>Bizw firma (119):</td><td>  ".&log_c_read("go_r119.log")."</td></tr>";
$cmdstr.="<tr><td>Biz person (138):</td><td>  ".&log_c_read("go_r138.log")."</td></tr>";
$cmdstr.="<tr><td>Lovdata (122):</td><td>  ".&log_c_read("go_r122.log")."</td></tr>";
$cmdstr.="<tr><td>Lovforskr (136):</td><td>  ".&log_c_read("go_r136.log")."</td></tr>";
$cmdstr.="<tr><td>Norge (123):</td><td>  ".&log_c_read("go_r123.log")."</td></tr>";
$cmdstr.="<tr><td>Stockl/aksje (146):</td><td>  ".&log_c_read("go_r146.log")."</td></tr>";
$cmdstr.="<tr><td>NorthernLight (1111):</td><td>  ".&log_c_read("go_r111.log")."</td></tr>";
$cmdstr.="<tr><td>Oops (112):</td><td>  ".&log_c_read("go_r112.log")."</td></tr>";
$cmdstr.="<tr><td>Brittanica (113):</td><td>  ".&log_c_read("go_r113.log")."</td></tr>";
$cmdstr.="<tr><td>Caplex artkl(114):</td><td>  ".&log_c_read("go_r114.log")."</td></tr>";
$cmdstr.="<tr><td>Aftenpost (115):</td><td>  ".&log_c_read("go_r115.log")."</td></tr>";
$cmdstr.="<tr><td>DinSide (116):</td><td>  ".&log_c_read("go_r116.log")."</td></tr>";
$cmdstr.="<tr><td>Bedr (120):</td><td>  ".&log_c_read("go_r117.log")."</td></tr>";
$cmdstr.="<tr><td> (120):</td><td>  ".&log_c_read("go_r120.log")."</td></tr>";
$cmdstr.="<tr><td>Offe (121):</td><td>  ".&log_c_read("go_r121.log")."</td></tr>";
$cmdstr.="<tr><td> (124):</td><td>  ".&log_c_read("go_r124.log")."</td></tr>";
$cmdstr.="<tr><td> (127):</td><td>  ".&log_c_read("go_r127.log")."</td></tr>";
$cmdstr.="<tr><td> (130):</td><td>  ".&log_c_read("go_r130.log")."</td></tr>";
$cmdstr.="<tr><td>Post (131):</td><td>  ".&log_c_read("go_r131.log")."</td></tr>";
$cmdstr.="<tr><td> (135):</td><td>  ".&log_c_read("go_r135.log")."</td></tr>";
$cmdstr.="<tr><td> (137):</td><td>  ".&log_c_read("go_r137.log")."</td></tr>";
$cmdstr.="<tr><td>Caplex (139):</td><td>  ".&log_c_read("go_r139.log")."</td></tr>";
$cmdstr.="<tr><td>Aftenpo.gate (140):</td><td>  ".&log_c_read("go_r140.log")."</td></tr>";
$cmdstr.="<tr><td>Gules/bransje (141):</td><td>  ".&log_c_read("go_r141.log")."</td></tr>";
$cmdstr.="<tr><td>Artikkel (147):</td><td>  ".&log_c_read("go_r147.log")."</td></tr>";
$cmdstr.="<tr><td>Ukjent (000):</td><td>  ".&log_c_read("go_r000.log")."</td></tr>";
$cmdstr.="<tr><td>Frit (105):</td><td>  ".&log_c_read("go_r105.log")."</td></tr>";
#$cmdstr.="<tr><td><b>Totalt:</b></td><td><b>$totteller </b></td></tr>";


$cmdstr=~s/xxxyyyxxx/$totteller/gi; # Substitute
$cmdstr=~s/xxxyy3xxx/$tot3/gi; # Substitute
$cmdstr=~s/xxxyy4xxx/$tot4/gi; # Substitute
$tot2=$tot4-$tot3;
$cmdstr=~s/xxxyy2xxx/$tot2/gi; # Substitute
$infoteller=$totteller-$tot4;
$cmdstr=~s/xxxyy5xxx/$infoteller/gi; # Subst.

print $cmdstr;
$cmdstr="";

$saveteller=$totteller; # Save totteller
$cmdstr.="<tr><td colspan=5><br><br>------------------------ Calc.no -------<br></td></tr>";
$cmdstr.="<tr><td>Ressurs</td><td>Sum</td><td>Unused</td><td>Mode1</td><td>Mode2</td><td>Mode0</td>";

&read_calc("Inngang","0");
&read_calc("Introx","1");
&read_calc("Eksempler","2");
&read_calc("Moms","4");
&read_calc("Mål&vekt","5");
&read_calc("Valuta","6");
&read_calc("Rente","8");
&read_calc("Lagre","15");
&read_calc("Karakter","19");
&read_calc("Programm.","22");
&read_calc("Skjerm","23");
&read_calc("Dim.anal.","24");
&read_calc("Arb.tid","28");
&read_calc("Avans.tips","20");
&read_calc("Lær matm.","7");
&read_calc("SOS","9");
$cmdstr.="<tr><td colspan=5>&nbsp;</td></tr>";
$cmdstr.="<tr><td colspan=5>------------------------------------</td></tr>";

$j9=$totteller;
$i=$totteller-$saveteller;
$cmdstr.="<tr><td><b>TOTALT CALC:</td><td>".$i."</b></td><td>$savj</td><td>$savj1</td><td>$savj2</td><td>$savj0</td></tr>";
$cmdstr.="<tr><td colspan=5>----Utenlandske----------------------------</td></tr>";
&read_calc("Engelsk","en");
&read_calc("Amerikansk","us");
&read_calc("Svensk","se");
&read_calc("Dansk","dk");
&read_calc("Øvrig","xx");
$cmdstr.="<tr><td colspan=5>------------------------------------</td></tr>";
$cmdstr.="<tr><td><br><br></td></tr>";
$cmdstr.="<tr><td><b>TOTALT ALLE:</td><td>".$j9."</b></td></tr>";
$cmdstr.="</table>";

$cmdstr=~s/xxyy33xx/$i/gi; # Substitute, insert %-vis.


print $cmdstr;



exit;
}

#  Read calc data
sub read_calc {
		$t = shift; # Text to read
		$n = shift; # Number to read
		$j=&log_c_read("c_calc.no_".$n.".log"); # Old
		$j1=&log_c_read("c_calc.no_".$n."_1.log"); # Mode 1
		$j2=&log_c_read("c_calc.no_".$n."_2.log"); # Mode 2
		$j0=&log_c_read("c_calc.no_".$n."_0.log"); # Mode 0
		$jx=$j+$j0+$j1+$j2;
		$cmdstr.="<tr><td>$t ($n):</td><td>$jx</td><td>$j</td><td>$j1</td><td>$j2</td><td>$j0</td>";

		$savj+=$j;$savj0+=$j0;$savj1+=$j1;$savj2+=$j2; # Save coloumns sum
}		

#  Read calc data
sub read_any {
		$t = shift; # Text to print
		$f = shift; # File name
		$j=&log_c_read("c_".$f.".log"); # Old 1st.page
		$j0=&log_c_read("c_".$f."_0.log"); # New 1st page
		$j1=&log_c_read("c_".$f."_1.log"); # New 2nd page
		$j2=&log_c_read("c_".$f."_2.log"); # New 2nd page
		$jx=$j+$j0+$j1+$j2;
		$cmdstr.="<tr><td>$t:</td><td>$jx</td><td>$j</td><td>$j0</td><td>$j1</td><td>$j2</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;
}