diff options
| -rw-r--r-- | Makefile | 2 | ||||
| -rwxr-xr-x | rhautoimport-dte | 8 |
2 files changed, 6 insertions, 4 deletions
@@ -26,7 +26,7 @@ endif .PHONY: clean distclean EXECUTABLE := rhautoimport -IMPORTER := ab btl dm dn dv ek er eu fb fl gd lr nw oi po pv rs ra tr wr xy +IMPORTER := ab btl dm dn dte dv ek er eu fb fl gd lr nw oi po pv rs ra tr wr xy EXECUTABLES := $(IMPORTER:%=$(EXECUTABLE)-%) all: $(EXECUTABLE) diff --git a/rhautoimport-dte b/rhautoimport-dte index 3673a69..532cd01 100755 --- a/rhautoimport-dte +++ b/rhautoimport-dte @@ -29,8 +29,6 @@ use XML::Feed::Content; use XML::Feed::Enclosure; use URI::URL; use HTML::Entities; -## TODO: remove me! -use lib '../rhrdlibs/lib/'; use RHRD::utils; use lib '/usr/local/share/rhautoimport/'; @@ -51,6 +49,10 @@ binmode(STDIN, ":utf8"); binmode(STDOUT, ":utf8"); binmode(STDERR, ":utf8"); +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); @@ -77,7 +79,7 @@ my @today = Date::Calc::Today(); my $dow = Date::Calc::Day_of_Week(@today); my @import_date = Date::Calc::Standard_to_Business(@today); -if($dow < 2 || $dow > 6) { +if($dow <= 2 || $dow > 6) { $show_id = $allowed_dbs[$idx_tu]->{'SHOWID'}; $show_title = $allowed_dbs[$idx_tu]->{'SHOWTITLE'}; $rd_cart=$RD_CART_TU; |