diff options
Diffstat (limited to 'rh-bin/authtoken.json')
-rwxr-xr-x | rh-bin/authtoken.json | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/rh-bin/authtoken.json b/rh-bin/authtoken.json index 2c19cb0..973a492 100755 --- a/rh-bin/authtoken.json +++ b/rh-bin/authtoken.json @@ -33,15 +33,14 @@ my $fullname = ''; my $responsecode = 500; if(defined $ENV{REMOTE_USER}) { - my $dbh; - ($dbh, $status, $errorstring) = RHRD::rddb::opendb(); - if(defined $dbh) { + (my $ctx, $status, $errorstring) = RHRD::rddb::init(); + if(defined $ctx) { $username = $ENV{REMOTE_USER}; - ($token, $status, $errorstring) = RHRD::rddb::get_token($dbh, $username); + ($token, $status, $errorstring) = RHRD::rddb::get_token($ctx, $username); $token = '' unless($token); - ($fullname, $status, $errorstring) = RHRD::rddb::get_fullname($dbh, $username); + ($fullname, $status, $errorstring) = RHRD::rddb::get_fullname($ctx, $username); $fullname = '' unless($fullname); - RHRD::rddb::closedb($dbh); + RHRD::rddb::destroy($ctx); if($status == "OK") { $responsecode = 200; } |