Lines Matching refs:reason
84 my $reason = shift;
85 print "$reason\n";
100 my $reason;
102 $reason = check_basic($params{'principal'}, $params{'new-password'});
103 badpassword($reason) if ($reason ne "ok");
105 $reason = fascist_check($params{'new-password'}, $database);
106 badpassword($reason) if ($reason ne "ok");
108 $reason = check_repeat($params{'principal'}, $params{'new-password'});
109 badpassword($reason) if ($reason ne "ok");