diff options
Diffstat (limited to 'rhimport-sv')
-rwxr-xr-x | rhimport-sv | 12 |
1 files changed, 1 insertions, 11 deletions
diff --git a/rhimport-sv b/rhimport-sv index 72290c8..1c05f04 100755 --- a/rhimport-sv +++ b/rhimport-sv @@ -70,17 +70,7 @@ if(scalar(@allowed_dbs) != 1) { my $dropbox = $allowed_dbs[0]->{'PATH'}; my $to_cart = $allowed_dbs[0]->{'TO_CART'}; -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 @today = Date::Calc::Today(); my $dow = Date::Calc::Day_of_Week(@today); |