18: sub getPasswordStatus {
18:     my ($login, $password) = @_;
20:     my$quotedLogin = quotemeta($login);
21:     my $Passwd;
22: 
23:     if( $password && $password !~ /\?{7,7}/ ) {
24:        if ($password =~ m/^NO PASSWORD$/i){
25:             $Passwd = 'empty';
26:         } elsif ($password =~ /^PASSWORD$/i){
27:             $Passwd = 'password';
28:         } elsif ($password =~ /^$quotedLogin$/i){
29:             $Passwd = 'login';
30:         } else {
31:             $Passwd = 'weak';
32:         }
33:     } else {
34:         $Passwd = 'ok';
35:     }
36:     return $Passwd;
37: }

##</code><code>##

if( defined $password && $password !~ /\?{7,7}/ )