#!/usr/bin/perl -w

use strict;
use warnings;

use Data::Dumper;
use Ernad::Erimp;
use Krichel::File;

my $date_base_file;
my $date_base;
my $first_argument=$ARGV[0] // '';
##  first argument
if(-f $first_argument) {
  $date_base_file=$first_argument;
}
else {
  my $impna=$first_argument;
  my $e=Ernad::Erimp->new({'impna'=>$impna});
  my $db_dir = $e->{'dir'}->{'db'};
  my $db_backup_dir = $e->{'dir'}->{'db_backup'};
  $date_base_file = $db_dir.'/'.$e->{'const'}->{'date_base_file'};
}
print "Retrieving existing date base: $date_base_file\n";
if ( -f $date_base_file ) {
  $date_base= &Krichel::File::load( $date_base_file );
}
else {
  print "no such file $date_base_file\n";
  exit;
}
print Dumper $date_base;

exit;