#!/usr/bin/perl -w

use Pg;
use Date::Pcalc qw(:all);  # delo z datumi
use Math::Trig;

#manipulacije z datumom ------------------


# igranje s casom--------------------------
$isdst="";  $leto="";   $wday=""; $yday="";
($sec,$min,$hr,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
print "Time is " . $hr . ":" . $min . ":" . $sec . "\n";

$year += 1900;

print "Date is " . $year . "-" . $mon . "-" . $mday . "\n";
#Time is 10:1:24
#Date is 2003-1-29

print "--------------------------\n";
 $cas = system("date");
# izpis bo recimo             Wed Jan 29 10:01:25 UTC 2003

#spodnja vrstica je ?
$cas=system;


#$datum1=system;
print "|$cas||\n";

($dan,$mesec,$dani,$tcas,$leto) = localtime;
$cast=localtime;
print "|$cast|\n";
# izpis bo |Wed Jan 29 10:58:02 2003|
 ($dan,$mesec,$dani,$tcas,$leto_) = split(' ',$cast);

print "($dan,$mesec,$dani,$tcas,$leto_) ---\n";

#$mesec = $mon;
print "$leto_ $mesec $dan $dani \n";

#foreach $file (<*002.KKD>) { unlink($file) || warn "imam tezave z unicenjem $_: $!"; }
#foreach $file (<$datoteke>) { unlink($file) || warn "imam tezave z unicenjem $_: $!"; }





#print "zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz   --------   |$leto3z |$leto3k -- |$meseciz |$mesecik \n";




;

print "datum1 = $leto_,$mesec, $dan lllllllll\n";
print "datum1___ = $year,$mon, $mday lllllllll\n";

if ($mon < 9) {$mon='0'.$mon; }

if ($mday < 10) {$mday='0'.$mday; }


$datum2=$year.'-'.$mon.'-'.$mday;
$datum1=$year.'-'.$mon.'-'.$mday;



# razpakiramo datuma začetka in konca
($leto1, undef, $mesec1, undef, $dan1) = unpack("A4 A1 A2 A1 A2", $datum1);
($leto2, undef, $mesec2, undef, $dan2) = unpack("A4 A1 A2 A1 A2", $datum2);
print "$datum1 \n";
print "datum1 = $leto1,$mesec1, $dan1 gggggggggggggggglllllllll\n";
($leto2, $mesec2, $dan2) = Add_Delta_Days($leto2, $mesec2, $dan2, 1); # dodamo en dan zaradi zanke

($leto1, $mesec1, $dan1) = Add_Delta_Days($leto1, $mesec1, $dan1, 10); # dodamo 10 dni

print "Premaknjen datum $datum2 za 1 dan $leto2, $mesec2, $dan2  \n";

print "Premaknjen datum $datum1 za 10 dni $leto1, $mesec1, $dan1  \n";


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

    exit(0);