Changeset 29 in mp3-find for trunk/bin/mp3db

Timestamp:

05/21/06 05:17:23 (18 years ago)

Author:

peter

Message:

• factored out 'get_mp3_metadata' function from Filesystem.pm to Util.pm
• added 'update' function to DB.pm that combines 'update_db' and 'update_file' (for updating just specific files); idea courtesy of Matt Dietrich
• modified mp3db to let you mix and match files and directories on the command line; now also uses the 'update' function in DB.pm

File:

• trunk/bin/mp3db (modified) (1 diff)

trunk/bin/mp3db

@@ -13 +13 @@
 $DB_FILE ||= catfile($ENV{HOME}, 'mp3.db');
 
-my @DIRS = @ARGV;
+my @NAMES = @ARGV;
 
 my $f = MP3::Find::DB->new;
 $f->create_db($DB_FILE) if $CREATE;
-$f->update_db($DB_FILE, \@DIRS) if @DIRS;
+
+if (@NAMES) {
+    my @files = grep { -f } @NAMES;
+    my @dirs  = grep { -d } @NAMES;
+
+    $f->update({
+        dsn   => "dbi:SQLite:dbname=$DB_FILE",
+        dirs  => \@dirs,
+        files => \@files,
+    });
+}
 
 =head1 NAME