diff options
author | Christian Pointner <equinox@helsinki.at> | 2015-08-31 22:19:35 (GMT) |
---|---|---|
committer | Christian Pointner <equinox@helsinki.at> | 2015-08-31 22:19:35 (GMT) |
commit | d1c17f44c1420464234a08ac979b3d61081bf3bc (patch) | |
tree | 64ae9771dc5de65e76c88f5e5c469f5a0e0d4c41 /rh-bin/authtoken.json | |
parent | 4ea3a6f53ddb9e4e3c6620ef5e34ae48ec38a697 (diff) |
moved to FastCGI (less deps)
Diffstat (limited to 'rh-bin/authtoken.json')
-rwxr-xr-x | rh-bin/authtoken.json | 47 |
1 files changed, 25 insertions, 22 deletions
diff --git a/rh-bin/authtoken.json b/rh-bin/authtoken.json index 3e698ac..be799d1 100755 --- a/rh-bin/authtoken.json +++ b/rh-bin/authtoken.json @@ -22,31 +22,34 @@ # use strict; +use CGI::Fast; use RHRD::rddb; use JSON; -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); +while (my $q = CGI::Fast->new) { + 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?'; } -} else { - $errorstring = 'no username defined - are you logged in?'; -} -my %answer; -$answer{'status'} = $status; -$answer{'errorstring'} = $errorstring; -$answer{'username'} = $username; -$answer{'token'} = $token; + my %answer; + $answer{'status'} = $status; + $answer{'errorstring'} = $errorstring; + $answer{'username'} = $username; + $answer{'token'} = $token; -print "Content-type: application/json; charset=UTF-8\n\n"; -print encode_json \%answer; + print "Content-type: application/json; charset=UTF-8\n\n"; + print encode_json \%answer; +} |