Lines 1753-1760
sub api_auth {
Link Here
|
1753 |
my ( $username, $password, $branch ) = @_; |
1753 |
my ( $username, $password, $branch ) = @_; |
1754 |
$ENV{REMOTE_USER} = $username; |
1754 |
$ENV{REMOTE_USER} = $username; |
1755 |
my $query = CGI->new(); |
1755 |
my $query = CGI->new(); |
1756 |
$query->param( userid => $username ); |
1756 |
$query->param( login_userid => $username ); |
1757 |
$query->param( password => $password ); |
1757 |
$query->param( login_password => $password ); |
1758 |
if ($branch) { |
1758 |
if ($branch) { |
1759 |
$query->param( branch => $branch ); |
1759 |
$query->param( branch => $branch ); |
1760 |
} |
1760 |
} |
1761 |
- |
|
|