Chris Winters > SPOPS > My::User

Download:
SPOPS-0.87.tar.gz

Dependencies

Annotate this POD

CPAN RT

New  1
Open  0
View/Report Bugs
Module Version: 3.03   Source  

NAME ^

My::User - Create and manipulate SPOPS users.

SYNOPSIS ^

  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;

DESCRIPTION ^

This has the most basic user properties. Customization will probably be necessary.

METHODS ^

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.

TO DO ^

Nothing known.

BUGS ^

None known.

COPYRIGHT ^

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.

AUTHORS ^

Chris Winters <chris@cwinters.com>

syntax highlighting: