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-po | |
| parent | 9ef9b12bc2ee061c9e242ca7236deeac587691b0 (diff) | |
improved title and last-run reporting
Diffstat (limited to 'rhautoimport-po')
| -rwxr-xr-x | rhautoimport-po | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/rhautoimport-po b/rhautoimport-po index 8d3caeb..b8bf682 100755 --- a/rhautoimport-po +++ b/rhautoimport-po @@ -40,6 +40,7 @@ my $RSS_URL = "https://cba.fro.at/series/panoptikum-bildung/feed"; $XML::Feed::MULTIPLE_ENCLOSURES=1; my $RD_GROUP = "panoptikum"; my $PV_ID = '570'; +my $TITLE="Panoptikum"; my $LAST_RUN = 0; binmode(STDIN, ":utf8"); @@ -54,6 +55,8 @@ if($curweek == 2 || $curweek == 4) { $LAST_RUN = 1; } } +rhautoimport::report_title_and_last($TITLE, $LAST_RUN); + my @today = Date::Calc::Today(); print "today: " . Date::Calc::Date_to_Text(@today) . " (Week: " . $curweek . ")\n"; |