summaryrefslogtreecommitdiff
path: root/rhimport-zf
diff options
context:
space:
mode:
authorChristian Pointner <equinox@helsinki.at>2013-03-21 18:08:43 (GMT)
committerChristian Pointner <equinox@helsinki.at>2013-03-21 18:08:43 (GMT)
commit3f7d3d2183dcaa0ed76bad4a5ba59380a4932983 (patch)
tree4be8b5b69c5e688a33fa7c536f3029dac7434d41 /rhimport-zf
parented51192b9aa84f56b9ccc6078c926fc6aa6bd609 (diff)
added rhimport for mahlzeit
Diffstat (limited to 'rhimport-zf')
-rwxr-xr-xrhimport-zf3
1 files changed, 3 insertions, 0 deletions
diff --git a/rhimport-zf b/rhimport-zf
index 19d34df..008ebec 100755
--- a/rhimport-zf
+++ b/rhimport-zf
@@ -32,6 +32,7 @@ use File::Fetch;
use IO::Handle;
use IPC::Open3;
use HTML::Entities;
+use File::Touch;
use lib '/usr/local/share/rhimport/';
use rhimport;
@@ -43,6 +44,7 @@ my $DB = "rivendell";
my $STAT_FILE = $ENV{'HOME'} . "/rhimport-zf.stat";
my $NOTE_FILE = $ENV{'HOME'} . "/rhimport-zf.last_note";
+my $NEW_FILE = $ENV{'HOME'} . "/rhimport-zf.is_new";
my $RSS_URL = "http://freie-radios.net/portal/podcast.php?serie=53&rss";
my $PV_ID = '300';
@@ -180,5 +182,6 @@ unlink($STAT_FILE);
open(my $fhs, '>', $STAT_FILE);
print $fhs $out_file;
close($fhs);
+touch($NEW_FILE);
exit 0;