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
|
