From 23829ef23b48c9c3c30c61acbcaccf460e81957e Mon Sep 17 00:00:00 2001 From: lshprung Date: Sat, 2 Oct 2021 16:33:13 -0700 Subject: Fixed bug in mass m3u creation --- build_playlists.plx | 16 ++++++++++------ 1 file changed, 10 insertions(+), 6 deletions(-) diff --git a/build_playlists.plx b/build_playlists.plx index fc5b0f5..dc48ce7 100755 --- a/build_playlists.plx +++ b/build_playlists.plx @@ -23,14 +23,18 @@ my @db_output; #Hold array containing output from a sql statement my $statement; #Hold statements for sqlite +# TODO add support for overwriting playlists +# TODO make it so files are sorted ahead of time (may require functions from sqlite API) # Write to an m3u file to create a playlist -# @_[0] -> m3u file handle -# @_[1] -> array of audio file paths +# @_[0] -> m3u file path +# @_[1] -> m3u file handle +# @_[2] -> array of audio file paths sub build_m3u { + my $filename = shift; my $filehandle = shift; - # Create m3u header - if (eof $filehandle){ + # Create m3u header if the file is new + if ((-s $filename) == 0){ print $filehandle "#EXTM3U\n\n"; } @@ -119,7 +123,7 @@ if ($options{sql}){ open FH, "> $output_pattern" or die $!; # DEBUG print "Opened $output_pattern\n"; - build_m3u(*FH, @db_output); + build_m3u("$output_pattern", *FH, @db_output); close FH; } @@ -162,7 +166,7 @@ else { open FH, ">> $output_file" or die $!; # DEBUG print "Opened $output_file\n"; - build_m3u(*FH, $tag_hash{PATH}); + build_m3u("$output_file", *FH, $tag_hash{PATH}); close FH; } } -- cgit