added panoptikum importer

1 files changed, 2 insertions, 1 deletions

diff --git a/rhimport-wr b/rhimport-wr
index 2fd1089..0742586 100755
--- a/rhimport-wr
+++ b/rhimport-wr
@@ -105,7 +105,8 @@ print "day of latest original broadcast before next Radio Helsinki broadcast: "
 
 if(Date::Calc::Delta_Days(@broadcast_date, @today) <= 0) {
   print "File won't be available by now!\n";
-  exit 42;
+  $dbh->disconnect();
+  exit 0;
 }
 
 my $id = sprintf("%04d-%02d-%02d", @import_date);