diff options
Diffstat (limited to 'authtoken.json')
| -rwxr-xr-x | authtoken.json | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/authtoken.json b/authtoken.json index 995f3ec..12e390f 100755 --- a/authtoken.json +++ b/authtoken.json @@ -21,9 +21,7 @@ # use strict; -use File::Basename; -use lib dirname( __FILE__ ) . '/lib'; -use rddb; +use RHRD::rddb; my $status = 'ERROR'; my $errorstring = 'unknown'; @@ -31,12 +29,12 @@ my $username = ''; my $token = ''; if(defined $ENV{REMOTE_USER}) { my $dbh; - ($dbh, $status, $errorstring) = rddb::opendb(); + ($dbh, $status, $errorstring) = RHRD::rddb::opendb(); if(defined $dbh) { - ($token, $status, $errorstring) = rddb::get_token($dbh, $ENV{REMOTE_USER}); + ($token, $status, $errorstring) = RHRD::rddb::get_token($dbh, $ENV{REMOTE_USER}); $token = '' unless($token); $username = $ENV{REMOTE_USER}; - rddb::closedb($dbh); + RHRD::rddb::closedb($dbh); } } else { $errorstring = 'no username defined - are you logged in?'; |