The verify_vote subroutine below demonstrates usage of getpwnam():
#######
## int verify_vote( login_name, last_name ) !! login_name is case sensitive
## !! side effect: sets $reason
#######
sub verify_vote {
local($id, $lastname) = @_;
local($name, $passwd, $uid, $age,
$comment, $gecos, $dir, $shell) = getpwnam($id);
if(!$name) {
$reason = "No such account";
return 0;
} elsif($gecos =~ /\b$lastname/i) {
return 1;
}
$reason = "Your account status could not be verified. "
. "Check last name and/or username."
return 0;
}