summaryrefslogtreecommitdiff
path: root/rhimport-wr
diff options
context:
space:
mode:
Diffstat (limited to 'rhimport-wr')
-rwxr-xr-xrhimport-wr3
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);