summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorChristian Pointner <equinox@helsinki.at>2018-12-17 22:57:05 (GMT)
committerChristian Pointner <equinox@helsinki.at>2018-12-17 22:57:05 (GMT)
commit702b5753b08b85e00c6f67c93ffa8a55e7a7961d (patch)
tree8c3e420a9129eea93cd9a2fc045ce9255fcf9eb6
parentf498808eb9009b7f7d551207a743ffeca6b20851 (diff)
huj carts are wrong and also not needed...
-rwxr-xr-xrhautoimport-huj9
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;