X-Git-Url: http://git.pippins.net/embedvideo/.git/static/git-logo.png?a=blobdiff_plain;f=homevideo_random.pl;h=23376b1d4f991138da808aaee63257e5bc54062f;hb=5a4d4d3ceec69ce1973f790d0c9f27be9e38339b;hp=4e5a81a8f05b31888845eb367478d6effe06e785;hpb=64702de206d3356a3d80acf75b572bd9c31c86d9;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;