diff options
Diffstat (limited to 'rhimport-sm')
-rwxr-xr-x | rhimport-sm | 12 |
1 files changed, 1 insertions, 11 deletions
diff --git a/rhimport-sm b/rhimport-sm index aaa71f2..2466154 100755 --- a/rhimport-sm +++ b/rhimport-sm @@ -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); |