Mentat

Podklady pro poradu..., urcite to musim vysvetlit:)

Nastrel granurality:

# IF (($interval > 10 hours) AND ($interval <= 21 hours)) THEN 3 hours  ;; graph_min: 10/3=3.3  ;; graph_max: 21/3=7
# IF (($interval > 21 hours) AND ($interval <= 42 hours)) THEN 6 hours  ;; graph_min: 21/6=3.5  ;; graph_max: 42/6=7
# IF (($interval > 42 hours) AND ($interval <= 84 hours)) THEN 12 hours ;; graph_min: 42/12=3.5 ;; graph_max: 84/12=7
# IF (($interval > 84 hours) AND ($interval <= 7 days))   THEN 24 hours ;; graph_min: 84/24=3.5 ;; graph_max: 168/24=7
# IF (($interval > 7 days) AND ($interval <= 14 days))    THEN 2 days   ;; graph_min: 7/2=3.5 ;; graph_max: 14/2=7
# IF (($interval > 14 days) AND ($interval <= 21 days))   THEN 3 days   ;; graph_min: 14/3=4.7 ;; graph_max: 21/3=7
# IF (($interval > 21 days) AND ($interval <= 28 days))   THEN 4 days   ;; graph_min: 21/4=5.3 ;; graph_max: 28/4=7
# IF (($interval > 28 days) AND ($interval <= 49 days))   THEN 7 days   ;; graph_min: 28/7=5.3 ;; graph_max: 49/7=7
# IF (($interval > 49 days) AND ($interval <= 98 days))   THEN 14 days  ;; graph_min: 49/14=3.5 ;; graph_max: 98/14=7
# IF (($interval > 98 days) AND ($interval <= 365 days))  THEN 30 days  ;; graph_min: 98/30=3.3 ;; graph_max: 365/30=12

Ukazka, vstup:

my $from = '2013-06-12 20:39:01';
my $to   = '2013-08-30 20:39:01';
my $alert= '2013-07-30 20:39:01';

Ukazka, vystup:

granul = 14*den
alert = 3. granul

Dotaz:

https://mentat.vsb.cz/dashboard?query=&from=2013-06-12+20%3A39%3A01&to=2013-08-06+20%3A39%3A01

• popisek - pokud možno nejkratší smysluplný popisek ve spojitosti s granularitou a rozsahem. Tj. např. od 3 ráno do 3 odpoledne s hodinovou granularitou stačí hodina, od 3 jednoho dne do 3 druhého dne dalšího dne je potřeba den a hodina. A např. pokud napříč roky, dodám rok, pokud pod den, nemusí tam být den v měsíci a měsíc.

Udelal jsem nastrel ("nastrel" byl dohodnut na porade:))
Viz screenshoty + pobavime se na porade.

1. chyba byla v localtime -> budu jeste konzultovat s Mekem:

Podle me bychom mohli pridat funkci, ktera vrati datetime (nemel jsem tam localtime):

    lib/Mentat/Storage/Mongo/Aggregator.pm
    my $f = DateTime->from_epoch(epoch => $epoch_from, time_zone => 'local');
    my $t = DateTime->from_epoch(epoch => $epoch_to, time_zone => 'local');

2. Druha chyba byla jen v nespravne podmince.

Pridavam screenshoty.

Opraveno/pridano - funkce, ktera vraci datetime:

=item unixs_to_datetime($;$) [PUBLIC,HYBRID]

  Usage     : my $result = Value::Convertor->unixs_to_datetime($value, $print_in_local);
              my $result = $convertor->unixs_to_datestr($value, $print_in_local);
  Purpose   : Converts 'unix_stamp' to 'DateTime'
  Arguments : INTEGER|FLOAT $unixstamp - Value to be converted [MANDATORY]
              BOOL $print_in_local - display the timestamp in local time, not UTC/GMT
  Returns   : DateTime
  Throws    : Dies, if not given any conversion argument

=cut

sub unixs_to_datetime($;$)
{
    my $invocant = shift;
    my ($unixstamp, $print_in_local) = @_;
    croak ((caller(0))[3] . ": expected conversion argument not given") unless defined $unixstamp;

    # Assume all timestamps to be in UTC/GMT
    my $dt = DateTime->from_epoch(epoch => $unixstamp, time_zone => 'UTC');

    # Print time in local time zone?
    unless ($print_in_local)
    {
        $dt->set_time_zone('UTC');
        return $dt;
    }
    else
    {
        $dt->set_time_zone($TIME_ZONE);
        return $dt;
    }
}