diff options
Diffstat (limited to 'rh-bin/authtoken.json')
-rwxr-xr-x | rh-bin/authtoken.json | 65 |
1 files changed, 31 insertions, 34 deletions
diff --git a/rh-bin/authtoken.json b/rh-bin/authtoken.json index 743ac96..2c19cb0 100755 --- a/rh-bin/authtoken.json +++ b/rh-bin/authtoken.json @@ -22,45 +22,42 @@ # use strict; -use CGI::Fast; use RHRD::rddb; use JSON; -while (my $q = CGI::Fast->new) { - my $status = 'ERROR'; - my $errorstring = 'unknown'; - my $username = ''; - my $token = ''; - my $fullname = ''; - my $responsecode = 500; +my $status = 'ERROR'; +my $errorstring = 'unknown'; +my $username = ''; +my $token = ''; +my $fullname = ''; +my $responsecode = 500; - if(defined $ENV{REMOTE_USER}) { - my $dbh; - ($dbh, $status, $errorstring) = RHRD::rddb::opendb(); - if(defined $dbh) { - $username = $ENV{REMOTE_USER}; - ($token, $status, $errorstring) = RHRD::rddb::get_token($dbh, $username); - $token = '' unless($token); - ($fullname, $status, $errorstring) = RHRD::rddb::get_fullname($dbh, $username); - $fullname = '' unless($fullname); - RHRD::rddb::closedb($dbh); - if($status == "OK") { - $responsecode = 200; - } +if(defined $ENV{REMOTE_USER}) { + my $dbh; + ($dbh, $status, $errorstring) = RHRD::rddb::opendb(); + if(defined $dbh) { + $username = $ENV{REMOTE_USER}; + ($token, $status, $errorstring) = RHRD::rddb::get_token($dbh, $username); + $token = '' unless($token); + ($fullname, $status, $errorstring) = RHRD::rddb::get_fullname($dbh, $username); + $fullname = '' unless($fullname); + RHRD::rddb::closedb($dbh); + if($status == "OK") { + $responsecode = 200; } - } else { - $errorstring = 'no username defined - are you logged in?'; - $responsecode = 400; } +} else { + $errorstring = 'no username defined - are you logged in?'; + $responsecode = 400; +} - my %answer; - $answer{'status'} = $status; - $answer{'errorstring'} = $errorstring; - $answer{'username'} = $username; - $answer{'fullname'} = $fullname; - $answer{'token'} = $token; +my %answer; +$answer{'status'} = $status; +$answer{'errorstring'} = $errorstring; +$answer{'username'} = $username; +$answer{'fullname'} = $fullname; +$answer{'token'} = $token; - print "Content-type: application/json; charset=UTF-8\n"; - print "Status: $responsecode\n\n"; - print encode_json \%answer; -} +print "Content-type: application/json; charset=UTF-8\n"; +print "Status: $responsecode\n\n"; +print encode_json \%answer; |