[Rt-commit] r6220 - in rtir/branches/2.1-EXPERIMENTAL: .

[ruz at bestpractical.com]

Author: ruz
Date: Wed Oct 18 15:55:04 2006
New Revision: 6220

Modified:
   rtir/branches/2.1-EXPERIMENTAL/   (props changed)
   rtir/branches/2.1-EXPERIMENTAL/lib/RT/Action/RTIR_FindIP.pm

Log:
 r1725 at cubic-pc:  cubic | 2006-10-19 00:02:48 +0400
 * match only IP that are not followed by numbers


Modified: rtir/branches/2.1-EXPERIMENTAL/lib/RT/Action/RTIR_FindIP.pm
==============================================================================
--- rtir/branches/2.1-EXPERIMENTAL/lib/RT/Action/RTIR_FindIP.pm	(original)
+++ rtir/branches/2.1-EXPERIMENTAL/lib/RT/Action/RTIR_FindIP.pm	Wed Oct 18 15:55:04 2006
@@ -37,7 +37,7 @@
         $existing{ $_->Content } =  1;
     }
 
-    my @IPs = ( $attach->Content =~ /($RE{net}{IPv4})/go );
+    my @IPs = ( $attach->Content =~ /(?<!\d)($RE{net}{IPv4})(?!\d)(?!\/(3[0-2]|[1-2]?[0-9]))/go );
     foreach my $ip ( @IPs ) {
         $self->AddIP(
             IP          => $ip,