package Ernad::Learn::Lag;

use strict;
use warnings;

use Carp qw(cluck longmess shortmess croak confess);
use URI::Escape;

#use Ernad::Erimp;
#use Ernad::Files;
#use Ernad::Learn::Weights;
#use Ernad::Learn::Common;
#my $exfit_ext='.txt';
#binmode(STDOUT,':utf8');

## general log
our $lag;

$lag->{'nep'} = sub {
  my $report=shift // '';
  my $day=60*60*24;
  if(not $report) {
    return $day;
  }
  return 7*$day;
};

$lag->{'sos'} = sub {
  my $report=shift // '';
  my $delay=10;
  if(not $report) {
    return $delay;
  }
  return $delay;
};

$lag->{'bims'} = sub {
  my $report=shift // '';
  my $delay=10;
  if(not $report) {
    return $delay;
  }
  return $delay;
};


1;