--- doc/build/Attic/loncapapasswordauthentication.html	2001/02/10 17:07:47	1.1
+++ doc/build/Attic/loncapapasswordauthentication.html	2001/02/15 15:43:47	1.2
@@ -16,6 +16,33 @@ passwords on a LON-CAPA system.
 </P>
 <H3>Latest HOWTO</H3>
 <P>
+The following section of perl code illustrates the
+different ways passwords can be evaluated.
+</P>
+<P>
+<PRE>
+                          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";
+                          }  
+</PRE>
 </P>
 </BODY>
 </HTML>
+