diff options
author | Othmar Gsenger <otti@wirdorange.org> | 2011-01-14 03:50:24 +0000 |
---|---|---|
committer | Othmar Gsenger <otti@wirdorange.org> | 2011-01-14 03:50:24 +0000 |
commit | 389a32204546ce812f04cf990725c18ee5514ecc (patch) | |
tree | 99ccea390cad9bfedbcc5bfcc9ff01dfa8a9d13d /local/user.pm | |
parent | added modules (diff) |
added database support
Diffstat (limited to 'local/user.pm')
-rw-r--r-- | local/user.pm | 34 |
1 files changed, 34 insertions, 0 deletions
diff --git a/local/user.pm b/local/user.pm new file mode 100644 index 0000000..8e134a8 --- /dev/null +++ b/local/user.pm @@ -0,0 +1,34 @@ +package local::user; +require Exporter; +use strict; +use local::db; +use base "Exporter"; + +sub new +{ + my $invocant = shift; + my $class = ref($invocant) || $invocant; + # my $self = $class->SUPER::new(@_); + my $self=bless {}, $class; + ($self->{name})=@_; + my @user = local::db::owner->search(name => $self->{name}); + if (not @user) + { + push @user,local::db::owner->insert({name => $self->{name}}); + } + $self->{id}=$user[0]->owner_id(); + die 'Could not find you user' if not $self->{id}; + return $self; +} + +sub get_name +{ + my $self = shift; + return $self->{name}; +} + +sub get_id +{ + my $self = shift; + return $self->{id}; +} |