X-Git-Url: https://diplodocus.org/git/flac-archive/blobdiff_plain/a33146ed688d846422b0ba519fa75c2bbaf0d651..001061de87619abc962ae2b5b062cb59594c7cc2:/fa-encode

diff --git a/fa-encode b/fa-encode
index e1d3a2c..5f98151 100755
--- a/fa-encode
+++ b/fa-encode
@@ -21,17 +21,19 @@ use v5.12;
 use warnings;
 
 use FindBin;
+use Pod::Usage;
 
-require "$FindBin::Bin/tags.p";
+require "$FindBin::Bin/tags.pl";
 epg::flac::archive::tags->import(
     qw[
         read_tags
         mangle_for_file_name
         quote
+        two_digits
     ]);
 
 sub main {
-    my $input_directory = shift;
+    my $input_directory = shift || pod2usage();
     my $fn = "$input_directory/tags";
     open(my $fh, '<', $fn) || die("open($fn): $!");
     my ($album, $tracks) = read_tags($fh);
@@ -63,6 +65,7 @@ sub main {
     my $dir = join('/', '..', mangle_for_file_name($artist), mangle_for_file_name($album_tag));
 
     say('set -ex');
+    say('cd ', quote($input_directory));
     say('mkdir -p ', quote($dir));
     my $tracknum = 0;
     for my $track (@$tracks) {
@@ -82,11 +85,11 @@ sub main {
             $track->{DISCNUMBER} = \@discnumber;
         }
         my $title = join(' ', @{$track->{TITLE}});
-        my $tracknum_s = sprintf('%02d', $tracknum);
+        my $tracknum_s = two_digits($tracknum);
         my $fn = join('/',
                       $dir,
                       join('_',
-                           (map { sprintf('%02d', $_) } @discnumber),
+                           (map { two_digits($_) } @discnumber),
                            $tracknum_s,
                            mangle_for_file_name($title) . '.flac',
                       ),