RT# 77144 replace bytes_substr with Unicode::Truncate

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

index eedc736..5eb304a 100644 (file)
--- a/FS/FS/Misc.pm
+++ b/FS/FS/Misc.pm
@@ -22,7 +22,6 @@ use Encode;
                   generate_ps generate_pdf do_print
                   csv_from_fixed
                   ocr_image
-                 bytes_substr
                   money_pretty
                 );
  
@@ -156,7 +155,11 @@ sub send_email {
    
        unshift @mimeparts, { 
          'Type'        => ( $options{'content-type'} || 'text/plain' ),
-        'Data'        => $options{'body'},
+        'Charset'     => 'UTF-8',
+        'Data'        => ( $options{'content-type'} =~ /^text\//
+                             ? Encode::encode_utf8( $options{'body'} )
+                             : $options{'body'}
+                         ), 
          'Encoding'    => ( $options{'content-type'} ? '-SUGGEST' : '7bit' ),
          'Disposition' => 'inline',
        };
@@ -165,7 +168,10 @@ sub send_email {
      
        @mimeargs = (
          'Type'     => ( $options{'content-type'} || 'text/plain' ),
-        'Data'     => $options{'body'},
+        'Data'     => ( $options{'content-type'} =~ /^text\//
+                          ? Encode::encode_utf8( $options{'body'} )
+                          : $options{'body'}
+                      ),
          'Encoding' => ( $options{'content-type'} ? '-SUGGEST' : '7bit' ),
        );
  
@@ -254,13 +260,11 @@ sub send_email {
    }
  
    push @to, $options{bcc} if defined($options{bcc});
-  # make sure 
-  my @env_to = split(/\s*,\s*/, join(', ', @to));
-  # strip display-name from envelope addresses
-  foreach (@env_to) {
-    s/^\s*//;
-    s/\s*$//;
-    s/^(.*)\s*<(.*@.*)>$/$2/;
+  # fully unpack all addresses found in @to (including Bcc) to make the
+  # envelope list
+  my @env_to;
+  foreach my $dest (@to) {
+    push @env_to, map { $_->address } Email::Address->parse($dest);
    }
  
    local $@; # just in case
@@ -281,7 +285,7 @@ sub send_email {
    if ( $conf->exists('log_sent_mail') ) {
      my $cust_msg = FS::cust_msg->new({
          'env_from'  => $options{'from'},
-        'env_to'    => join(', ', @to),
+        'env_to'    => join(', ', @env_to),
          'header'    => $message->header_as_string,
          'body'      => $message->body_as_string,
          '_date'     => $time,
@@ -375,7 +379,7 @@ sub generate_email {
      'Type'        => 'text/plain',
      'Encoding'    => 'quoted-printable',
      #'Encoding'    => '7bit',
-    'Data'        => $data,
+    'Data'        => Encode::encode_utf8($data),
      'Disposition' => 'inline',
    );
  
@@ -396,7 +400,7 @@ sub generate_email {
                         '    </title>',
                         '  </head>',
                         '  <body bgcolor="#ffffff">',
-                       @html_data,
+                       ( map Encode::encode_utf8($_), @html_data ),
                         '  </body>',
                         '</html>',
                       ],
@@ -752,6 +756,8 @@ sub generate_ps {
  
    my $papersize = $conf->config('papersize') || 'letter';
  
+  local($SIG{CHLD}) = sub {};
+
    system('dvips', '-q', '-t', $papersize, "$file.dvi", '-o', "$file.ps" ) == 0
      or die "dvips failed";
  
@@ -809,6 +815,8 @@ sub generate_pdf {
    #system('dvipdf', "$file.dvi", "$file.pdf" );
    my $papersize = $conf->config('papersize') || 'letter';
  
+  local($SIG{CHLD}) = sub {};
+
    system(
      "dvips -q -f $sfile.dvi -t $papersize ".
      "| gs -q -dNOPAUSE -dBATCH -sDEVICE=pdfwrite -sOutputFile=$sfile.pdf ".
@@ -891,6 +899,7 @@ sub do_print {
                : $conf->config('lpr', $opt{'agentnum'} );
  
    my $outerr = '';
+  local($SIG{CHLD}) = sub {};
    run3 $lpr, $data, \$outerr, \$outerr;
    if ( $? ) {
      $outerr = ": $outerr" if length($outerr);
@@ -980,6 +989,8 @@ sub ocr_image {
    print $fh $logo_data;
    close $fh;
  
+  local($SIG{CHLD}) = sub {};
+
    run( [qw(ocroscript recognize), $filename], '>'=>"$filename.hocr" )
      or die "ocroscript recognize failed\n";
  
@@ -995,23 +1006,26 @@ sub ocr_image {
  
  =item bytes_substr STRING, OFFSET[, LENGTH[, REPLACEMENT] ]
  
+DEPRECATED
+  Use Unicode::Truncate truncate_egc instead
+
  A replacement for "substr" that counts raw bytes rather than logical 
  characters. Unlike "bytes::substr", will suppress fragmented UTF-8 characters
  rather than output them. Unlike real "substr", is not an lvalue.
  
  =cut
  
-sub bytes_substr {
-  my ($string, $offset, $length, $repl) = @_;
-  my $bytes = substr(
-    Encode::encode('utf8', $string),
-    $offset,
-    $length,
-    Encode::encode('utf8', $repl)
-  );
-  my $chk = $DEBUG ? Encode::FB_WARN : Encode::FB_QUIET;
-  return Encode::decode('utf8', $bytes, $chk);
-}
+# sub bytes_substr {
+#   my ($string, $offset, $length, $repl) = @_;
+#   my $bytes = substr(
+#     Encode::encode('utf8', $string),
+#     $offset,
+#     $length,
+#     Encode::encode('utf8', $repl)
+#   );
+#   my $chk = $DEBUG ? Encode::FB_WARN : Encode::FB_QUIET;
+#   return Encode::decode('utf8', $bytes, $chk);
+# }
  
  =item money_pretty