per-agent disable_previous_balance, #15863

[freeside.git] / FS / FS / Misc.pm
diff --git a/FS/FS/Misc.pm b/FS/FS/Misc.pm

index 6108f77..3cc920f 100644 (file)
--- a/FS/FS/Misc.pm
+++ b/FS/FS/Misc.pm
@@ -9,6 +9,7 @@ use IPC::Run qw( run timeout );   # for _pslatex
  use IPC::Run3; # for do_print... should just use IPC::Run i guess
  use File::Temp;
  use Tie::IxHash;
+use Encode;
  #do NOT depend on any FS:: modules here, causes weird (sometimes unreproducable
  #until on client machine) dependancy loops.  put them in FS::Misc::Something
  #instead
@@ -89,6 +90,15 @@ encoding which, if specified, overrides the default "7bit".
  
  (optional) type parameter for multipart/related messages
  
+=item custnum
+
+(optional) L<FS::cust_main> key; if passed, the message will be logged
+(if logging is enabled) with this custnum.
+
+=item msgnum
+
+(optional) L<FS::msg_template> key, for logging.
+
  =back
  
  =cut
@@ -171,13 +181,14 @@ sub send_email {
    }
    my $message_id = join('.', rand()*(2**32), $$, time). "\@$domain";
  
+  my $time = time;
    my $message = MIME::Entity->build(
      'From'       => $options{'from'},
      'To'         => join(', ', @to),
      'Sender'     => $options{'from'},
      'Reply-To'   => $options{'from'},
-    'Date'       => time2str("%a, %d %b %Y %X %z", time),
-    'Subject'    => $options{'subject'},
+    'Date'       => time2str("%a, %d %b %Y %X %z", $time),
+    'Subject'    => Encode::encode('MIME-Header', $options{'subject'}),
      'Message-ID' => "<$message_id>",
      @mimeargs,
    );
@@ -238,13 +249,32 @@ sub send_email {
    eval { sendmail($message, { transport => $transport,
                                from      => $options{from},
                                to        => \@to }) };
- 
+
+  my $error = '';
    if(ref($@) and $@->isa('Email::Sender::Failure')) {
-    return ($@->code ? $@->code.' ' : '').$@->message
+    $error = $@->code.' ' if $@->code;
+    $error .= $@->message;
    }
    else {
-    return $@;
+    $error = $@;
+  }
+
+  # Logging
+  if ( $conf->exists('log_sent_mail') and $options{'custnum'} ) {
+    my $cust_msg = FS::cust_msg->new({
+        'env_from'  => $options{'from'},
+        'env_to'    => join(', ', @to),
+        'header'    => $message->header_as_string,
+        'body'      => $message->body_as_string,
+        '_date'     => $time,
+        'error'     => $error,
+        'custnum'   => $options{'custnum'},
+        'msgnum'    => $options{'msgnum'},
+        'status'    => ($error ? 'failed' : 'sent'),
+    });
+    $cust_msg->insert; # ignore errors
    }
+   
  }
  
  =item generate_email OPTION => VALUE ...
@@ -279,6 +309,10 @@ Will be placed inside an HTML <BODY> tag.
  
  Email body (Text alternative).  Arrayref of lines, or scalar.
  
+=item custnum, msgnum (optional)
+
+Customer and template numbers, passed through to send_email for logging.
+
  =back
  
  Constructs a multipart message from text_body and html_body.
@@ -295,20 +329,9 @@ sub generate_email {
  
    my $me = '[FS::Misc::generate_email]';
  
-  my %return = (
-    'from'    => $args{'from'},
-    'to'      => $args{'to'},
-    'bcc'     => $args{'bcc'},
-    'subject' => $args{'subject'},
-  );
-
-  #if (ref($args{'to'}) eq 'ARRAY') {
-  #  $return{'to'} = $args{'to'};
-  #} else {
-  #  $return{'to'} = [ grep { $_ !~ /^(POST|FAX)$/ }
-  #                         $self->cust_main->invoicing_list
-  #                  ];
-  #}
+  my @fields = qw(from to bcc subject custnum msgnum);
+  my %return;
+  @return{@fields} = @args{@fields};
  
    warn "$me creating HTML/text multipart message"
      if $DEBUG;
@@ -330,8 +353,8 @@ sub generate_email {
  
    $alternative->attach(
      'Type'        => 'text/plain',
-    #'Encoding'    => 'quoted-printable',
-    'Encoding'    => '7bit',
+    'Encoding'    => 'quoted-printable',
+    #'Encoding'    => '7bit',
      'Data'        => $data,
      'Disposition' => 'inline',
    );
@@ -675,7 +698,8 @@ sub generate_ps {
    open(POSTSCRIPT, "<$file.ps")
      or die "can't open $file.ps: $! (error in LaTeX template?)\n";
  
-  unlink("$file.dvi", "$file.log", "$file.aux", "$file.ps", "$file.tex");
+  unlink("$file.dvi", "$file.log", "$file.aux", "$file.ps", "$file.tex")
+    unless $FS::CurrentUser::CurrentUser->option('save_tmp_typesetting');
  
    my $ps = '';
  
@@ -733,7 +757,8 @@ sub generate_pdf {
    open(PDF, "<$file.pdf")
      or die "can't open $file.pdf: $! (error in LaTeX template?)\n";
  
-  unlink("$file.dvi", "$file.log", "$file.aux", "$file.pdf", "$file.tex");
+  unlink("$file.dvi", "$file.log", "$file.aux", "$file.pdf", "$file.tex")
+    unless $FS::CurrentUser::CurrentUser->option('save_tmp_typesetting');
  
    my $pdf = '';
    while (<PDF>) {
@@ -767,10 +792,13 @@ sub _pslatex {
  
      local($SIG{CHLD}) = sub {};
      run( \@cmd, '>'=>'/dev/null', '2>'=>'/dev/null', timeout($timeout) )
-      or die "pslatex $file.tex failed; see $file.log for details?\n";
+      or warn "bad exit status from pslatex pass $_\n";
  
    }
  
+  return if -e "$file.dvi" && -s "$file.dvi";
+  die "pslatex $file.tex failed; see $file.log for details?\n";
+
  }
  
  =item print ARRAYREF