bicyclesonthemoon.info Git - ott/bsta/blob - ongtimes.pl

   1 #!/usr/bin/perl
   2 # 01.02.2017
   3
   4 use strict;
   5 #use warnings;
   6 use lib '/eizm/lib/bstatest/';
   7 use bsta_lib qw(readdatafile writedatafile);
   8
   9 use constant DATA_PATH          => '/eizm/data/bsta/';
  10 use constant SETTINGS_PATH      => '/eizm/data/bsta/settings';
  11 use constant STATE_PATH         => '/eizm/data/bsta/state';
  12
  13 my %framedata;
  14 my %settings;
  15 my %state;
  16
  17 my $last;
  18 my $ongtime;
  19 my @timetab;
  20 my $timer;
  21 my $prevongtime;
  22 my $cleantimer;
  23 my $nicetime;
  24
  25 %state=readdatafile(STATE_PATH);
  26 $last=int($state{'last'});
  27
  28 for (my $f=$last; $f>=0; --$f) {
  29         %framedata=readdatafile(DATA_PATH.$f);\r $ongtime=int($framedata{'ongtime'});
  30         @timetab=gmtime($ongtime);
  31         $nicetime=sprintf('UTC %04d.%02d.%02d %02d:%02d:%02d',$timetab[5]+1900,$timetab[4]+1,$timetab[3],$timetab[2],$timetab[1],$timetab[0]);
  32
  33         if($framedata{'timer'}ne'') {
  34                 $timer=int($framedata{'timer'});
  35                 $cleantimer=$timer;
  36         }
  37         # elsif($f<$last) {
  38                 # $timer=($prevongtime-$ongtime)/3600;
  39                 # $cleantimer=0-int($timer+0.5);
  40                 # $framedata{'timer'}=0-$cleantimer;
  41                 # writedatafile(DATA_PATH.$f,%framedata);
  42         # }
  43
  44         print "$f\t$nicetime\t$ongtime\t\t$timer\n";
  45         $prevongtime=$ongtime;
  46 }
  47 for (my $f=0; $f<=$last; ++$f) {
  48
  49 }