projects
/
videoscripts
/
.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Added force option to organize_videos which ignores $minage
[videoscripts/.git]
/
homevideo_random.pl
diff --git
a/homevideo_random.pl
b/homevideo_random.pl
index 4e5a81a8f05b31888845eb367478d6effe06e785..23376b1d4f991138da808aaee63257e5bc54062f 100755
(executable)
--- a/
homevideo_random.pl
+++ b/
homevideo_random.pl
@@
-4,11
+4,11
@@
use List::Util 'shuffle';
my $dir = "/naspool/videos/HomeVideos";
my $plsfile = "$dir/Random.pls";
my $dir = "/naspool/videos/HomeVideos";
my $plsfile = "$dir/Random.pls";
-my $
avifiles = "????/????-??-??.avi
";
+my $
mkvfiles = "????/*.mkv
";
chdir $dir || die "Couldn't change directory!\n";
system "rm -f $plsfile";
chdir $dir || die "Couldn't change directory!\n";
system "rm -f $plsfile";
-@files = `ls -1 $
avi
files`;
+@files = `ls -1 $
mkv
files`;
@shuffled = shuffle(@files);
open (FILE, ">$plsfile") || die "Couldn't open $plsfile!\n";
print FILE @shuffled;
@shuffled = shuffle(@files);
open (FILE, ">$plsfile") || die "Couldn't open $plsfile!\n";
print FILE @shuffled;