moved to FastCGI (less deps)

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;
+}