epita-std/ACU
Archived
1
0
Fork 0
Code Releases Activity

Tiny fixes

Browse source
This commit is contained in:
Mercier Pierre-Olivier 2013-12-01 04:21:04 +01:00
parent 05c7f4b9c6
commit faf03232f4
2 changed files with 2 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

2
ACU/Log.pm
View file

@ -9,7 +9,6 @@ use open IO => ':utf8';
use open ':std'; use open ':std';
use Data::Dumper; use Data::Dumper;
use Email::MIME;
use Exporter 'import'; use Exporter 'import';
use POSIX qw(strftime); use POSIX qw(strftime);
use Term::ANSIColor qw(:constants); use Term::ANSIColor qw(:constants);
@ -71,6 +70,7 @@ sub log
if ($mail_error && $level <= ERROR) if ($mail_error && $level <= ERROR)
{ {
require Email::MIME;
require Email::Sender::Simple; require Email::Sender::Simple;
Email::Sender::Simple->import(qw(sendmail)); Email::Sender::Simple->import(qw(sendmail));
my $mail = Email::MIME->create( my $mail = Email::MIME->create(

3
process/exec/guantanamo_node.pl
View file

@ -9,7 +9,6 @@ use File::Temp qw/tempfile tempdir/;
use IPC::Open3; use IPC::Open3;
use XML::LibXML; use XML::LibXML;
use ACU::LDAP;
use ACU::Log; use ACU::Log;
use ACU::Process; use ACU::Process;
@ -101,7 +100,7 @@ sub process_node
my $action = $args->{param}{action} // "launch"; my $action = $args->{param}{action} // "launch";
if (! exists $node_actions{$action}) { if (! exists $node_actions{$action}) {
log WARN, "Unknown action '$action' for guantanamo node process."; warn "Unknown action '$action' for guantanamo node process.";
} }
return $node_actions{$action}($args); return $node_actions{$action}($args);
} }