summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorlshprung <lshprung@yahoo.com>2021-09-14 16:22:20 -0700
committerlshprung <lshprung@yahoo.com>2021-09-14 16:22:20 -0700
commitb2b338da4d64c9752f37c25297bb726e4d3aa7bc (patch)
treece061f4bdb483dbc03dfe783202d3fa848418bc0
parentf52ad477193b09dd733124a0edbe613311e63253 (diff)
Progress on looping m3u creation
-rwxr-xr-xbuild_playlists.plx51
1 files changed, 44 insertions, 7 deletions
diff --git a/build_playlists.plx b/build_playlists.plx
index de7c006..3e43098 100755
--- a/build_playlists.plx
+++ b/build_playlists.plx
@@ -10,9 +10,9 @@ require "./shared.pl";
# Variables to be set by the user
our $dbname = File::HomeDir->my_home . "/Music/library.db";
our $table_name = "LIBRARY";
-our @tags_of_interest; # Record TAG arguments
-our $output_pattern; # Record OUTPUT_PATTERN argument
-our $statement_arg; # Record SQL_STATEMENT argument
+our @tags_of_interest = ("PATH"); # Record TAG arguments (PATH will always be of interest)
+our $output_pattern; # Record OUTPUT_PATTERN argument
+our $statement_arg; # Record SQL_STATEMENT argument
# Keep track of options that have been set
our %options = (
@@ -31,7 +31,9 @@ sub build_m3u {
# Create m3u header
# TODO check if file is empty before adding the header
- print $filehandle "#EXTM3U\n\n";
+ if (eof $filehandle){
+ print $filehandle "#EXTM3U\n\n";
+ }
# TODO add support for EXTINF metadata (track runtime, Display name)
for my $line (@_){
@@ -60,7 +62,7 @@ Options:
--sql SQL_STATEMENT generate a single playlist based on output of some SQL statement
Examples:
- $0 ALBUM,ALBUMARTIST ~/Music/playlists/{ALBUMARTIST}-{ALBUM}.m3u Generate a playlist for every combination of ALBUM and ALBUMARTIST in the database, with the output file pattern ALBUMARTIST-ALBUM.m3u
+ $0 ALBUM,ALBUMARTIST /home/john/Music/playlists/{ALBUMARTIST}-{ALBUM}.m3u Generate a playlist for every combination of ALBUM and ALBUMARTIST in the database, with the output file pattern ALBUMARTIST-ALBUM.m3u
$0 --sql \"SELECT PATH FROM LIBRARY WHERE ARTIST='Steely Dan';\" steely_dan.m3u Generate a playlist based on the output of this SQL statement
$0 --sql \"ARTIST='Steely Dan';\" steely_dan.m3u If an incomplete SQL statement is received, the \"SELECT PATH FROM {table_name} WHERE \" part of the SQL statement is assumed to be implied
";
@@ -82,8 +84,8 @@ for (my $i = 0; $i <= $#ARGV; $i++){
elsif ($ARGV[$i] =~ /^[^-]/){
# This arg should contain the list of tags
- if (!$options{sql} and !scalar(@tags_of_interest)){
- @tags_of_interest = split(',', "$ARGV[$i]");
+ if (!$options{sql} and scalar(@tags_of_interest) <= 1){
+ push(@tags_of_interest, split(',', "$ARGV[$i]"));
}
# This arg should contain the output_pattern
else {
@@ -119,4 +121,39 @@ if ($options{sql}){
# DEBUG
print "Opened $output_pattern\n";
build_m3u(*FH, @db_output);
+ close FH;
}
+
+# Go through every entry to build multiple playlists
+else {
+ my %tag_hash; # Track tag values for each file
+ my $output_file; # Output file, based on output_pattern
+
+ @db_output = flatten_array(db_cmd($dbh, "SELECT count(*) FROM $table_name;"));
+ my $row_count = $db_output[0];
+
+ # Go through each row by ID
+ for my $i (1..$row_count){
+ # Get output for the PATH, plus each tag of interest; store it in tag_hash
+ $statement = join(',', @tags_of_interest);
+ @db_output = flatten_array(db_cmd($dbh, "SELECT $statement FROM $table_name WHERE ID=$i;"));
+ for my $j (0..scalar(@db_output)-1){
+ $tag_hash{$tags_of_interest[$j]} = $db_output[$j];
+ }
+
+ # Determine output_file
+ $output_file = $output_pattern;
+ $output_file =~ s/[{]([^}]*)[}]/$tag_hash{$1}/g;
+
+ # TODO remove illegal filename characters
+ # Open the file for writing
+ open FH, ">> $output_file" or die $!;
+ # DEBUG
+ print "Opened $output_file\n";
+ build_m3u(*FH, $tag_hash{PATH});
+ close FH;
+ }
+}
+
+# Disconnect from sqlite database
+$dbh->disconnect();