#!/perl/bin/perl -w

use CGI;

$q = new CGI;

for $key ( $q->param() ) { $form{$key} = $q->param($key); }

$logpath = "data/browser.dat";  

$temppath = "C:/Documents and Settings/Owner/My Documents/My Website/cgi-bin/data/temp.dat";

$browser = $form{'browser'};

open (LOG, "$logpath");
@data = <LOG>;
close(LOG);

$not_found = 1;

if($browser) { 
	open (LOG, ">$logpath");
	foreach $line(@data) {
		chomp($line);
		($fcount,$fbrowser)= split(/\|/,$line);
		if ($fbrowser eq $browser) {
		$not_found = 0;
		$fcount = $fcount+1;
		print LOG "$fcount|$fbrowser\n";
		}
		else {
		print LOG "$line\n";
		}	
	}
	close(LOG);

	if($not_found) {
	open (LOG,">>$logpath");
	print LOG "1|$browser";
	close(LOG);
	}
}

# prints out log and form to browser

print "Content-type: text/html\n\n";

open (LOG, "$logpath");
@data = <LOG>;
close(LOG);

foreach $line(@data) {
chomp($line);
print "$line<br>";
}
close(LOG);

print <<EOT;
<FORM ACTION="basic.pl" METHOD="POST">
<SELECT NAME="browser">
	<OPTION VALUE="microsoft">microsoft</OPTION>
	<OPTION VALUE="netscape">netscape</OPTION>
	<OPTION VALUE="aol">aol</OPTION>
	<OPTION VALUE="mozilla">mozilla</OPTION>
	<OPTION VALUE="opera">opera</OPTION>
	</SELECT>
<INPUT TYPE="SUBMIT" VALUE="Submit">
</FORM>

EOT




# If you would like to suggest a better way to sort here is the rest of the code.

sub getBrowsers { 
%browse=();
open(INF,"$logpath") || print "Cannot open logs.dat file\n";
@hits= <INF>;
close(INF);

open(TEMP,">>$temppath") || print "Cannot open temp.dat file\n";
foreach $i (@hits) {
	chomp($i);
	($hits,$browser)= split(/\|/,$i);
	for ($t=1;$t<$hits;$t++) {
	print TEMP "$browser\n";
	}
}
close(TEMP);

open(TEMP,"$temppath") || print "Cannot open temp.dat file\n";
@temp= <TEMP>;
close(TEMP);


foreach $i (@temp) {
	$browse{$i}++;
}
print <<EOT;
	<TABLE width="99%" cellpadding="3" cellspacing="1" border="0" bgColor="#0080ff">
	<TR><TD bgColor="#ccccff" height="25" colspan="2"><SPAN class="title">Top Browsers</SPAN></TD></TR>
EOT
$max = 1;
foreach $key (sort BrowserSort (keys(%browse))) { 
	($max > $browse{$key}) || ($max = $browse{$key});
	($max >= 401) && ($divisor = $max/401);
	($max < 401) && ($multiplier = 401/$max);
	($divisor) && ($width = sprintf("%0d",$browse{$key}/$divisor));
	($multiplier) && ($width = sprintf("%0d",$browse{$key} * $multiplier));
	print "<tr><td bgColor=\#FFFFFF align=left><a href=$key>$key</a><br><img src=../images/pix.gif width=1 height=2><br>
	<img src=../images/blue.gif width=$width height=10></td><td 	bgColor=\#FFFFFF align=right valign=bottom>$browse{$key}</td></tr>\n";
}
print "</table><p>\n";
} 

sub BrowserSort { 
  $browse{$b} <=> $browse{$a}; 
} 
	
&getBrowsers;

unlink($temppath);