";
foreach ($array as $left => $right)
{
if ($left == "peers")
continue;
if (is_array($right))
$myright = "Error";
else
$myright = $right;
echo "
".$left."
=
".$myright."
\n";
}
echo "
Peers
";
foreach ($array["peers"] as $data)
{
if (!is_array($data)) // special case: [0] == true means empty list
{
echo "(Empty results)\n";
break;
}
echo bin2hex($data["peer id"])." at ".$data["ip"].":".$data["port"]."\n";
}
echo "
";
}
function escapeURL($url)
{
$ret = "";
$i=0;
while (strlen($url) > $i)
{
$ret .= "%".$url[$i].$url[$i + 1];
$i+=2;
}
return $ret;
}
function stringcleaner($str)
{
/* WARNING:
It appears PHP doesn't handle null bytes in the key portion
of string-indexed arrays. $array["abcd\0e"] = $something
will find itself with only 4 letters in the key. This may
cause some confusion when using /scrape, for example.
*/
$len = strlen($str);
for ($i=0; $i < $len; $i ++)
{
if (ord($str[$i]) < 32 || ord($str[$i]) > 128)
return "".bin2hex($str)."";
}
return $str;
}
function cleaner($array)
{
if (!is_array($array))
return $array;
$newarray = array();
foreach($array as $left => $right)
{
if (is_string($left))
$newleft = stringcleaner(stripslashes($left));
else
$newleft = $left;
if (is_string($right))
$newright = stringcleaner($right);
else if (is_array($right))
$newright = cleaner($right);
else
$newright = $right;
$newarray[$newleft] = $newright;
}
return $newarray;
}
if (isset($_POST["output"]))
{
if (!is_numeric($_POST["output"]))
$output = -1;
else
$output = $_POST["output"];
if ($output > 3 || $output < -1)
$output = -1;
}
else if (isset($_GET["style"]))
$output = $_GET["style"];
else
$output = -1;
//used by index.php to show information on torrent
if (isset($_POST["hash"]))
{
if (!isset($status)) //not coming from newtorrents page
{
?>
Torrent Information
");
else
$db = mysql_connect($dbhost, $dbuser, $dbpass) or die(errorMessage() . "Tracker error: can't connect to database - " . mysql_error() . "");
mysql_select_db($database) or die(errorMessage() . "Tracker error: can't open database $database - " . mysql_error() . "");
$query = "SELECT filename FROM ".$prefix."namemap WHERE info_hash = '" . $_POST["hash"] . "'";
$results = mysql_query($query) or die(errorMessage() . "Can't do SQL query - " . mysql_error() . "");
$data = mysql_fetch_row($results);
//find filename and set it
$_FILES["torrent"]["tmp_name"] = "torrents/" . $data[0] . ".torrent";
if (!isset($status))
echo "
" . $data[0] . "
";
echo "Return to Statistics Page \n";
}
//main displaying and processing
if (isset($_FILES["torrent"]) || isset($_POST["url"]) || isset($_GET["url"]))
{
if (strlen($_FILES["torrent"]["tmp_name"]) > 0 && file_exists($_FILES["torrent"]["tmp_name"])) //for DumpTorrentCGI.php, and index.php
{
$fd = fopen($_FILES["torrent"]["tmp_name"], "rb") or die(errorMessage() . "File upload error 1");
if (!isset($_POST["hash"]))
is_uploaded_file($_FILES["torrent"]["tmp_name"]) or die(errorMessage() . "File upload error 2");
$alltorrent = fread($fd, filesize($_FILES["torrent"]["tmp_name"]));
fclose($fd);
}
else if (file_exists("torrents/" . $filename . ".torrent")) //for newtorrents.php
{
$fd = fopen("torrents/" . $filename . ".torrent", "rb") or die(errorMessage() . "File upload error 1");
$alltorrent = fread($fd, filesize("torrents/" . $filename . ".torrent"));
fclose($fd);
}
else if (isset($_POST["url"]))
{
(strlen($_POST["url"]) > 0) or die(errorMessage() . "Logic error in script.");
if (strtolower(substr($_POST["url"], 0, 7)) != "http://")
die(errorMessage() . "Error: you must specify \"http://\" as part of the URL.");
$fd = fopen($_POST["url"], "rb") or die(errorMessage() . "File download error.");
$alltorrent = "";
while (!feof($fd))
{
$alltorrent .= fread($fd, 4096);
if (strlen($alltorrent) > 50000)
die(errorMessage() . "File too large to download.");
}
fclose($fd);
}
else if (isset($_GET["url"]))
{
(strlen($_GET["url"]) > 0) or die(errorMessage() . "Logic error in script.");
if (strtolower(substr($_GET["url"], 0, 7)) != "http://")
die(errorMessage() . "Error: you must specify \"http://\" as part of the URL");
$fd = fopen($_GET["url"], "rb") or die(errorMessage() . "File download error.");
$alltorrent = "";
while (!feof($fd))
{
$alltorrent .= fread($fd, 4096);
if (strlen($alltorrent) > 50000)
die(errorMessage() . "File too large to download.");
}
fclose($fd);
}
$array = BDecode($alltorrent);
if (!isset($array))
{
echo errorMessage() . "There was an error handling your uploaded torrent. It may be corrupted. Are you sure it's of type .torrent?";
exit;
}
if ($array == false)
{
echo errorMessage() . "There was an error handling your uploaded torrent. It may be corrupted. Are you sure it's of type .torrent?";
exit;
}
// Making torrents look nice: If $array["info"] exists, it is used to calculate
// an Info_hash value.
$infohash = "Not applicable";
if (isset($array["info"]))
if (is_array($array["info"]))
{
if (function_exists("sha1"))
$infohash = @sha1(BEncode($array["info"]));
else
$infohash = "(No SHA1 available to calculate info_hash) ";
// If the "pieces" section exists, it is replaced by some nice text.
// The alternative is pages of garbage.
}
// Auto-detect file type
if ($output == -1)
{
if (isset($array["announce"]) && isset($array["info"]))
$output = 1;
else if (isset($array["files"]))
$output = 2;
else if (isset($array["peers"]))
$output = 3;
else
$output = 0;
}
// Output information.
if ($output == 0)
{
classicoutput($array, $infohash);
}
if ($output == 1)
{
if (!isset($array["info"]))
{
echo "Error: not a torrent file. Falling back on classic.
![\"Tracker](\"images/stats.png\" "\\"Tracker")
![\"Add](\"images/add.png\" "\\"Add")
Add Another Torrent
Return to Admin Page
Return to Statistics Page