diff options
author | Christian Pointner <equinox@helsinki.at> | 2015-07-24 21:57:59 (GMT) |
---|---|---|
committer | Christian Pointner <equinox@helsinki.at> | 2015-07-24 21:57:59 (GMT) |
commit | d2fb142fc08989cd0397ecfb3941e35851a28ec9 (patch) | |
tree | 7e5a1bf77b038dbdbaecb5b718c71b235421ddc4 /authtoken.json | |
parent | 20b2dfa532c2a931bebebc5894639215623e9671 (diff) |
move to systemwide RHRD:: libs
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?'; |