#!/usr/bin/perl --
print "Content-type: text/html\n\n";


#14/11 20:39 / 14/11 22:48 02:09:52 624.92 / 1164.35 113095495 Normal

open(FILE,"vreme.txt");
while(<FILE>)
{ 
$temp = 0;
$tarifa = 0;
$vreme = substr($_, 20, 2);
$sat = substr($_, 26, 2);
$min = substr($_, 29, 2);
$sek = substr($_, 32, 2);


print "Sat $sat - min $min - sek $sek     : ";

$totalsek = $sek + $totalsek;
$totalsat = $sat + $totalsat;
$totalmin = $min + $totalmin;

if ($vreme eq "07"){$tarifa = "1";}
if ($vreme eq "08"){$tarifa = "1";}
if ($vreme eq "09"){$tarifa = "1";}
if ($vreme eq "10"){$tarifa = "1";}
if ($vreme eq "11"){$tarifa = "1";}
if ($vreme eq "12"){$tarifa = "1";}
if ($vreme eq "13"){$tarifa = "1";}
if ($vreme eq "14"){$tarifa = "1";}
if ($vreme eq "15"){$tarifa = "1";}


if ($tarifa eq "1"){
print "skupa tarifa: $vreme <br>";
$temp = ($sat*60)+$min;
$cena = $cena + (($temp/2)*0.6023);
$cena = $cena + ((($sek/60)/2)*0.6023);
}


if($tarifa eq "0"){
print "jeftina tarifa: $vreme <br>";
$temp = ($sat*60)+$min;
$cena = $cena + (($temp/4)*0.6023);
$cena = $cena + ((($sek/60)/4)*0.6023);
}

}
close(FILE);
$totaltime = ($totalsat*60)+$totalmin+($totalsek/60);

print "-----------------------------------------------------<br>";
print "Total vreme: $totaltime <br>";
print "Cena je: $cena\n";