diff options
Diffstat (limited to 'rhautoimport-huj')
| -rwxr-xr-x | rhautoimport-huj | 9 |
1 files changed, 2 insertions, 7 deletions
diff --git a/rhautoimport-huj b/rhautoimport-huj index 211ac81..ff7197a 100755 --- a/rhautoimport-huj +++ b/rhautoimport-huj @@ -39,8 +39,6 @@ my $LAST_FILE = $ENV{'HOME'} . "/rhautoimport-huj.last"; my $RSS_URL = "https://cba.fro.at/series/auf-dem-weg-ins-hier-und-jetzt-100-jahre-republik-oesterreich/feed"; $XML::Feed::MULTIPLE_ENCLOSURES=1; my $RD_GROUP = "hierujetzt"; -my $RD_CART_TH = 10267; -my $RD_CART_SA = 10268; my $PV_ID = '733'; my $TITLE="Auf dem Weg ins Hier und Jetzt!"; my $LAST_RUN = 0; @@ -73,7 +71,6 @@ if($allowed_dbs[0]->{'SHOWDOW'} != 4) { my $show_id = 0; my $show_title = ""; -my $rd_cart = 0; my @today = Date::Calc::Today(); my $dow = Date::Calc::Day_of_Week(@today); @@ -82,12 +79,10 @@ my @import_date = Date::Calc::Standard_to_Business(@today); if($dow <= 4 || $dow > 6) { $show_id = $allowed_dbs[$idx_th]->{'SHOWID'}; $show_title = $allowed_dbs[$idx_th]->{'SHOWTITLE'}; - $rd_cart=$RD_CART_TH; $import_date[2] = 4; } else { $show_id = $allowed_dbs[$idx_sa]->{'SHOWID'}; $show_title = $allowed_dbs[$idx_sa]->{'SHOWTITLE'}; - $rd_cart=$RD_CART_SA; $import_date[2] = 6; } @@ -173,9 +168,9 @@ if($uri eq "") { my $exit_code = 0; print "summary:\n" . $sum_title . "\n\n" . $sum_text . "\n"; -print "\n\nwill import '$uri' to show $show_id, $show_title at cart $rd_cart\n\n"; +print "\n\nwill import '$uri' to show $show_id, $show_title\n\n"; -my ($ret, $log) = rhautoimport::import_uri($show_id, $uri->as_string, undef, $rd_cart); +my ($ret, $log) = rhautoimport::import_uri($show_id, $uri->as_string); if($ret) { print "\nImport Error:\n\n"; print $log; |