#!/usr/bin/perl -w

use strict;
use Date::Pcalc qw(Add_Delta_DHMS Delta_DHMS);

my (@date,@date2,@tmp, $ret);
my $datum;

#####################################################################

# Zacetni in koncni datum ("D M LLLL")

my $STARTDATE="1 1 2006";
my $ENDDATE="30 4 2007";




push(@tmp,split(" ",$STARTDATE));
@date=($tmp[2],$tmp[1],$tmp[0],0,0,0);
undef @tmp;
push(@tmp,split(" ",$ENDDATE));
@date2=($tmp[2],$tmp[1],$tmp[0],0,0,0);
undef @tmp;
@tmp = Delta_DHMS(@date,@date2);


while ($tmp[0] ge 0) {


  $datum=sprintf("%4d-%02d-%02d",$date[0],$date[1],$date[2]) ;

  #print "$datum\n";


  #
  # klic programa za prepis padavinskih podatkov.
  #  Prvi argument je obvezno datum (spremenljivka $datum),
  #  Drugi argument je opcijsko lahko id.
  #
 # print "Pozor datum je $datum \n";	  
  $ret = system("./test1.pl $datum"); #vpisati moram id postaja!!!!!!!!!!11
 
  @date = Add_Delta_DHMS(@date,1,0,0,0);
  @tmp = Delta_DHMS(@date,@date2);


}