Help for this page

Select Code to Download


  1. or download this
    18: sub getPasswordStatus {
18:     my ($login, $password) = @_;
...
35:     }
36:     return $Passwd;
37: }
  2. or download this
    if( defined $password && $password !~ /\?{7,7}/ )