$val)
{
$parts = explode (">", $val);
$a = $parts[0];
$aparts = explode ("href=", $a);
$hrefparts = explode (" ", $aparts[1]);
$hrefparts2 = explode ("#", $hrefparts[0]);
$href = str_replace ("\"", "", $hrefparts2[0]);
if ((substr ($href, 0, 7) != "http://") &&
(substr ($href, 0, 8) != "https://") &&
(substr ($href, 0, 6) != "ftp://"))
{
if ($href[0] == '/')
$href = "$scanned[0]$href";
else
$href = Path ($url) . $href;
}
if (substr ($href, 0, strlen ($scanned[0])) == $scanned[0])
{
$ignore = false;
if (isset ($skip))
foreach ($skip as $k => $v)
if (substr ($href, 0, strlen ($v)) == $v)
$ignore = true;
if ((!$ignore) &&
(!in_array ($href, $scanned)) &&
(strpos ($href, $extension) > 0)
)
{
fwrite ($pf, "\n $href\n" .
" $freq\n" .
" $priority\n\n");
echo $href. "\n";
Scan ($href);
}
}
}
}
$pf = fopen ($file, "w");
if (!$pf)
{
echo "cannot create $file\n";
return;
}
fwrite ($pf,"
$url/
daily
");
$scanned = array();
Scan ($url);
fwrite ($pf, "\n");
fclose ($pf);
?>