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-btl | |
parent | 9ef9b12bc2ee061c9e242ca7236deeac587691b0 (diff) |
improved title and last-run reporting
Diffstat (limited to 'rhautoimport-btl')
-rwxr-xr-x | rhautoimport-btl | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/rhautoimport-btl b/rhautoimport-btl index b07c5b9..d8138dc 100755 --- a/rhautoimport-btl +++ b/rhautoimport-btl @@ -38,6 +38,7 @@ my $STAT_FILE = $ENV{'HOME'} . "/rhautoimport-btl.stat"; my $RSS_URL = "http://www.btlonline.org/rss/btl128.xml"; my $RD_GROUP = "betweenlin"; my $PV_ID = '221'; +my $TITLE="Between the Lines"; my $LAST_RUN = 0; binmode(STDIN, ":utf8"); @@ -47,6 +48,7 @@ binmode(STDERR, ":utf8"); my $curweek = RHRD::utils::get_rd_week(); if($curweek == 2 || $curweek == 4) { print "please don't run this script in week 2 or 4!\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); |