[perl-www-contact commit] r40 - in trunk/lib/WWW/Contact: . CN

[codesite...@google.com]

Author: sachinjsk
Date: Wed Oct 29 08:50:32 2008
New Revision: 40

Modified:
trunk/lib/WWW/Contact/CN/163.pm
trunk/lib/WWW/Contact/Gmail.pm
trunk/lib/WWW/Contact/Hotmail.pm
trunk/lib/WWW/Contact/Yahoo.pm

Log:
made error message for wrong username or password consistent..

Modified: trunk/lib/WWW/Contact/CN/163.pm
==============================================================================
--- trunk/lib/WWW/Contact/CN/163.pm (original)
+++ trunk/lib/WWW/Contact/CN/163.pm Wed Oct 29 08:50:32 2008
@@ -27,7 +27,7 @@
) || return;
my $content = $ua->content();
if ($content =~ /=[\'\"]eHint/) {
- $self->errstr('Wrong Password');
+ $self->errstr('Wrong Username or Password');
return;
}

Modified: trunk/lib/WWW/Contact/Gmail.pm
==============================================================================
--- trunk/lib/WWW/Contact/Gmail.pm (original)
+++ trunk/lib/WWW/Contact/Gmail.pm Wed Oct 29 08:50:32 2008
@@ -29,7 +29,7 @@
) || return;
my $content = $ua->content();
if ($content =~ /=[\'\"]errormsg/) {
- $self->errstr('Wrong Password');
+ $self->errstr('Wrong Username or Password');
return;
}

Modified: trunk/lib/WWW/Contact/Hotmail.pm
==============================================================================
--- trunk/lib/WWW/Contact/Hotmail.pm (original)
+++ trunk/lib/WWW/Contact/Hotmail.pm Wed Oct 29 08:50:32 2008
@@ -61,7 +61,7 @@
# var srf_sErr=\'The e-mail address or password is incorrect. Please try
again.\';
my ( $has_error ) = ( $ua->content =~ /srf_sErr\=\'([^\']+)\'/ );
if ( $has_error ) {
- $self->errstr('Wrong Password');
+ $self->errstr('Wrong Username or Password');
return;
}

Modified: trunk/lib/WWW/Contact/Yahoo.pm
==============================================================================
--- trunk/lib/WWW/Contact/Yahoo.pm (original)
+++ trunk/lib/WWW/Contact/Yahoo.pm Wed Oct 29 08:50:32 2008
@@ -29,7 +29,7 @@
) || return;
my $content = $ua->content();
if ($content =~ /=[\'\"]yregertxt/) {
- $self->errstr('Wrong Password');
+ $self->errstr('Wrong Username or Password');
return;
}