My::User - Create and manipulate SPOPS users.
use My::User; $user = My::User->new(); $user->{login_name} = 'blah'; $user->{password} = 'blahblah'; $user->{first_name} = 'B'; $user->{last_name} = 'Lah'; eval { $user->save }; if ( $@ ) { print "Cannot save user: $@\n"; } # Use crypt()ed password $My::User::crypt_password = 1; # Check the password unless ( $user->check_password( $given_password ) ) { print "Invalid login!\n"; } # Add this user to the group 'public' $user->make_public;
This has the most basic user properties. Customization will probably be necessary.
full_name()
Returns the full name -- it is accessed often enough that we just made an alias for concatenating the first and last names.
check_password( $pw )
Return a 1 if the password matches what is in the database, a 0 if not.
Nothing known.
None known.
Copyright (c) 2001-2004 intes.net, inc.. All rights reserved.
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
Chris Winters <chris@cwinters.com>
To install SPOPS, copy and paste the appropriate command in to your terminal.
cpanm
cpanm SPOPS
CPAN shell
perl -MCPAN -e shell install SPOPS
For more information on module installation, please visit the detailed CPAN module installation guide.