#!/usr/bin/perl

use strict;
use warnings;

use Carp qw(confess);
# use Clone qw(clone);
use Data::Dumper;
use File::Basename;
use Getopt::Std;

use Ernad::Args;
use Ernad::Erimp;
use Ernad::Indat::Otria;
use Ernad::Indat::Vypot;
use Ernad::Indat::Report;

my %o;
#&Getopt::Std::getopts('b', \%o);
#my $do_add = $o{'a'} // 0;
#my $do_delete = $o{'d'} // 0;
#my $do_build = $o{'b'} // 0;

our ($impna, $e, $repcode, $in_file);
&Ernad::Args::parse();

$e=Ernad::Erimp->new({'impna'=> $impna, 'verbose'=>3});

## FixMe: This code is copied in perl/publish
my $r=Ernad::Indat::Report->new();
## so we don't have to run the otria twice
my $report_list=$r->gather_all_reports();
my $s=Ernad::Indat::Sborn->new();
## so
my $doc=$s->report_xml($report_list);
$s->show('reports',$doc);


__END__;