\r\n";
print "
Recordings\r\n";
print "
";
print "
{$subdir}\r\n";
print "
";
$dir_handle = @opendir($dir) or die("Unable to open $dir");
while ($recname = readdir($dir_handle))
{
if($recname == "." || $recname == ".." || $recname == "epg.data" || $recname == 'lost+found')
continue;
$recname2=addslashes($recname);
if (strstr($recname, ".rec") == ".rec")
{
print "\r\n";
print "
\r\n";
}
else
{
print "\r\n";
print "
\r\n";
}
}
$updir = dirname($dir);
print "
\r\n";
closedir($dir_handle);
print "
\r\n";
?>