diff options
author | Christian Pointner <equinox@helsinki.at> | 2015-07-28 12:52:04 (GMT) |
---|---|---|
committer | Christian Pointner <equinox@helsinki.at> | 2015-07-28 12:52:04 (GMT) |
commit | 2d2af4466b914d9e2b7ddf3cd2b50d02504fdc23 (patch) | |
tree | 4b27cabe2ebaebcb1d76f5fe63b7322d6a949fba /authtoken.json | |
parent | d2fb142fc08989cd0397ecfb3941e35851a28ec9 (diff) |
moved authtoken.json to rh-bin/ and change it to use Json Library for correct escaping
Diffstat (limited to 'authtoken.json')
-rwxr-xr-x | authtoken.json | 50 |
1 files changed, 0 insertions, 50 deletions
diff --git a/authtoken.json b/authtoken.json deleted file mode 100755 index 12e390f..0000000 --- a/authtoken.json +++ /dev/null @@ -1,50 +0,0 @@ -#!/usr/bin/perl -# -# rhwebimport -# -# Copyright (C) 2014-2015 Christian Pointner <equinox@helsinki.at> -# -# This file is part of rhwebimport. -# -# rhwebimport is free software: you can redistribute it and/or modify -# it under the terms of the GNU Affero General Public License as published by -# the Free Software Foundation, either version 3 of the License, or -# any later version. -# -# rhwebimport is distributed in the hope that it will be useful, -# but WITHOUT ANY WARRANTY; without even the implied warranty of -# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -# GNU Affero General Public License for more details. -# -# You should have received a copy of the GNU Affero General Public License -# along with rhwebimport. If not, see <http://www.gnu.org/licenses/>. -# - -use strict; -use RHRD::rddb; - -my $status = 'ERROR'; -my $errorstring = 'unknown'; -my $username = ''; -my $token = ''; -if(defined $ENV{REMOTE_USER}) { - my $dbh; - ($dbh, $status, $errorstring) = RHRD::rddb::opendb(); - if(defined $dbh) { - ($token, $status, $errorstring) = RHRD::rddb::get_token($dbh, $ENV{REMOTE_USER}); - $token = '' unless($token); - $username = $ENV{REMOTE_USER}; - RHRD::rddb::closedb($dbh); - } -} else { - $errorstring = 'no username defined - are you logged in?'; -} - -print "Content-type: application/json; charset=UTF-8\n\n"; - -print "{\n"; -print ' "status": "' . $status . '"'. ",\n"; -print ' "errorstring": "' . $errorstring . '"'. ",\n"; -print ' "username": "' . $username . '"' . ",\n"; -print ' "token": "' . $token . '"' . "\n"; -print "}\n"; |