read() ) {
if( substr($f,0,1) == '.' ) continue;
if( substr($f,0,6) == "index." ) continue;
if( substr($f,strlen($f)-1,1) == '~' ) continue;
$lst[] = $f;
}
$d->close();
Sort( $lst );
while( list($k,$f) = each($lst) ) {
$fs = FileSize( $f );
if( ereg("^(.+)\.([^.]+)$",$f,$a) ) {
$fn = str_replace("_"," ",$a[1])." (".$a[2].")";
} else {
$fn = $f;
}
print ""; Photo( $fn, $f ); print "\n";
}
Epilogue();
?>