Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Added title to the playlist files

  • Loading branch information...
commit 35d520468dcfa3169b1307497ff829878b7e2104 1 parent be19378
@hitolaus authored
Showing with 5 additions and 3 deletions.
  1. +5 −3 plsgen.pl
View
8 plsgen.pl
@@ -23,7 +23,9 @@
my $pls_output_file = "/c/media/Series/Comedy.pls";
my $m3u_output_file = "/c/media/Series/Comedy.m3u";
-my $base_dir = "/c/media/Series";
+my $base_dir = "/c/media/Series";
+my $share_dir = "/Media/Series";
+
my @series_names = (
"Two and a Half Men",
"The Big Bang Theory",
@@ -44,7 +46,7 @@
my $host = hostname();
my $addr = inet_ntoa(scalar(gethostbyname($host)) || 'localhost');
-my $share_prefix = "smb://".$addr."/Media/Series";
+my $share_prefix = "smb://". $addr . $share_dir;
my @series_dirs;
@@ -119,7 +121,7 @@ sub create_m3u
print M3U "#EXTM3U\n";
for (my $i = 0; $i < $#random_pls_urls+1; $i++) {
if ($i < $max_pls_files) {
- print M3U "#EXTINF:-1, ".prettyprint_series($random_pls_urls[$i])."\n";
+ print M3U "#EXTINF:0,".prettyprint_series($random_pls_urls[$i])."\n";
print M3U $random_pls_urls[$i]."\n";;
}
}
Please sign in to comment.
Something went wrong with that request. Please try again.