diff options
Diffstat (limited to 'rhimport-zf')
-rwxr-xr-x | rhimport-zf | 3 |
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; |