#!/usr/bin/perl

use strict;
use warnings;
use utf8;

use XML::LibXML;

use Ernad::Dates;
use Ernad::Erimp;
use Ernad::Yanabino;

## give the impna
my $impna=$ARGV[0] // '';
if(not $impna) {
  print "I don't have an impna parameter\n";
  exit;
}

our $e=Ernad::Erimp->new({'impna'=>$impna});
my $ernad_ns = $e->{'const'}->{'ernad_ns'};

## create an xpath contents
# my $xpc = $e->get_xpc();

my $p_file = $e->{'dir'}->{'www'}.'piles.html';
my $p_xml = '/tmp/piles.xml';

my $p_doc = XML::LibXML::Document->new('1.0','utf-8');
my $p_ele = $p_doc->createElementNS($ernad_ns,'piles');

my $piles = &Ernad::Yanabino::list_piles();

print Dumper $piles;

exit;