From: Rob H. <for...@us...> - 2003-01-05 08:59:11
|
Update of /cvsroot/sandweb/sandweb/lib/SandWeb/Auth In directory sc8-pr-cvs1:/tmp/cvs-serv15829/SandWeb/Auth Modified Files: FlatFile.pm Log Message: beginning of POD docs Index: FlatFile.pm =================================================================== RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/Auth/FlatFile.pm,v retrieving revision 1.7 retrieving revision 1.8 diff -U2 -r1.7 -r1.8 --- FlatFile.pm 19 Jun 2002 07:08:59 -0000 1.7 +++ FlatFile.pm 5 Jan 2003 08:59:08 -0000 1.8 @@ -1,7 +1,15 @@ # SandWeb FlatFile authentication module # -# This class verifies MD5 passwords for a given username, and returns -# true if the user if authentic, false if not. -# + +=pod +=head1 + +SandWeb::Auth::FlatFile + +This class verifies MD5 passwords for a given username, and returns +true if the user if authentic, false if not. + +=cut + # SandWeb (Web-based VCS client) # @@ -24,8 +32,30 @@ # +=head1 + +part of the SandWeb::Auth::FlatFile package + +=cut + package SandWeb::Auth::FlatFile; +=head1 + +uses Digest::MD5 + +=cut + use Digest::MD5 qw(md5_hex); +=head1 + +Methods + +new + + instantiates a new object + +=cut + sub new { my $class = shift; @@ -39,4 +69,12 @@ return $self; } + +=head1 + +verify_password + + compares a given password to the one stored + +=cut sub verify_password { |