more checks

1 files changed, 18 insertions, 2 deletions

diff --git a/videodb-check.pl b/videodb-check.pl
index f56a090..8acff46 100755
--- a/videodb-check.pl
+++ b/videodb-check.pl
@@ -85,6 +85,11 @@ the database.
 Each symlink in the directory I<MOVIES> of your collection has exactly
 one corresponding entry in the database.
 
+=item *
+
+No movie in the database has invalid release date, empty title or empty
+language.
+
 =back
 
 =head1 CONFIGURATION
@@ -214,15 +219,18 @@ foreach (@filelist) {
     push @files, $_  unless $#res == 0;
 }
 $sth->finish;
-$dbh->disconnect;
+&report ("The following files have <> 1 corresponding entries in the DB", \@files);
 
 
-&report ("The following files have <> 1 corresponding entries in the DB", \@files);
+&check ( "no release date", "year = 0" );
+&check ( "no language set", "language IS NULL OR language =''" );
+&check ( "no title set", "title IS NULL OR title =''" );
 
 
 ################################################################################
 
 
+$dbh->disconnect;
 exit $r;
 
 
@@ -239,3 +247,11 @@ sub report {
         $r = 1;
     }
 }
+
+sub check {
+    my $bad = $dbh->selectall_arrayref( "SELECT filename
+                                         FROM $config{videodata}
+                                         WHERE " .$_[1] )
+        or die "Can't select: " .$dbh->errstr. "\n";
+    &report ("The following files have " .$_[0], [map {$_->[0]} @$bad]);
+}