"; $dURI = str_replace ("¤", "_skildpadde_", urldecode($URI)); $dURI = str_replace ("|", "_lodretstreg_", $dURI); $dmask = "¤" . $dURI . "¤i"; $dmask = preg_replace ('¤\+¤', '\\+', $dmask); $dlink = str_replace ("¤", "_skildpadde_", $link); $dlink = str_replace ("|", "_lodretstreg_", $dlink); // if ((preg_match ($mask, $link)) if ((preg_match ($dmask, $dlink)) && (! strpos ($link, ".htm"))) { if ($listeditors) { $editors = fetchEditors ($str, $desc); } trimCat ($str, $nextLevel); if ($nextLevel == $baseLevel + 1) { printCat ($editors, $str, $a, $desc); if ((! $green)||($greens[$a] > 0)||($reds[$a] > 0)) { readsite ($str, $levels - 1, $listeditors); } } } } } else echo "error fetching document: ".$snoopy->error."\n"; $a--; } function sendToSingle ($editors, $text) { global $target; if ($editors) while (list ($editor, $cats) = each ($editors)) { // if ($eds) $eds .= ",+" . $editor; // else $eds = $editor; if ($eds) $eds .= "+" . $editor; else $eds = $editor; } $str = "" . $text . ""; return $str; } function sendToForm ($editors, $text) { global $target; if ($editors) while (list ($editor, $cats) = each ($editors)) { if ($eds) $eds .= " " . $editor; else $eds = $editor; } $str = ""; return $str; } function edSpiderLink ($editors, $text) { global $target; if ($editors) while (list ($editor, $cats) = each ($editors)) { if ($eds) $eds .= ",+" . $editor; else $eds = $editor; } $str = "" . $text . ""; return $str; } function edSpiderForm ($editors, $text) { global $target; if ($editors) while (list ($editor, $cats) = each ($editors)) { if ($eds) $eds .= " " . $editor; else $eds = $editor; } $str = ""; return $str; } function editorLink ($editor) { global $target; $str = "" . $editor . ""; return $str; } function trimCat ($cat, &$levels) { $prcat = $cat; if (preg_match ('¤^\s*(\S.*\S)\s*$¤', $prcat, $arr)) { $prcat = $arr[1]; } if (preg_match ('¤\.org/(.*)$¤', $prcat, $arr)) { $prcat = $arr[1]; } if (preg_match ('¤cat=(.*)$¤', $prcat, $arr)) { $prcat = $arr[1]; } // $prcat = preg_replace ("¤%27¤", "'", $prcat); $prcat = preg_replace ('¤:\s*¤', '/', $prcat); $prcat = preg_replace ('¤\s¤', '_', $prcat); if (preg_match ('¤^/*(.*)$¤', $prcat, $arr)) { $prcat = $arr[1]; } if (preg_match ('¤^/*(.*)/$¤', $prcat, $arr)) { $prcat = $arr[1]; } $prcat = urldecode ($prcat); $part = split ('/', $prcat); $levels = count ($part); return $prcat; } function printCat ($editors, $str, $level, $desc) { global $depth; global $noOfCats; global $noOfLinks; global $startlevel; global $origcool; global $origlisteditors; global $localeditorlist; global $updateList; global $target; global $cool; global $coollist; global $noOfCooled; global $kiss; global $green; global $greens; global $red; global $reds; global $fetchedReds; global $unrev; global $session; global $HTTP_HOST; global $PHP_SELF; $greens[$level] = 0; $reds[$level] = 0; if ($unrev) { $greens[$level] = fetchGreens ($str); $reds[$level] = $fetchedReds; } if ($green) { if (($greens[$level] < 1)&&($reds[$level] < 1)) return; } $noOfCats++; $prcat = trimCat ($str, $levels); $part = split ('/', $prcat); if ($level > 0) { $subcat = $part [$startlevel + $level - 1]; } else $subcat = $prcat; if ($updateList == "") { $updateList = $prcat; } else { $updateList = $updateList . ',' . $prcat; } if ($noOfCats % 2 == 1) $bg = "#eeeeee"; else $bg = "#ffffff"; echo "
";
if (! $kiss ) {
echo " ";
echo " ";
}
$spacer = "";
for($x=0;$x<$level;$x++) {
$spacer = $spacer . ". . ";
}
// $spacer = " ";
echo $spacer;
// echo "" . urldecode($subcat) . "";
echo "" . $subcat . "";
if ($greens[$level] > 0) echo " ($greens[$level]";
if ($reds[$level] > 0) {
if ($greens[$level] < 1) echo " (0";
echo ", ";
echo "$reds[$level]";
}
if (($greens[$level] > 0)||($reds[$level] > 0)) echo ")";
if (! $kiss ) {
echo $desc;
if(count($editors) == 1) { echo " - Editor "; }
if(count($editors) > 1) { echo " - Editors "; }
if(count($editors) > 0) {
echo editorLink ($editors[0]);
for($y=1;$y"; for($x=0;$x<$level;$x++) { echo " "; } echo " "; echo " "; echo $coollink; echo " "; } } // echo " - " . $noOfLinks . " links"; echo " | ";
if (! $kiss ) {
echo ""; echo ""; echo " [edit]"; echo " [check]"; // echo " [check]"; // echo " [add]"; // echo " [logs]"; // echo " [update]"; // echo " [up]"; // echo " [down]"; echo " "; echo ""; echo " | "; } echo "
"; flush(); } function fetchEditors ($URI, &$desc) { global $editorlist; global $cool; global $coollist; global $localeditorlist; global $noOfLinks; global $noOfCooled; global $target; global $snoopyCache; $noOfLinks = 0; $noOfCooled = 0; $localeditorlist = ""; $coollist = ""; $snoopy = new Snoopy; $snoopy->user = "wkn"; $snoopy->pass = "werner3"; $snoopy->expandlinks = false; if($snoopy->fetchlinks("http://musicmoz.org/" . $URI)) { $snoopyCache = $snoopy; // Check for description $desc = " - no description"; $descOK = " - desc"; for($x=0;$x
' . $loop_result . '';
// echo $coollist[$i];
$i++;
}
$noOfCooled = $i;
}
return $editors;
}
else
echo "error fetching document: ".$snoopy->error."\n";
}
function fetchRedGreenBySymlink ($catg) {
$str = '';
$cat = urlencode($catg);
$cat = preg_replace ('¤%2F¤', '/', $cat);
$cat = preg_replace ('¤%5C%27¤', "%27", $cat);
$cat = preg_replace ('¤%E¤', '%e', $cat);
$cat = preg_replace ('¤%eA¤', '%ea', $cat);
$cat = preg_replace ('¤%eB¤', '%eb', $cat);
$cat = preg_replace ('¤%eC¤', '%ec', $cat);
$cat = preg_replace ('¤%eD¤', '%ed', $cat);
$cat = preg_replace ('¤%eE¤', '%ee', $cat);
$cat = preg_replace ('¤%eF¤', '%ef', $cat);
$cat = preg_replace ('¤%F¤', '%f', $cat);
$cat = preg_replace ('¤%FA¤', '%fa', $cat);
$cat = preg_replace ('¤%FB¤', '%fb', $cat);
$cat = preg_replace ('¤%FC¤', '%fc', $cat);
$cat = preg_replace ('¤%FD¤', '%fd', $cat);
$cat = preg_replace ('¤%FE¤', '%fe', $cat);
$cat = preg_replace ('¤%FF¤', '%ff', $cat);
srand((double)microtime()*1000000);
$title = rand(100000,999999);
$snoopy = new Snoopy;
$snoopy->expandlinks = false;
$snoopy->user = "wkn";
$snoopy->pass = "werner3";
$snoopy->maxlength = 500;
if($snoopy->fetch("http://musicmoz.org/editors/link2.cgi?cat=Bookmarks/W/wkn/Symlinks&linkcat=" . $cat . "&linkname=" . $title . ""))
{
$snoopy->maxlength = 30000;
if($snoopy->fetch("http://musicmoz.org/editors/editcat.cgi?cat=Bookmarks/W/wkn/Symlinks"))
{
$symlinks = $snoopy->results;
$snoopy->maxlength = 500;
if($snoopy->fetch("http://musicmoz.org/editors/delink2.cgi?cat=Bookmarks/W/wkn/Symlinks&link=" . $title . "&locale=dan&submit=Bekræft"))
{
if (preg_match ("/" . $title . "(.*)\)/im", $symlinks, $arr)) {
$actual = $arr[1];
} else {
$actual = 'Not Found';
}
if (preg_match ("/color=\"green\">(\d*) /im", $actual, $arr)) {
$greens = $arr[1];
} else {
$greens = 0;
}
if (preg_match ("/color=\"#cc0000\">(\d*) /im", $actual, $arr)) {
$reds = $arr[1];
} else {
$reds = 0;
}
$str = urldecode($cat) . " has " . $greens . " unreviewed";
$str .= "\n"; $str .= urldecode($cat) . " has " . $reds . " errors"; } } } return $str; } function fetchRedGreenByService ($catg) { $snoopy = new Snoopy; $snoopy->expandlinks = false; $parmcat = utf8_encode(urldecode($catg)); // if($snoopy->fetch("http://kor.dk/odp/redgreen.php3?cat=" . $catg)) if($snoopy->fetch("http://dmoz.nurey.net/ViewUnrev.epl?cat=" . $parmcat)) { $str = $snoopy->results; } else { echo "error fetching document: ".$snoopy->error."\n"; $str = ""; } return $str; } function fetchRedGreen ($catg) { global $red; if ($red) { $str = fetchRedGreenBySymlink ($catg); } else { $str = fetchRedGreenByService ($catg); } return $str; } function fetchGreens ($cat) { global $target; global $snoopyCache; global $fetchedReds; $fetchedReds = -1; $snoopy = new Snoopy; $snoopy->expandlinks = false; $parmcat = utf8_encode(urldecode($cat)); // $parmcat = imap_utf8($cat); // $parmcat = urldecode($cat); // echo "[". $parmcat . "]"; $rawheaders["Content-type"]="text/html;charset=UTF-8"; $submit_vars["cat"] = urldecode($cat); // if($snoopy->submit("http://dmoz.nurey.net/ViewUnrev.epl", $submit_vars)) // $str = implode("", file("http://dmoz.nurey.net/ViewUnrev.epl?cat=" . $parmcat)); // if($snoopy->fetch("http://dmoz.nurey.net/ViewUnrev.epl?cat=" . $parmcat)) // if($snoopy->fetch("http://kor.dk/odp/redgreen.php3?cat=" . $cat)) if(true) { // $str = $snoopy->results; $str = fetchRedGreen ($cat); if (preg_match ("/has (\d*)<\/B> unreviewed/im", $str, $matches)) { $greens = $matches[1]; } else { $greens = -1; } if (preg_match ("/has (\d*)<\/B> errors/im", $str, $matches)) { $fetchedReds = $matches[1]; } else { $fetchedReds = -1; } return $greens; } else echo "error fetching document: ".$snoopy->error."\n"; } function printFooter () { global $HTTP_HOST; global $PHP_SELF; print "
Spider tools by wkn since September 2000.
Go to Spider Tools list and support..
| Copyright © 2000-02 Werner Knudsen |