diff options
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}); } |