0 && strlen($q) < 10) { $q = hexdec($q); } while (!feof($fd)) { $str = fgets($fd, 4096); $splits = array_pad(explode(" ", $str), 3, null); #print("string was: '$str'\n"); #print("splits is: '0:$splits[0] 1:$splits[1] 2:$splits[2]'\n"); $time = explode(".", $splits[0]); array_push($times, $time[0]); if (!$first_time) { $first_time = $time[0]; } array_push($urls, str_replace("\n", "", $splits[1])); if ($splits[2] != null) { array_push($titles, str_replace("\n", "", $splits[2])); } else { array_push($titles, str_replace("\n", "", $splits[1])); } if ($q != null) { if ($splits[0] == $q) { $url = $splits[1]; break; } } } if ($url != "") { header("Location: $url"); print("Redirecting to $url

Redirect

\n"); print("Redirecting to $url"); } else { ?>URLs seen by clickolinko
clickolinko
the automatic web log
URL search: \n", htmlspecialchars($tz)); } if ($showtime != "") { printf("\n", htmlspecialchars($showtime)); } if ($limit != "") { printf("\n", htmlspecialchars($limit)); } printf("\n", htmlspecialchars($search)); ?>
0) { $urls_left = $limit; } else { $urls_left = min(35, count($urls) - 1); } while ($urls && ($urls_left > 0)) { $url = array_pop($urls); $title = array_pop($titles); $time = array_pop($times); if ($url != "" && (substr($url, -4) != ".exe") && ($search == "" || ($search != "" && stristr($url, $search)))) { $purl = $url; $purl = preg_replace("/(http:\/\/[^\/]+\/).*/", '$1', $purl, 1); $hurl = htmlspecialchars($url); $uurl = str_replace("'", "%27", $url); $htitle = htmlspecialchars($title); $utitle = str_replace("'", "%27", $title); if ($showtime == "yes") { $timef = strftime("%Y%b%d %H:%M:%S", $time); print("$timef "); } print("* $hurl"); if ($title != $url) { print(" <-- "); print (str_replace ("%20", " ", $htitle)); } print("
\n"); --$urls_left; if ($urls_left % 5) { flush(); } } } if ($oldtz != "") { putenv("TZ=$oldtz"); strftime("%Y%b%d %H:%M:%S"); } if (0) { # disable for now, no idea how to fix it -sneakums ?>
Log begins %s.\n", strftime("%c %Z", $first_time)); # get todays date $today = getdate(); # get a unix date for the most recent midnight $last_unix_midnight = mktime(00,00,00,$today[mon],$today[mday], $today[year]); # open hitcount_db $hitcount_db = fopen("/home/dumont/public_html/clickolinko/hitcount_db", "r"); $hits = array(); # hit database to be created from file while (!feof($hitcount_db)) { $myline = fgets($hitcount_db, 65); if ($myline){ $splitline = explode(":", chop($myline)); $hits[$splitline[0]] = $splitline[1]; } } fclose($hitcount_db); # increment total and today's count since midnight $hits[$last_unix_midnight] = $hits[$last_unix_midnight] +1; $hits["total"] = $hits["total"] + 1; # get oldest date for "x hits since $oldest" line $oldest = $last_unix_midnight; # start with this morning $arraykeys = array_keys($hits); # array of keys foreach($arraykeys as $contender) { if ($contender != "total" && $contender < $oldest) { $oldest = $contender; } } $oldest = strftime("%c, %Z", $oldest); # ASCIIfy timestamp # output print ("
" . $hits[$last_unix_midnight] . " hits today; " . $hits['total'] ." total hits since $oldest."); # open hitcount db for writing: $hitcount_db = fopen("/home/dumont/public_html/clickolinko/hitcount_db", "w"); foreach ($arraykeys as $key) { # recompile database and fwrite out if ($key) { $myline = $key . ":" . $hits[$key]; fwrite($hitcount_db, "$myline\n"); } } fclose($hitcount_db); # done -- 2005.09.19 PAHP } ?>
dumont, master of the io tower clickolinko was created by Neale Pickett, who was too modest to credit himself.
Sean Neakums, who butchered clickolinko after installing it on flynn, does not suffer from that problem.
Props to the usual gang of idiots for ideas, suggestions, testing and shouting.