Merge branch 'master' of https://github.com/jgoodman/Freeside

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

index 3b0de3d..c598507 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
@@ -107,7 +108,7 @@ use Date::Format;
  use MIME::Entity;
  use Email::Sender::Simple qw(sendmail);
  use Email::Sender::Transport::SMTP;
-use Email::Sender::Transport::SMTP::TLS;
+use Email::Sender::Transport::SMTP::TLS 0.11;
  use FS::UID;
  
  FS::UID->install_callback( sub {
@@ -170,8 +171,15 @@ sub send_email {
  
    }
  
+  my $from = $options{from};
+  $from =~ s/^\s*//; $from =~ s/\s*$//;
+  if ( $from =~ /^(.*)\s*<(.*@.*)>$/ ) {
+    # a common idiom
+    $from = $2;
+  }
+
    my $domain;
-  if ( $options{'from'} =~ /\@([\w\.\-]+)/ ) {
+  if ( $from =~ /\@([\w\.\-]+)/ ) {
      $domain = $1;
    } else {
      warn 'no domain found in invoice from address '. $options{'from'}.
@@ -187,7 +195,7 @@ sub send_email {
      'Sender'     => $options{'from'},
      'Reply-To'   => $options{'from'},
      'Date'       => time2str("%a, %d %b %Y %X %z", $time),
-    'Subject'    => $options{'subject'},
+    'Subject'    => Encode::encode('MIME-Header', $options{'subject'}),
      'Message-ID' => "<$message_id>",
      @mimeargs,
    );
@@ -246,7 +254,7 @@ sub send_email {
    push @to, $options{bcc} if defined($options{bcc});
    local $@; # just in case
    eval { sendmail($message, { transport => $transport,
-                              from      => $options{from},
+                              from      => $from,
                                to        => \@to }) };
  
    my $error = '';
@@ -259,7 +267,7 @@ sub send_email {
    }
  
    # Logging
-  if ( $conf->exists('log_sent_mail') and $options{'custnum'} ) {
+  if ( $conf->exists('log_sent_mail') ) {
      my $cust_msg = FS::cust_msg->new({
          'env_from'  => $options{'from'},
          'env_to'    => join(', ', @to),
@@ -270,9 +278,11 @@ sub send_email {
          'custnum'   => $options{'custnum'},
          'msgnum'    => $options{'msgnum'},
          'status'    => ($error ? 'failed' : 'sent'),
+        'msgtype'   => $options{'msgtype'},
      });
      $cust_msg->insert; # ignore errors
    }
+  $error;
     
  }
  
@@ -328,7 +338,7 @@ sub generate_email {
  
    my $me = '[FS::Misc::generate_email]';
  
-  my @fields = qw(from to bcc subject custnum msgnum);
+  my @fields = qw(from to bcc subject custnum msgnum msgtype);
    my %return;
    @return{@fields} = @args{@fields};
  
@@ -352,8 +362,8 @@ sub generate_email {
  
    $alternative->attach(
      'Type'        => 'text/plain',
-    #'Encoding'    => 'quoted-printable',
-    'Encoding'    => '7bit',
+    'Encoding'    => 'quoted-printable',
+    #'Encoding'    => '7bit',
      'Data'        => $data,
      'Disposition' => 'inline',
    );
@@ -374,7 +384,7 @@ sub generate_email {
                         '      '. encode_entities($return{'subject'}), 
                         '    </title>',
                         '  </head>',
-                       '  <body bgcolor="#e8e8e8">',
+                       '  <body bgcolor="#ffffff">',
                         @html_data,
                         '  </body>',
                         '</html>',
@@ -412,6 +422,20 @@ sub process_send_email {
    '';
  }
  
+=item process_send_generated_email OPTION => VALUE ...
+
+Takes arguments as per send_email() and sends the message.  This 
+will die on any error and can be used in the job queue.
+
+=cut
+
+sub process_send_generated_email {
+  my %args = @_;
+  my $error = send_email(%args);
+  die "$error\n" if $error;
+  '';
+}
+
  =item send_fax OPTION => VALUE ...
  
  Options:
@@ -697,7 +721,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 = '';
  
@@ -755,7 +780,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>) {
@@ -798,16 +824,32 @@ sub _pslatex {
  
  }
  
-=item print ARRAYREF
+=item do_print ARRAYREF [, OPTION => VALUE ... ]
  
  Sends the lines in ARRAYREF to the printer.
  
+Options available are:
+
+=over 4
+
+=item agentnum
+
+Uses this agent's 'lpr' configuration setting override instead of the global
+value.
+
+=item lpr
+
+Uses this command instead of the configured lpr command (overrides both the
+global value and agentnum).
+
  =cut
  
  sub do_print {
-  my $data = shift;
+  my( $data, %opt ) = @_;
  
-  my $lpr = $conf->config('lpr');
+  my $lpr = ( exists($opt{'lpr'}) && $opt{'lpr'} )
+              ? $opt{'lpr'}
+              : $conf->config('lpr', $opt{'agentnum'} );
  
    my $outerr = '';
    run3 $lpr, $data, \$outerr, \$outerr;