[prev] [thread] [next] [lurker] [Date index for 2002/09/05]
Update of /cvsroot/siesta/siesta/lib/Siesta In directory usw-pr-cvs1:/tmp/cvs-serv9147 Modified Files: User.pm Log Message: Siesta::Config::* is no more Index: User.pm =================================================================== RCS file: /cvsroot/siesta/siesta/lib/Siesta/User.pm,v retrieving revision 1.10 retrieving revision 1.11 diff -u -d -r1.10 -r1.11 --- User.pm 5 Sep 2002 13:03:21 -0000 1.10 +++ User.pm 5 Sep 2002 13:44:36 -0000 1.11 @@ -1,18 +1,17 @@ +# $Id$ package Siesta::User; use strict; -use Siesta::Config::User; +use Siesta; use vars qw(@fields); # fuck the users, fuck them up their stupid asses BEGIN { - @fields = qw(id forename surname password bouncing lastbounce created); + @fields = qw(id forename surname password bouncing lastbounce created); } use Class::MethodMaker get_set => \@fields; -use Siesta; - =head1 NAME @@ -77,13 +76,13 @@ sub save { - my $self = shift; - return Siesta->storage->save_user($self); + my $self = shift; + return Siesta->storage->save_user($self); } sub delete { - my $self = shift; - return Siesta->storage->delete_user($self) + my $self = shift; + return Siesta->storage->delete_user($self) } 1;
Generated at 13:57 on 01 Jul 2004 by mariachi 0.52