Changeset 2604

Timestamp:

2001-06-22T10:59:43+12:00 (23 years ago)

Author:

jrm21

Message:

when extracting email addresses, we now include people in the .net domain :)

File:

• trunk/gsdl/perllib/plugins/BasPlug.pm (modified) (1 diff)

trunk/gsdl/perllib/plugins/BasPlug.pm

@@ -501 +501 @@
     if ($self->{'verbosity'} > 2);
     
-    my @email = ($$textref =~ m/([-a-z0-9\.@+_=]+@(?:[-a-z0-9]+\.)+(?:com|org|edu|mil|int|[a-z][a-z]))/g);
+    my @email = ($$textref =~ m/([-a-z0-9\.@+_=]+@(?:[-a-z0-9]+\.)+(?:com|org|edu|mil|int|net|[a-z][a-z]))/g);
     @email = sort @email;