\n\n"; } mkdir("thumbs",0755) if(! -e "thumbs"); mkdir("big",0755) if(! -e "big"); opendir(DIR,"."); opendir(BIGDIR,"big"); print "
$n (movie)\n"; next; } else { next; } print " |
$n\n"; if ( ! -e "big/$n" ) { system $commandbig; } elsif ( -e $n ) { @ts = stat("big/$n"); @s = stat($n); system $commandbig if($ts[9]<$s[9]); } if ( ! -e "thumbs/$n" ) { system $command; } elsif ( -e "big/$n" ) { @ts = stat("thumbs/$n"); @s = stat("big/$n"); system $command if($ts[9]<$s[9]); } unlink $n if ( -e $n ); } print " |