Help for this page
sub check_passwd { my ($uname,$guess) = @_; ... return (grep { $_ eq $uname } split ( / /,$members )) ; } }
sub check_passwd_nt { my ($uname,$guess) = @_; ... } &check_passwd_nt($user_text,$passwd_text); &check_group_nt($user_text,"supercam");