diff options
Diffstat (limited to 'local/user.pm')
| -rw-r--r-- | local/user.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/local/user.pm b/local/user.pm index 5b727ba..3700139 100644 --- a/local/user.pm +++ b/local/user.pm @@ -10,7 +10,8 @@ sub new my $class = ref($invocant) || $invocant; # my $self = $class->SUPER::new(@_); my $self=bless {}, $class; - ($self->{name})=@_; + my %ENV=@_; + ($self->{name})=$ENV{REMOTE_USER}; my @user = local::db::owner->search(name => $self->{name}); if (not @user) { |