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;