Try this
http://$HTTP_HOST";;
$base = './';
$basedir = opendir("$base");
while ($file = readdir($basedir)){
if ($file != '.' && $file != '..' && eregi(".htm","$file"))
{ print("$baseurl/$file\n");
flush();
}
if ($file != '.' && $file != '..' && is_dir("$base/$file")
&& $file != "_data")
{
$level1 = "$base/$file";
print("$baseurl/$file\n"); flush();
$seconddir = opendir("$level1");
while ($folder = readdir($seconddir))
{
if ($folder != '.' && $folder != '..' &&
eregi(".htm","$folder")){ print("$baseurl/$file/$folder\n");
flush();
}
if ($folder != '.' && $folder != '..' &&
is_dir("$base/$file/$folder") && $folder != "_data")
{
$level2 = "$level1/$folder";
print("$baseurl/$file/$folder\n");
flush();
$thirddir = opendir("$level2");
while ($this = readdir($thirddir)){
if ($this != '.' && $this != '..' &&
eregi(".htm","$this"))
{
print("$baseurl/$file/$
folder/$this\n");
flush();
}
if ($this != '.' && $this != '..' &&
is_dir("$base/$file/$folder/$this") && $this != "_data")
{
$level3 = "$level2/$this";
print("$baseurl/$file/$folder/$this\n");
flush();
$forthdir = opendir("$level3");
while ($that = readdir($forthdir))
{
if ($that != '.' && $that != '..' &&
eregi(".htm","$that"))
{
print("$baseurl/$file/$folder/$this/$that\n");
flush();
}
if ($that != '.' && $that != '..' &&
is_dir("$base/$file/$folder/$this/$that") && $that != "_data")
{
$level4 = "$level3/$that";
print("$baseurl/$file/$folder/$this/$that\n");
flush();
$fithdir = opendir("$level4");
while ($some = readdir($fithdir)){
if ($some != '.' && $some != '..' &&
eregi(".htm","$some"))
{
print("$baseurl/$file/$folder/$this/$
that/$some\n");
flush();
}
if ($some != '.' && $some != '..' &&
is_dir("$base/$file/$folder/$this/$that/$some") && $some != "_data")
{
$level5 = "$level4/$some";
print("$baseurl/$file/$folder/$this/$
that/$some\n");
flush();
$sixthdir = opendir("$level5");
while ($the = readdir($sixthdir))
{
if ($the != '.' && $the != '..' &&
eregi(".htm","$the")){ print("$baseur
l/$file/$folder/$this/$that/$some/$the\n");
flush();
}
if ($the != '.' && $the != '..' &&
is_dir("$base/$file/$folder/$this/$that/$some/$the") && $the != "_data")
{
$level6 = "$level5/$the";
print("$baseurl/$file/$folder/$t
his/$that/$some/$the\n");
flush();
$seventhdir = opendir("$level6");
while ($it = readdir($seventhdir))
{
if ($it != '.' && $it != '..' &&
eregi(".htm","$it")){ print("$baseurl/$file/$folde
r/$this/$that/$some/$the/$it\n");
flush();
}
if ($it != '.' && $it != '..' &&
is_dir("$base/$file/$folder/$this/$that/$some/$the/$it") && $it != "_data")
{
$level7 = "$level6/$it";
print("$baseurl/$file/$folde
