How can make this more elegant? going from _3 to_ 4 & its really slow.....

[poozle76]

<PRE>
Date Impressions Clickthroughs Rate
<?
$SCRIPT_DIR = dirname($SCRIPT_NAME); // http base dir

// Note: $PATH_INFO contains a leading "/"
if($PATH_INFO && file_exists("$PHP_SITE_DATA/ltbx_ads$PATH_INFO")) 
	$dir = substr($PATH_INFO, 1, strlen($PATH_INFO));
$path = "$PHP_SITE_DATA/ltbx_ads/$dir";


if(is_dir($path)) {
	$clickthrough_log = "$path/clickthrough_log";
	$impression_log = "$path/impression_log";
	if(is_file($impression_log)) {
		$log = file($impression_log);
		for($i = 0; $i < count($log); $i++) {
			if(eregi("\[(.*):..:..:.. -0800\]", $log[$i], $tok)) {
				$date = $tok[1];
				$imp_tally[$date]++;
			} else {
				$imp_tally[unknown]++;
			}
		}
	}
	if(is_file($clickthrough_log)) {
		$log = file($clickthrough_log);
		for($i = 0; $i < count($log); $i++) {
			if(eregi("\[(.*):..:..:.. -0800\]", $log[$i], $tok)) {
				$date = $tok[1];
				$clk_tally[$date]++;
			} else {
				$clk_tally[unknown]++;
			}
		}
	}
	if($imp_tally) {
		ksort($imp_tally);
		for(reset($imp_tally); key($imp_tally); next($imp_tally)) {
			$key = key($imp_tally);
			if(!$clk_tally[$key]) {
				$clk_tally[$key] = 0;
			}
			$rate = $clk_tally[$key] * 100 / $imp_tally[$key];
			echo "$key\t$imp_tally[$key]\t\t$clk_tally[$key]\t\t";
			printf("%01.2f", $rate);
			echo "%\n";
		}
	}
} else {
	echo "No such ad.<BR>\n";
	echo "<A HREF=$HTTP_REFERER>BACK</A>\n";
}

?>
</PRE>