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 $avifiles = "????/????-??-??.avi";
+my $mkvfiles = "????/*.mkv";
 
 chdir $dir || die "Couldn't change directory!\n";
 system "rm -f $plsfile";
-@files = `ls -1 $avifiles`;
+@files = `ls -1 $mkvfiles`;
 @shuffled = shuffle(@files);
 open (FILE, ">$plsfile") || die "Couldn't open $plsfile!\n";
 print FILE @shuffled;