From 78a5b287372d825d2c679d783e7bcedce9beda0c Mon Sep 17 00:00:00 2001
From: "ian%hixie.ch" <ian%hixie.ch@18797224-902f-48f8-a5cc-f745e15eee43>
Date: Fri, 1 Feb 2002 06:38:55 +0000
Subject: [PATCH] Commented out the call to Net::SMTP's verify() method and
 replaced it with a generic regexp sanity check. It appears that VRFY is not
 correctly implemented on all servers. (I may be mistaken on this; it might
 just be a bug somewhere in the PLIF code that is messing something up, but I
 couldn't find it if so.)

git-svn-id: svn://10.0.0.236/trunk@113407 18797224-902f-48f8-a5cc-f745e15eee43
---
 mozilla/webtools/PLIF/PLIF/Output/Generic/Email.pm | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/mozilla/webtools/PLIF/PLIF/Output/Generic/Email.pm b/mozilla/webtools/PLIF/PLIF/Output/Generic/Email.pm
index 74e9c7476ef..50cfdeebe76 100644
--- a/mozilla/webtools/PLIF/PLIF/Output/Generic/Email.pm
+++ b/mozilla/webtools/PLIF/PLIF/Output/Generic/Email.pm
@@ -89,9 +89,12 @@ sub output {
 sub checkAddress {
     my $self = shift;
     my($app, $username) = @_;
-    $self->assert(defined($self->handle), 1, 'No SMTP handle, can\'t check address');
-    my $result = $self->handle->verify($username);
-    return $result;
+    return (defined($username) and $username =~ m/^[^@\s]+@[^@\s]+\.[^@.\s]+$/os);
+    # XXX this doesn't seem to be working:
+    # $self->assert(defined($self->handle), 1, 'No SMTP handle, can\'t check address');
+    # $self->assert(defined($username), 1, 'Internal error: no username passed to checkAddress');
+    # my $result = $self->handle->verify($username);
+    # return $result;
 }
 
 sub DESTROY {