diff options
author | Christian Pointner <equinox@helsinki.at> | 2016-07-20 15:56:50 (GMT) |
---|---|---|
committer | Christian Pointner <equinox@helsinki.at> | 2016-07-20 15:56:50 (GMT) |
commit | 270058507061600c4451eab173ab485644430166 (patch) | |
tree | a5ff58a55cf69057d143f193c9a203ea3abbae59 /rhautoimport-tr | |
parent | 9ef9b12bc2ee061c9e242ca7236deeac587691b0 (diff) |
improved title and last-run reporting
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); |