#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;

use XML::LibXML;
use Carp qw(confess);
#use Data::Dumper;
#use File::Path;
#use Getopt::Std;
#use POSIX qw(ceil);
#use XML::LibXML;

use Ernad::Erimp;
use Ernad::Editor;
use Ernad::Recon;
#use Ernad::Common;
#use Ernad::Dates;
#use Ernad::Sort;
#use Ernad::Generate;
#use Ernad::Sausage;
#use Ernad::Yanabino;

# use Krichel::File;

my $impna='bims';
my $in_fufi='/home/ernad/ernad/var/bims/reports/bims-evares/sent/2023-05-07_ft3kbp.amf.xml';

my $doc = XML::LibXML->load_xml(location=>$in_fufi, no_cdata=>1);

#print($doc);

my $repcode='bims-evares';

our $e=Ernad::Erimp->new({'impna'=>$impna});
my $recon=Ernad::Recon->new();
$recon->config($repcode);

my $rs;
$rs->{'e'}=$e;
$rs->{'repcode'}=$repcode;

my $out_doc=&Ernad::Editor::update_in_doc($doc, $rs);
print($out_doc);