Scott Harrison
Last updated: 02/15/2001
This file describes issues associated with authenticating passwords on a LON-CAPA system.
The following section of perl code illustrates the different ways passwords can be evaluated.
my ($howpwd,$contentpwd)=split(/:/,$realpasswd); my $pwdcorrect=0; if ($howpwd eq 'internal') { $pwdcorrect= (crypt($upass,$contentpwd) eq $contentpwd); } elsif ($howpwd eq 'unix') { $contentpwd=(getpwnam($uname))[1]; $pwdcorrect= (crypt($upass,$contentpwd) eq $contentpwd); } elsif ($howpwd eq 'krb4') { $pwdcorrect=( Authen::Krb4::get_pw_in_tkt($uname,"", $contentpwd,'krbtgt',$contentpwd,1, $upass) == 0); } if ($pwdcorrect) { print $client "authorized\n"; } else { print $client "non_authorized\n"; }