diff options
author | Christian Pointner <equinox@helsinki.at> | 2015-07-10 16:36:41 (GMT) |
---|---|---|
committer | Christian Pointner <equinox@helsinki.at> | 2015-07-10 16:36:41 (GMT) |
commit | c5bda0a596d9f8c6e1b3767c1091b3e403ff99c8 (patch) | |
tree | 9e529bcf1102a1652ff842422962634813affe8c /rhimport-rs | |
parent | caab0e9dcb749512581405c42e516107f9c0ef25 (diff) |
replaced fetching of current week by static calculation algorightm
Diffstat (limited to 'rhimport-rs')
-rwxr-xr-x | rhimport-rs | 12 |
1 files changed, 1 insertions, 11 deletions
diff --git a/rhimport-rs b/rhimport-rs index a593f1d..e528b5b 100755 --- a/rhimport-rs +++ b/rhimport-rs @@ -77,17 +77,7 @@ if(!$to_cart) { exit 1; } -my $curweek = get("http://airplay/getweek.php"); -if(!defined $curweek || $curweek !~ /\d/ ) { - print "can't fetch current week info!\n"; - $dbh->disconnect(); - exit 1; -} -if($curweek < 1 || $curweek > 4) { - print "current week($curweek) out of bounds!\n"; - $dbh->disconnect(); - exit 1; -} +my $curweek = get_rd_week(); my $nextweek = $curweek == 4 ? 1 : $curweek + 1; my @today = Date::Calc::Today(); |