summaryrefslogtreecommitdiff
path: root/rhautoimport-tr
diff options
context:
space:
mode:
authorChristian Pointner <equinox@helsinki.at>2016-07-20 15:56:50 (GMT)
committerChristian Pointner <equinox@helsinki.at>2016-07-20 15:56:50 (GMT)
commit270058507061600c4451eab173ab485644430166 (patch)
treea5ff58a55cf69057d143f193c9a203ea3abbae59 /rhautoimport-tr
parent9ef9b12bc2ee061c9e242ca7236deeac587691b0 (diff)
improved title and last-run reporting
Diffstat (limited to 'rhautoimport-tr')
-rwxr-xr-xrhautoimport-tr3
1 files changed, 3 insertions, 0 deletions
diff --git a/rhautoimport-tr b/rhautoimport-tr
index 095402c..a1aa235 100755
--- a/rhautoimport-tr
+++ b/rhautoimport-tr
@@ -38,6 +38,7 @@ my $RSS_URL = "https://cba.fro.at/series/tierrechtsradio/feed";
$XML::Feed::MULTIPLE_ENCLOSURES=1;
my $RD_GROUP = "tierrecht";
my $PV_ID = '506';
+my $TITLE="Tierrechtsradio";
my $LAST_RUN = 0;
binmode(STDIN, ":utf8");
@@ -47,6 +48,7 @@ binmode(STDERR, ":utf8");
my @today = Date::Calc::Standard_to_Business(Date::Calc::Today());
if($today[2] == 5) {
print "please don't run this script on fridays!\n";
+ rhautoimport::report_title_and_last($TITLE, 0);
exit 42;
}
@@ -54,6 +56,7 @@ if($#ARGV >= 0 && $ARGV[0] eq 'last') {
print "!!!This is the last attempt, there won't be a retry on error!!!\n";
$LAST_RUN = 1;
}
+rhautoimport::report_title_and_last($TITLE, $LAST_RUN);
my @allowed_dbs = rhautoimport::get_dropboxes($RD_GROUP);