Browse files

* Fixed a small bug causing only the first file in a group to have the

  EXTM3U header if the -a switch was used.
* Added some informational output informing a user when a file has been
  written. It was disconcerting to create a dozen playlists automatically and
  have the program produce 0 lines of visible output. :)

git-svn-id: file:///var/lib/svn/m3ugen/trunk@21 1e1f2d8e-b8a0-4649-aeed-5658290dd61f
  • Loading branch information...
1 parent d8ed38f commit 9a26f4246ae26cd60ba9d602a3e1537d80c7b899 @demonbane committed Oct 16, 2007
Showing with 18 additions and 3 deletions.
  1. +11 −1 debian/changelog
  2. +7 −2 m3ugen
View
12 debian/changelog
@@ -1,8 +1,18 @@
+m3ugen (0.18) unstable; urgency=low
+
+ * Fixed a small bug causing only the first file in a group to have the
+ EXTM3U header if the -a switch was used.
+ * Added some informational output informing a user when a file has been
+ written. It was disconcerting to create a dozen playlists automatically and
+ have the program produce 0 lines of visible output. :)
+
+ -- Alex Malinovich <demonbane@the-love-shack.net> Tue, 16 Oct 2007 14:02:50 -0700
+
m3ugen (0.17-2) unstable; urgency=low
* Fixed rules to include changelog in package.
- -- Alex Malinovich <demonbane@the-love-shack.net> Mon, 17 Sep 2007 03:07:41 -0700
+ -- Alex Malinovich <demonbane@the-love-shack.net> Tue, 16 Oct 2007 14:00:18 -0700
m3ugen (0.17-1) unstable; urgency=low
View
9 m3ugen
@@ -16,7 +16,7 @@
# upstream yet. Using the patch this version of m3ugen will
# properly sort by disc number as well as album.
-$version="0.17";
+$version="0.18";
use Audio::File;
use Cwd;
@@ -69,6 +69,7 @@ if (!$ARGV[0]) {
if ($ARGV[1]) {
open(OUTPUT,">:utf8",$ARGV[1]) || die "Could not open $ARGV[1] for writing!\n";
+ $outputfilename = $ARGV[1];
if ($opt_a) {
print "Album (-a) option was specified along with an output filename.\nIgnoring -a and writing all output to $ARGV[1] instead.\n";
undef($opt_a);
@@ -198,12 +199,15 @@ foreach $albumname (keys %writeme) {
print ERROR "Generating -a list\n";
close OUTPUT;
open(OUTPUT,">:utf8", "$currentDir/$albumname.m3u") || die "Could not open $albumname.m3u for writing!\n";
+ $outputfilename = "$albumname.m3u";
}else{
print ERROR "Generating standard list\n";
}
if ($needextm3u) {
print OUTPUT "#EXTM3U\n";
- $needextm3u = 0;
+ if (!$opt_a) {
+ $needextm3u = 0;
+ }
}
print ERROR "albumname = \"$albumname\"\n";
for ($discnumber = 0; $discnumber < ($#{$writeme{$albumname}} + 1); $discnumber++) {
@@ -212,6 +216,7 @@ foreach $albumname (keys %writeme) {
print OUTPUT $songname;
}
}
+ print STDERR "Wrote \"$outputfilename\"\n";
}
close ERROR;

0 comments on commit 9a26f42

Please sign in to comment.