#!/usr/bin/perl

use strict;
use warnings;

#use Carp qw(confess);
use Data::Dumper;
use Getopt::Std;

use Ernad::Args;
use Ernad::Erimp;


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

$e=Ernad::Erimp->new({'impna'=>$impna});
if(not $e) {
  print "I don't know the impna '$impna'.\n";
  exit;
}

my $rerc=$e->{'report'}->{$repcode};
if(not $rerc->{'dir'}) {
  $e->{'r'}->load($repcode);
  $rerc=$e->{'report'}->{$repcode};
}
if(not $rerc->{'dir'}) {
  print "I don't know about your report $repcode. Have you enabled it?\n";
  exit;
}
my $email=$rerc->{'editor_email'};
if(not $email) {
  print "I don't see the editor's email address.\n";
}

my $pw=$rerc->{'password'} // die "I don't see the report's password.\n";
my $dir="/var/lib/mailman/lists/$repcode";
if(-d $dir) {
  print "I see '$dir'. Probably the list exists already.\n";
  exit;
}

my $s="/usr/sbin/newlist -q $repcode $email $pw";
system($s);

## fixme. This should be in ernad/perl
$s="/home/ernad/perl/configure_nep_list $repcode";
system($s);