From: Rob H. <for...@us...> - 2003-01-12 05:13:50
|
Update of /cvsroot/sandweb/sandweb/lib/SandWeb/Auth In directory sc8-pr-cvs1:/tmp/cvs-serv16255/SandWeb/Auth Modified Files: FlatFile.pm Log Message: better formatting; now the API doc section for each method is right above that method in the code. Index: FlatFile.pm =================================================================== RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/Auth/FlatFile.pm,v retrieving revision 1.9 retrieving revision 1.10 diff -U2 -r1.9 -r1.10 --- FlatFile.pm 6 Jan 2003 09:49:30 -0000 1.9 +++ FlatFile.pm 12 Jan 2003 05:13:47 -0000 1.10 @@ -2,11 +2,54 @@ =head1 -# SandWeb FlatFile authentication module +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) +# +# Copyright (C) 2002 Nick Jennings +# Copyright (C) 2002 Robert Helmer +# +# This program is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2 of the License, or +# (at your option) any later version. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. # -# lib/SandWeb/Auth/FlatFile.pm +# You should have received a copy of the GNU General Public License +# along with this program; if not, write to the Free Software +# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA # -# This class verifies MD5 passwords for a given username, and returns -# true if the user if authentic, false if not. --------------------------------------------------------------------------------- + +=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 + +=cut + +=head1 METHOD @@ -38,5 +81,20 @@ Perhaps an invalid parameter? --------------------------------------------------------------------------------- +=cut + +sub new { + my $class = shift; + my %args = @_; + + my $self = bless { + 'user_info' => {}, + '_log_obj' => $args{'log_obj'}, + }, $class; + + return $self; +} + +=head1 + METHOD @@ -93,78 +151,4 @@ 0 = This means that the method got an error proccessing your request. Perhaps an invalid parameter? - -# SandWeb FlatFile authentication module -# - -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) -# -# Copyright (C) 2002 Nick Jennings -# Copyright (C) 2002 Robert Helmer -# -# This program is free software; you can redistribute it and/or modify -# it under the terms of the GNU General Public License as published by -# the Free Software Foundation; either version 2 of the License, or -# (at your option) any later version. -# -# This program is distributed in the hope that it will be useful, -# but WITHOUT ANY WARRANTY; without even the implied warranty of -# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -# GNU General Public License for more details. -# -# You should have received a copy of the GNU General Public License -# along with this program; if not, write to the Free Software -# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA -# - -=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; - my %args = @_; - - my $self = bless { - 'user_info' => {}, - '_log_obj' => $args{'log_obj'}, - }, $class; - - return $self; -} - -=head1 - -verify_password - - compares a given password to the one stored =cut |