New Import

1 files changed, 346 insertions, 0 deletions

diff --git a/bin/fileupdate.pl b/bin/fileupdate.pl
new file mode 100755
index 00000000..4353d057
--- /dev/null
+++ b/bin/fileupdate.pl
@@ -0,0 +1,346 @@
+#!/usr/bin/perl -w
+
+# Find and file away MP3's.  Run multiple times and will
+#  ignore addition of duplicates in db (based on MD5 hash
+#  of full file path.
+
+use FindBin qw($Bin);
+require "$Bin/init";
+
+use Data::Dumper;
+use Getopt::Long;
+
+use vars qw($help $pretend $id3 $rename $sort $all $verbose);
+
+Getopt::Long::Configure('bundling','no_ignore_case');
+GetOptions
+    ("h|help"        => \&usage,
+     "p|pretend"        => \$pretend,
+     "i|id3"         => \$id3,
+     "r|rename"      => \$rename,
+     "s|sort"        => \$sort,
+     "a|all"         => \$all,
+     "rename_all"    => \$rename_all,
+     "sort_all"	     => \$sort_all,
+     "v|verbose"     => \$verbose);
+ 
+if ( !$help && !$all && !$id3 && !$rename && !$sort && !$rename_all && !$sort_all ) {
+	usage();
+}
+
+if ($help) { 
+	usage();
+}
+
+if($id3 or $all)
+{
+    my @flagged = $ampache->get_table_where("flagged","WHERE type = 'setid3'");
+
+    foreach my $update(@flagged)
+    {
+        my @info = $ampache->get_song_info($update->{'song'});
+        my $cmd = update_id3_tag($ampache,@info);
+        if($rename or $all)
+        { 
+            if($verbose){ print "Marking for rename after id3\n"; }
+            if(!$pretend){ $ampache->change_flags(@info,'setid3','ren'); }
+        }
+        else
+        {
+            if($sort or $all)
+            {
+                if($verbose){ print "Marking for sort after id3\n"; }
+                if(!$pretend){ $ampache->change_flags(@info,'setid3','sort'); }
+            }
+            else
+            {
+                if($verbose){ print "Stopping after id3 update\n"; }
+                if(!$pretend){ $ampache->change_flags(@info,'setid3','notify'); }
+            }
+        }
+    }
+}
+
+if($rename or $all)
+{
+    my $filename = '';
+    my @flagged = $ampache->get_table_where("flagged","WHERE type = 'ren'");
+    foreach my $update (@flagged)
+    {
+        my @info = $ampache->get_song_info($update->{'song'});
+        my $cmd = rename_file($ampache,\$filename,@info);
+        if(!$pretend){ $ampache->update_song($cmd,@info); }
+        if($sort or $all)
+        {
+            if($verbose){ print "Marking for sort after rename\n"; }
+            if(!$pretend){ $ampache->change_flags(@info,'ren','sort'); }
+        }
+        else
+        {
+            if($verbose){ print "Updating filename in DB after rename\n"; }
+            if(!$pretend){ $ampache->change_flags(@info,'ren','notify'); }
+        }
+    }
+}
+
+if ($rename_all) { 
+	my $filename = '';
+	my @flagged = $ampache->get_table_where("catalog,song","WHERE catalog.catalog_type='local' AND catalog.id=song.catalog","song.id AS song");
+	foreach my $update (@flagged) {
+		my @info = $ampache->get_song_info($update->{'song'});
+		my $cmd = rename_file($ampache,\$filename,@info);
+		if(!$pretend){ $ampache->update_song($cmd,@info); }
+	} # End Foreach
+} # End Rename All
+
+if ($sort_all) { 
+    my $filename = '';
+    my @flagged = $ampache->get_table_where("catalog,song","WHERE catalog.catalog_type='local' AND catalog.id=song.catalog","song.id AS song");
+    foreach my $update(@flagged)
+    {
+        my @info = $ampache->get_song_info($update->{'song'});
+        my $cmd = sort_file($ampache,\$filename,@info);
+        if(!$pretend){ $ampache->update_song($cmd,@info); }
+    if($verbose){ print "Updating filename in DB after sort\n"; }
+    if(!$pretend){ $ampache->change_flags(@info,'sort','notify'); }
+    }
+} # End Sort ALL
+
+
+if($sort or $all)
+{
+    my $filename = '';
+    my @flagged = $ampache->get_table_where("flagged","WHERE type = 'sort'");
+    foreach my $update(@flagged)
+    {
+        my @info = $ampache->get_song_info($update->{'song'});
+        my $cmd = sort_file($ampache,\$filename,@info);
+        if(!$pretend){ $ampache->update_song($cmd,@info); }
+    if($verbose){ print "Updating filename in DB after sort\n"; }
+    if(!$pretend){ $ampache->change_flags(@info,'sort','notify'); }
+    }
+}
+
+# # # # #
+# subs
+# # # # # # #
+
+# %A = album name
+# %a = artist name
+# %C = catalog path (for the specified song)
+# %c = comment
+# %g = genre
+# %y = year
+# %T = track number
+# %t = song title
+#
+# %filename I use for filename
+
+sub get_catalog_setting
+{ 
+    my ($self,$catalog,$setting) = @_;
+    #bless $self;
+    my $cmd = $self->get_catalog_option($catalog,$setting);
+    return $cmd;
+}
+
+sub update_id3_tag 
+{
+    my ($self,$song) = @_;
+    my $id3set = get_catalog_setting($self,$song->{'catalog'},'id3_set_command');
+    $id3set =~ s/\Q%A\E/$song->{'album'}/g;
+    $id3set =~ s/\Q%a\E/$song->{'artist'}/g;
+    $id3set =~ s/\Q%C\E/$song->{'catalog'}/g;
+    $id3set =~ s/\Q%c\E/$song->{'comment'}/g;
+    if(($song->{'genre'} * 1) < 255){$id3set =~ s/\Q%g\E/$song->{'genre'}/g;}
+    else{$id3set =~ s/ -g %g//g;}
+    $id3set =~ s/\Q%T\E/$song->{'track'}/g;
+    $id3set =~ s/\Q%t\E/$song->{'title'}/g;
+    $id3set =~ s/\Q%y\E/$song->{'year'}/g;
+    $id3set =~ s/\Q%filename\E//g;
+    # $id3set =~ s/([\'\"])/\\$1/g;
+    my $filename = $song->{'file'};
+    my $id3tag_command = "$id3set \"$filename\"";
+    return do_call($id3tag_command);
+}
+
+sub rename_file 
+{
+    my ($self,$filename,$song) = @_;
+    my $ren_pattern = get_catalog_setting($self,$song->{'catalog'},'rename_pattern');
+    #my $sort_pattern = get_catalog_setting($self,$song->{'catalog'},'sort_pattern'); 
+    my $basedir;
+    if( $song->{'file'} =~ m/^(.*)\/.*?$/ )
+    {
+        $basedir = $1;
+    }
+    else{ die "Could not determine base directory for $song->{'file'}\n"; }
+
+    # We want to pad track numbers with leading zeros:
+    if($song->{'track'} < 10)
+    {
+        $song->{'track'} = "0".$song->{'track'};
+    }
+
+    # we need to clean title,album,artist,comment,genre,track, and year
+    $song->{'title'} =~ s/[\/]/-/g;
+    $song->{'album'} =~ s/[\/]/-/g;
+    $song->{'artist'} =~ s/[\/]/-/g;
+    $song->{'comment'} =~ s/[\/]/-/g;
+    $song->{'genre'} =~ s/[\/]/-/g;
+    $song->{'track'} =~ s/[\/]/-/g;
+    $song->{'year'} =~ s/[\/]/-/g;
+
+    $ren_pattern =~ s/\Q%A\E/$song->{'album'}/g;
+    $ren_pattern =~ s/\Q%a\E/$song->{'artist'}/g;
+    $ren_pattern =~ s/\Q%C\E/$song->{'catalog'}/g;
+    $ren_pattern =~ s/\Q%c\E/$song->{'comment'}/g;
+    $ren_pattern =~ s/\Q%g\E/$song->{'genre'}/g;
+    $ren_pattern =~ s/\Q%T\E/$song->{'track'}/g;
+    $ren_pattern =~ s/\Q%t\E/$song->{'title'}/g;
+    $ren_pattern =~ s/\Q%y\E/$song->{'year'}/g;
+    $ren_pattern =~ s/\Q%filename\E/$song->{'file'}/g;
+    my $oldfilename = $song->{'file'};
+    my $newfilename = $basedir . "/" . $ren_pattern;
+    # result is backslashes in filename
+    # $newfilename =~ s/([\'\"])/\\$1/g;
+
+	print "\tNew: $newfilename -- OLD: $oldfilename\n";
+
+    if(! -e "$newfilename")
+    {
+        my $ren_command = "mv \"$oldfilename\" \"$newfilename\"";
+        $filename = $newfilename;
+        do_call($ren_command);
+        return $filename;
+    }
+    else
+    {
+        print STDERR "File exists: $newfilename\n";
+        $filename = $oldfilename;
+        return $filename;
+    }
+}
+
+sub sort_file 
+{
+    my ($self, $filename, $song) = @_;
+    my $basename;
+    my $basedir;
+    if( $song->{'file'} =~ m/^(.*)\/(.*?)$/ )
+    {
+        $basename = $2;
+        $basedir = $1
+    }
+    else{ die "Could not determine base name for $song->{'file'}\n"; }
+
+    # we need to clean title,album,artist,comment,genre,track, and year
+    $song->{'title'} =~ s/[\/]/-/g;
+    $song->{'album'} =~ s/[\/]/-/g;
+    $song->{'artist'} =~ s/[\/]/-/g;
+    $song->{'comment'} =~ s/[\/]/-/g;
+    $song->{'genre'} =~ s/[\/]/-/g;
+    $song->{'track'} =~ s/[\/]/-/g;
+    $song->{'year'} =~ s/[\/]/-/g;
+
+    my $location = get_catalog_setting($self,$song->{'catalog'},'sort_pattern');
+    $location =~ s/\Q%A\E/$song->{'album'}/g;
+    $location =~ s/\Q%a\E/$song->{'artist'}/g;
+    $location =~ s/\Q%C\E/$song->{'catalog'}/g;
+    $location =~ s/\Q%c\E/$song->{'comment'}/g;
+    $location =~ s/\Q%g\E/$song->{'genre'}/g;
+    $location =~ s/\Q%T\E/$song->{'track'}/g;
+    $location =~ s/\Q%t\E/$song->{'title'}/g;
+    $location =~ s/\Q%y\E/$song->{'year'}/g;
+    # result is wrong paths
+    # $location =~ s/([\'\"])/\\$1/g;
+
+    create($location);
+
+    # The basename is calculated so we can see if the file already exists
+    if(! -e "$location/$basename")
+    {
+        my $cmd = "/bin/mv \"".$song->{'file'}."\" \"$location\"";
+        my $ret = do_call($cmd);
+        if(empty_dir($basedir))
+        {
+            print "Removing empty directory $basedir\n";
+            $cmd = "/bin/rmdir \"$basedir\"";
+            do_call($cmd);
+        }
+        $filename = $location."/".$basename;
+        return $filename;
+    }
+    else 
+    {
+        print STDERR "File exists: $location/$basename\n";
+        $filename = $song->{'file'};
+        return $filename;
+    }
+}
+
+sub usage 
+{
+    my $usage = qq{
+    fileupdate [--id3|--rename|--rename_all|--sort|--sort_all|--all] [--help] [--pretend] [--verbose]
+        --pretend   	Display command taken, without actually doing anything.
+	
+        --id3       	Update id3 tags for all files flagged with 'id3'
+	
+        --rename    	Rename files flagged with 'rename'
+	
+	--rename_all	Renames all files based on id3 info
+	
+        --sort      	Sort files flagged with 'sort'
+	
+	--sort_all	Sort all files based on id3 info
+	
+        --all		Performs id3 update, rename, and sort
+                    		for all files flagged with 'id3'
+        --verbose	Shows detailed information about what's happening.
+
+        --help		This message
+    };
+    die $usage;
+}
+
+sub do_call 
+{
+    my @cmd = @_;
+    my $return = 0;
+
+    if($verbose && !$pretend){ print "@cmd\n";}
+    if($pretend){ print "@cmd\n"; }
+    else
+    { 
+        $return = system @cmd; 
+    }
+    return $return;
+}
+
+sub create 
+{
+    my ($path) = @_;
+    if(! -e $path)
+    {
+        return do_call("mkdir","-p",$path);
+    }
+    return 1;
+}
+
+# empty_dir borrowed from Tom Phoenix (rootbeer@teleport.com)
+# posted in comp.lang.perl.misc on 3/21/97
+
+sub empty_dir ($) 
+{
+    local(*DIR, $_);
+    return unless opendir DIR, $_[0];
+    while (defined($_ = readdir DIR)) {
+        next if /^\.\.?$/;
+        closedir DIR;
+        return 0;
+    }
+    closedir DIR;
+    1;
+}
+1;