diff options
author | Christian Pointner <equinox@helsinki.at> | 2018-12-17 22:57:05 (GMT) |
---|---|---|
committer | Christian Pointner <equinox@helsinki.at> | 2018-12-17 22:57:05 (GMT) |
commit | 702b5753b08b85e00c6f67c93ffa8a55e7a7961d (patch) | |
tree | 8c3e420a9129eea93cd9a2fc045ce9255fcf9eb6 | |
parent | f498808eb9009b7f7d551207a743ffeca6b20851 (diff) |
huj carts are wrong and also not needed...
-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; |