\r\n";
print "
Recordings\r\n";
print "
";
print "
" . stripslashes($subdir) . "\r\n";
print "
";
$dir = stripslashes($dir);
$dir_handle = @opendir($dir);
if (!$dir_handle)
{
print "Unable to open $dir";
}
else while ($recname = readdir($dir_handle))
{
if($recname == "." || $recname == ".." || $recname == "epg.data" || $recname == 'lost+found')
continue;
$recname2 = addslashes($recname);
$date = preg_replace('/-/', '/', substr($recname2, 0, 10));
$time = preg_replace('/\./', 'h', substr($recname2, 11, 5));
$recnice = $date .' at ' .$time;
if (strstr($recname, ".rec") == ".rec")
{
$date = preg_replace('/-/', '/', substr($recname, 0, 10));
$time = preg_replace('/\./', 'h', substr($recname, 11, 5));
$recnice = $date .' at ' .$time;
print "\r\n";
print "
\r\n";
}
else
{
$recnice = $recname;
if ($recnice[0] == '@')
$recnice = substr($recnice, 1);
$recnice = preg_replace('/\_/', ' ', $recnice);
print "\r\n";
print "
\r\n";
}
}
$updir = dirname($dir);
print "
\r\n";
if ($dir_handle)
closedir($dir_handle);
print "
\r\n";
?>