diff options
Diffstat (limited to 'rhautoimport-tr')
-rwxr-xr-x | rhautoimport-tr | 3 |
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); |