[Rt-commit] r18137 - in rt/3.999/branches/merge_to_3.8.2: . lib/RT/Interface

sunnavy at bestpractical.com sunnavy at bestpractical.com
Tue Feb 3 02:41:24 EST 2009


Author: sunnavy
Date: Tue Feb  3 02:41:23 2009
New Revision: 18137

Modified:
   rt/3.999/branches/merge_to_3.8.2/   (props changed)
   rt/3.999/branches/merge_to_3.8.2/lib/RT/Interface/Email.pm
   rt/3.999/branches/merge_to_3.8.2/lib/RT/Model/Ticket.pm

Log:
 r19456 at sunnavys-mb:  sunnavy | 2009-02-03 13:23:51 +0800
 use RT::EmailParser->parse_email_address in some places as in 3.8 so we can parse local mail address too. see the doc in RT::EmailParser


Modified: rt/3.999/branches/merge_to_3.8.2/lib/RT/Interface/Email.pm
==============================================================================
--- rt/3.999/branches/merge_to_3.8.2/lib/RT/Interface/Email.pm	(original)
+++ rt/3.999/branches/merge_to_3.8.2/lib/RT/Interface/Email.pm	Tue Feb  3 02:41:23 2009
@@ -900,7 +900,7 @@
 
     # Some broken mailers send:  ""Vincent, Jesse"" <jesse at fsck.com>. Hate
     $Addr =~ s/\"\"(.*?)\"\"/\"$1\"/g;
-    my @Addresses = Email::Address->parse($Addr);
+    my @Addresses = RT::EmailParser->parse_email_address($Addr);
     
 
     my ($AddrObj) = grep ref $_, @Addresses;

Modified: rt/3.999/branches/merge_to_3.8.2/lib/RT/Model/Ticket.pm
==============================================================================
--- rt/3.999/branches/merge_to_3.8.2/lib/RT/Model/Ticket.pm	(original)
+++ rt/3.999/branches/merge_to_3.8.2/lib/RT/Model/Ticket.pm	Tue Feb  3 02:41:23 2009
@@ -499,7 +499,7 @@
             if ( $watcher =~ /^\d+$/ ) {
                 push @{ $args{$type} }, $watcher;
             } else {
-                my @addresses = Email::Address->parse($watcher);
+                my @addresses = RT::EmailParser->parse_email_address($watcher);
                 foreach my $address (@addresses) {
                     my $user = RT::Model::User->new( current_user => RT->system_user );
                     my ( $uid, $msg ) = $user->load_or_create_by_email($address);
@@ -827,7 +827,7 @@
         if $self->current_user_has_right('ModifyTicket');
 
     if ( $args{'email'} ) {
-        my ($addr) = Email::Address->parse( $args{'email'} );
+        my ($addr) = RT::EmailParser->parse_email_address( $args{'email'} );
         return ( 0, _( "Couldn't parse address from '%1' string", $args{'email'} ) ) unless $addr;
 
         if ( lc $self->current_user->user_object->email eq lc RT::Model::User->canonicalize_email( $addr->address ) ) {


More information about the Rt-commit mailing list