diff options
author | dakkar <dakkar@thenautilus.net> | 2016-10-16 14:26:21 +0100 |
---|---|---|
committer | dakkar <dakkar@thenautilus.net> | 2016-10-16 14:26:21 +0100 |
commit | e5d50fa5293ca55a5fea23be344c524c76e007ae (patch) | |
tree | 62cce48e457fbc33cfa5a9fb71d3a18fbdbdde91 /anidb-renamer | |
parent | rough skeleton of the script (diff) | |
download | anidb-renamer-e5d50fa5293ca55a5fea23be344c524c76e007ae.tar.gz anidb-renamer-e5d50fa5293ca55a5fea23be344c524c76e007ae.tar.bz2 anidb-renamer-e5d50fa5293ca55a5fea23be344c524c76e007ae.zip |
more rough pieces
Diffstat (limited to 'anidb-renamer')
-rw-r--r-- | anidb-renamer | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/anidb-renamer b/anidb-renamer index e9a3451..64d6fc9 100644 --- a/anidb-renamer +++ b/anidb-renamer @@ -7,6 +7,7 @@ use Log::Any::Adapter::Util; use Log::Any '$log'; use Path::Tiny; use Getopt::Long::Descriptive; +use AniDB::Manager; my ($opt, $usage) = describe_options( '%c %o <directories>', @@ -29,7 +30,7 @@ Log::Any::Adapter->set( + $opt->verbose, ); -my $data = AniDB::Data->new($opt->database); +my $anidb = AniDB::Manager->new({database=>$opt->database}); my %new_name_for; for my $dir (@ARGV) { @@ -37,8 +38,8 @@ for my $dir (@ARGV) { while (my $path = $path_iter->()) { next unless $path->is_file; $log->info("looking at $path") - $data->update($path); - if (my $new_name = $data->maybe_new_name_for($path)) { + $anidb->update($path); + if (my $new_name = $anidb->maybe_new_name_for($path)) { $new_name_for{$path->stringify} = $new_name; } } @@ -46,6 +47,6 @@ for my $dir (@ARGV) { for my $current_name (sort keys %new_name_for) { $log->infof('renaming %s to %s',$current_name,$new_name_for{$current_name}); - $data->rename($current_name,$new_name_for{$current_name}); + $anidb->rename($current_name,$new_name_for{$current_name}); } |