#!/usr/bin/perl

use strict;
use warnings;

use Carp qw(confess);
use File::Copy;
use File::Compare;
use File::Slurper;

use Ernad::Common;
use Ernad::Erimp;

my $impna=$ARGV[0] or die "no impna";
my $alias_file="/etc/aliases";
my $alias_border="# $impna-editors";
my $tmp_file="/tmp/make_etc_alias_snippet";

my $ernad_aliases;
## param passed are the impnas
my $count_impnas=0;
foreach my $impna (@ARGV) {
  $count_impnas++;
  my $e=Ernad::Erimp->new({'impna'=>$impna});
  my $reports_doc=$e->{'r'}->assemble();
  my $text=$e->{'t'}->to_text($reports_doc,'make_etc_alias_snippet');
  $text=~s|^\s+||;
  $text=~s|\s+$|\n|;
}

if($count_impnas <1) {
  print "I need the impnas as parameters.\n"
}
my $alias_text=&File::Slurper::read_text($alias_file);
$alias_text=~s|($alias_border)([^#]+)\1|$1$ernad_aliases$1|;

&File::Slurper::write_text($tmp_file,$alias_text);
if(compare($alias_file,$tmp_file) == 0) {
  #print "They're equal\n";
  exit;
}

my $s="sudo /bin/cp $tmp_file $alias_file";
#print "$s\n";
system($s);