changeset 12:4992e3daba55

Removed obsolete urllog.php
author Matti Hamalainen <ccr@tnsp.org>
date Mon, 05 Sep 2011 16:16:40 +0300
parents 06f5e5b25930
children e06d41fb69d5
files urllog.php.txt
diffstat 1 files changed, 0 insertions(+), 57 deletions(-) [+]
line wrap: on
line diff
--- a/urllog.php.txt	Mon Sep 05 16:16:03 2011 +0300
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,57 +0,0 @@
-<?
-// =====================================================
-// URLLog PHP-script for redirecting ShortURLs
-// (C) Copyright 2006 Tecnic Software productions (TNSP)
-// =====================================================
-
-// URLLog datafile
-$urlFilename = "data.urllog";
-
-// =====================================================
-// Helper functions
-$idStr = "ABCDEFGHIJKLNMOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789";
-
-function myerr() {
-	header("Status: 404 Not Found");
-	echo "404 Not Found";
-	exit;
-}
-
-// Check arguments
-if (!isset($argv[0])) myerr();
-
-// Calculate urlID
-$urlStr = $argv[0];
-$urlLen = strlen($urlStr);
-if ($urlLen < 1) myerr();
-
-for ($urlID = 0, $i = 0; $i < $urlLen; $i++) {
-	$urlID *= strlen($idStr);
-
-	$n = strpos($idStr, $urlStr[$i]);
-	if ($n !== FALSE) {
-		$urlID += $n;
-	} else
-		myerr();
-}
-
-// Find the URL
-$urlFile = fopen($urlFilename, "r");
-if (!$urlFile) myerr();
-
-$urlFound = 0;
-while (!feof($urlFile) && !$urlFound) {
-	$urlItems = split(" ", fgets($urlFile, 4096), 5);
-	if ($urlItems[4] == $urlID) $urlFound = 1;
-}
-
-fclose($urlFile);
-
-// Output result
-if ($urlFound) {
-	header("Location: ".$urlItems[0]);
-} else
-	myerr();
-
-exit;
-?>
\ No newline at end of file