#!/usr/bin/perl

use strict;
use warnings;

use Ernad::Erimp;
use Ernad::Dates;
use Ernad::Membership;

my $impna=$ARGV[0] // '';
if(not $impna) {
  print "I need an impna argument\n";
  exit;
}
my $up_date=&Ernad::Dates::get_up_date();

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

my $member_doc=Ernad::Membership::form_membership_doc($e);

my $colldoc=$e->{'r'}->assemble();

$colldoc=$e->{'x'}->inplace_ernad_into_coldoc($colldoc,$member_doc);

$colldoc->toFile('/tmp/colldoc.xml');

my $html_doc=$e->{'t'}->transform($colldoc,'index',{'update' => "'$up_date'"});

my $out_file=$e->{'dir'}->{'web'}.'/'.'index.html';

$html_doc->toFile($out_file);