sendemail

diff --git a/backoffice/api/lib/sendemail.pm b/backoffice/api/lib/sendemail.pm
index 636e499..b4249ea 100644 (file)
--- a/backoffice/api/lib/sendemail.pm
+++ b/backoffice/api/lib/sendemail.pm
@@ -72,18 +72,12 @@ sub sendemail(){
   #PROD REPLACE all not replaced DATA       
   #$bodytmpl =~ s/%%\w+%%//g;
   #$sendto = 'ksaffran@dks.lu';
-  # open (LOG,">>tmp/sendmail.log");
-  # print LOG "SUBJECT:".$subject."\n";
-  # print LOG "BODY TEXT:".$bodytmpl."\n";
-  # close(LOG);
+
   if (($bodytmpl ne "") && ($subject ne "") && ($sendto =~ /.+\@.+\..+/)){
 
     my $f = dirname($ENV{SCRIPT_FILENAME}).'/tmp/mailbody_'.$sendto.'.txt';
     $f =~ s/\@/_/g;
-    # open (LOG,">>tmp/sendmail.log");
-    # print LOG "FILE:".$f."\n";
-    # # print LOG "BODY TEXT:".$bodytmpl."\n";
-    # close(LOG);
+
     
     my $cmd= 'perl "'.dirname($ENV{'SCRIPT_FILENAME'}).'/sendEmail" -f '.$tmpl->{mailfrom}.' ';
     $cmd .= ' -s "'.$self->{server}.':'.$self->{port}.'" -xu "'.$self->{user}.'" -xp "'.$self->{password}.'" -q ';
@@ -93,9 +87,7 @@ sub sendemail(){
     $cmd .= '-o message-file='.$f.' ';
     $cmd .= '-t "'.$sendto.'" ';
     $cmd .= '-u "'.$subject.'" ';
-  #   open (LOG,">>tmp/sendmail.log");
-  # print LOG $cmd."\n";
-  # close(LOG);
+
     open(EML,">".$f);
     print EML $bodytmpl;
     close(EML);
@@ -107,15 +99,11 @@ sub sendemail(){
         $cmd .= " ".$a." ";
       }
     }
-    # open (LOG,">>tmp/sendmail.log");
-    # print LOG "SEND EMAIL CMD:".$cmd."\n";
-    # close(LOG);
+
     # $cmd =~ s/'/''/g; 
     $send = system($cmd);
-    # open (LOG,">>tmp/sendmail.log");
-    # print LOG "CMD RETURN NUM:".$send."\n";
-    # close(LOG);
-    # unlink($f);
+
+    unlink($f);
   }    
   return $send;
 }