summaryrefslogtreecommitdiff
path: root/authtoken.json
diff options
context:
space:
mode:
authorChristian Pointner <equinox@helsinki.at>2015-07-24 21:57:59 (GMT)
committerChristian Pointner <equinox@helsinki.at>2015-07-24 21:57:59 (GMT)
commitd2fb142fc08989cd0397ecfb3941e35851a28ec9 (patch)
tree7e5a1bf77b038dbdbaecb5b718c71b235421ddc4 /authtoken.json
parent20b2dfa532c2a931bebebc5894639215623e9671 (diff)
move to systemwide RHRD:: libs
Diffstat (limited to 'authtoken.json')
-rwxr-xr-xauthtoken.json10
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?';