Thanks Paul. At the moment, my code looks like this, so I don't see how could be using the string as a hashref.
sub user_signup {
# -------------------------------------------------------------------
GT::Plugins->action ( STOP );
print $IN->header();
}
the hook I am using is auth_add_user
this is the relevant code in User.pm:
sub add {
# -------------------------------------------------------------------
# Add a user.
#
init();
my $self = shift;
my $p;
if (ref $_[0] eq 'HASH') { $p = $_[0]; }
else { $p = {@_}; }
if (! Links::Authenticate::auth ('valid_format', { Username => $p->{Username} })) {
return $self->error ('INVALIDFORMAT', 'WARN', $p->{Username});
}
my $h = Links::Authenticate::auth ('add_user', { Username => $p->{Username}, Password => $p->{Password} })
or return $self->error ('AUTHERROR', 'WARN', $Links::Authenticate::error);
-->HERE (Line 57)<-- $p->{Username} = $h->{Username};
$p->{Password} = $h->{Password};
return $self->SUPER::add($p);
}
sub user_signup {
# -------------------------------------------------------------------
GT::Plugins->action ( STOP );
print $IN->header();
}
the hook I am using is auth_add_user
this is the relevant code in User.pm:
Code:
sub add {
# -------------------------------------------------------------------
# Add a user.
#
init();
my $self = shift;
my $p;
if (ref $_[0] eq 'HASH') { $p = $_[0]; }
else { $p = {@_}; }
if (! Links::Authenticate::auth ('valid_format', { Username => $p->{Username} })) {
return $self->error ('INVALIDFORMAT', 'WARN', $p->{Username});
}
my $h = Links::Authenticate::auth ('add_user', { Username => $p->{Username}, Password => $p->{Password} })
or return $self->error ('AUTHERROR', 'WARN', $Links::Authenticate::error);
-->HERE (Line 57)<-- $p->{Username} = $h->{Username};
$p->{Password} = $h->{Password};
return $self->SUPER::add($p);
}