X-Git-Url: http://git.pippins.net/embedvideo/.git/static/git-logo.png?a=blobdiff_plain;f=homevideo_random.pl;h=23376b1d4f991138da808aaee63257e5bc54062f;hb=3574551ce37f9611e12420e4b39d4e68dd20c884;hp=4e5a81a8f05b31888845eb367478d6effe06e785;hpb=be9a9d1914a8f80b031631f902c9daae0b8f6d90;p=videoscripts%2F.git

diff --git a/homevideo_random.pl b/homevideo_random.pl
index 4e5a81a..23376b1 100755
--- 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;