From 25d59b138b85e092bede8b530d6a92bb8ac8d380 Mon Sep 17 00:00:00 2001
From: Christian Pointner <equinox@helsinki.at>
Date: Wed, 27 Mar 2013 12:40:31 +0000
Subject: added stat file for rhimport-mz


diff --git a/rhimport-mz b/rhimport-mz
index 2de5257..3ad4786 100755
--- a/rhimport-mz
+++ b/rhimport-mz
@@ -38,7 +38,10 @@ my $DBUSER = "rivendell";
 my $DBPW = "lldriven";
 my $DB = "rivendell";
 
+
 my @STATIC_FILES = ($ENV{'HOME'} . "/frontex", $ENV{'HOME'} . "/maribor" );
+
+my $STAT_FILE = $ENV{'HOME'} . "/rhimport-mz.stat";
 my $ZF_NOTE_FILE = $ENV{'HOME'} . "/rhimport-zf.last_note";
 my $ZF_NEW_FILE = $ENV{'HOME'} . "/rhimport-zf.is_new";
 my $PV_ID = '320';
@@ -91,6 +94,15 @@ if(scalar(@allowed_dbs) != 1) {
 }
 my $dropbox = $allowed_dbs[0]->{'PATH'};
 
+
+my $import_date = sprintf("%04d-%02d-%02d", @import_day);
+my $current_date = `cat $STAT_FILE`;
+if($current_date eq $import_date) {
+  print "Already downloaded file of day in question\n";
+  $dbh->disconnect();
+  exit 0;
+}
+
 unless(-e $ZF_NEW_FILE) {
   print "zip-fm not imported yet - ";
   if($#ARGV >= 0 && $ARGV[0] eq 'last') {
@@ -216,6 +228,11 @@ if(!$ret) {
   exit 1;
 }
 
+unlink($STAT_FILE);
+open(my $fhs, '>', $STAT_FILE);
+print $fhs $import_date;
+close($fhs);
+
 unlink($ZF_NEW_FILE);
 foreach my $dir (@STATIC_FILES) {
   open(my $fhs, '>', "$dir/.current");
-- 
cgit v0.10.2