mirror of
https://github.com/SabreTools/wizzardRedux.git
synced 2026-02-04 05:36:18 +00:00
89 lines
1.4 KiB
PHP
89 lines
1.4 KiB
PHP
<?php
|
|
|
|
// Original code: The Wizard of DATz
|
|
|
|
print "<pre>";
|
|
|
|
$dirs = array();
|
|
|
|
$query = get_data("http://biotoxin.speccy.org/index.html");
|
|
$query = explode('<td><b><a href="', $query);
|
|
array_splice($query, 0, 1);
|
|
foreach ($query as $url)
|
|
{
|
|
$url = explode('"', $url);
|
|
$dirs[] = "http://biotoxin.speccy.org/".$url[0];
|
|
}
|
|
|
|
foreach ($dirs as $dir)
|
|
{
|
|
print "load: ".$dir."\n";
|
|
$query = get_data($dir);
|
|
$query = explode('<tr>', $query);
|
|
array_splice($query, 0, 1);
|
|
|
|
$new = 0;
|
|
$old = 0;
|
|
|
|
foreach ($query as $row)
|
|
{
|
|
$row = explode('<td', $row);
|
|
$url = explode('href="', $row[1]);
|
|
$url = explode('"', $url[1]);
|
|
$url = $url[0];
|
|
|
|
if ($url)
|
|
{
|
|
$ext = explode('.', $url);
|
|
$ext = $ext[count($ext) - 1];
|
|
|
|
$title = trim(strip_tags('<td'.$row[1]));
|
|
$info = array();
|
|
|
|
for ($x = 2; $x < 5; $x++)
|
|
{
|
|
$temp = trim(strip_tags('<td'.$row[$x]));
|
|
if ($temp && $temp != "-")
|
|
{
|
|
$info[] = $temp;
|
|
}
|
|
}
|
|
|
|
if ($info)
|
|
{
|
|
$title = $title." (".implode(") (", $info).")";
|
|
}
|
|
|
|
if (!$r_query[$url])
|
|
{
|
|
$found[] = array($title.".".$ext, $url);
|
|
$new++;
|
|
}
|
|
else
|
|
{
|
|
$old++;
|
|
}
|
|
}
|
|
}
|
|
|
|
print "new: ".$new.", old: ".$old."\n";
|
|
}
|
|
|
|
print "\nnew urls:\n\n";
|
|
print "<table><tr><td><pre>";
|
|
|
|
foreach ($found as $url)
|
|
{
|
|
print $url[1]."\n";
|
|
}
|
|
|
|
print "</td><td><pre>";
|
|
|
|
foreach ($found as $url)
|
|
{
|
|
print "<a href=\"http://biotoxin.speccy.org/".$url[1]."\">".$url[0]."</a>\n";
|
|
}
|
|
|
|
print "</td></tr></table>";
|
|
|
|
?>
|