#!/usr/bin/perl

use strict;
use warnings;

#use Data::Dumper;
#use File::Compare;
#use File::Slurper;
#use List::Util qw(shuffle);
#use Storable;
#use XML::LibXML;
use Date::Parse;

use Ernad::Erimp;
#use Ernad::Common;
use Ernad::Monitor;

binmode(STDOUT,":utf8");

our $impna=$ARGV[0] // '';
if(not $impna) {
  print "I need an impna\n";
  exit;
}

our $monti=$ARGV[1] // '';
if(not $monti) {
  print "I need a monti\n";
  exit;
}

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

my $monitors=$Ernad::Monitor::monitors;
#my $monitor_dir=$e->{'dir'}->{'monitor'};

#print $monitor_dir,"\n";

my $known_montis='';
foreach my $monti (keys %$monitors) {
  $known_montis.="$monti ";
}
chop $known_montis;

if(not $monitors->{$monti}) {
  print "I don't know your monti $monti, try '$known_montis'.\n";
  exit;
}

my $out=&{$monitors->{$monti}} or exit;

my $tmp_file='/tmp/monitor_'.$impna.'_'.$monti;
open(O,"> $tmp_file");
print O $out;
close O;

my $subject="monitor $impna $monti";
system("cat $tmp_file | mutt -s \'$subject'\ krichel\@openlib.org 2> /dev/null");