Changeset 13 in mp3-find for trunk/lib/MP3

Timestamp:

03/24/06 00:15:31 (19 years ago)

Author:

peter

Message:

• added mp3db to EXE_FILES in Makefile.PL
• added "sync_db" method to DB.pm; removes outdated records from the database
• increased version number to '0.03' in Find.pm

Location:

trunk/lib/MP3

Files:

• Find.pm (modified) (1 diff)
• Find/DB.pm (modified) (3 diffs)

trunk/lib/MP3/Find.pm

@@ -9 +9 @@
 use Carp;
 
-$VERSION = '0.02';
+$VERSION = '0.03';
 
 @EXPORT = qw(find_mp3s);

trunk/lib/MP3/Find/DB.pm

@@ -147 +147 @@
 }
 
+sub sync_db {
+    my $self = shift;
+    my $db_file = shift or croak "Need the name of the databse to sync";
+    
+    my $dbh = DBI->connect("dbi:SQLite:dbname=$db_file", '', '', {RaiseError => 1});
+    my $select_sth = $dbh->prepare('SELECT FILENAME FROM mp3');
+    my $delete_sth = $dbh->prepare('DELETE FROM mp3 WHERE FILENAME = ?');
+    
+    # the number of records removed
+    my $count = 0;
+    
+    $select_sth->execute;
+    while (my ($filename) = $select_sth->fetchrow_array) {
+        unless (-e $filename) {
+            $delete_sth->execute($filename);
+            print STDERR "D $filename\n";
+            $count++;
+        }
+    }
+    
+    return $count;    
+}
+
 sub destroy_db {
     my $self = shift;
@@ -259 +282 @@
 sinc ethe last time C<update_db> was run.
 
+=head2 sync_db
+
+    my $count = $finder->sync_db($db_filename);
+
+Removes entries from the database that refer to files that no longer
+exist in the filesystem. Returns the count of how many records were
+removed.
+
 =head2 destroy_db
 
@@ -270 +301 @@
 
 Allow the passing of a DSN or an already created C<$dbh> instead
-of a SQLite database filename.
+of a SQLite database filename; or write driver classes to handle
+database dependent tasks (create_db/destroy_db).
 
 =head1 SEE ALSO