summaryrefslogtreecommitdiff
path: root/rhautoimport-er
diff options
context:
space:
mode:
Diffstat (limited to 'rhautoimport-er')
-rwxr-xr-xrhautoimport-er8
1 files changed, 4 insertions, 4 deletions
diff --git a/rhautoimport-er b/rhautoimport-er
index 90577c9..34b431d 100755
--- a/rhautoimport-er
+++ b/rhautoimport-er
@@ -29,8 +29,8 @@ use XML::Feed::Content;
use XML::Feed::Enclosure;
use URI::URL;
use HTML::Entities;
+use RHRD::utils;
-use lib '../rhrdlibs/lib';
use lib '/usr/local/share/rhautoimport/';
use rhautoimport;
@@ -59,7 +59,7 @@ if(!defined $allowed_dbs[0] && defined $allowed_dbs[1]) {
}
if(scalar(@allowed_dbs) != 1) {
- print "found more or less than 1 Dropbox for this group?!\n";
+ print "found more or less than one Dropbox for this group?!\n";
exit 1;
}
my $show_id = $allowed_dbs[0]->{'SHOWID'};
@@ -68,8 +68,6 @@ my $show_title = $allowed_dbs[0]->{'SHOWTITLE'};
my $curweek = RHRD::utils::get_rd_week();
my @today = Date::Calc::Today();
-print "today: " . Date::Calc::Date_to_Text(@today) . " (Week: " . $curweek . ")\n";
-
my @import_date = Date::Calc::Standard_to_Business(@today);
$import_date[2] = 5;
@import_date = Date::Calc::Business_to_Standard(@import_date);
@@ -84,6 +82,8 @@ if($curweek == 1 || $curweek == 3) {
}
my $broadcast_num = `cat $LAST_FILE`;
$broadcast_num += 1;
+
+print "today: " . Date::Calc::Date_to_Text(@today) . " (Week: " . $curweek . ")\n";
print "day of next Radio Helsinki broadcast: " . Date::Calc::Date_to_Text(@import_date) . "\n";
print "Number of next broadcast: " . $broadcast_num . "\n\n";