improved response codes for cgi scripts

2 files changed, 11 insertions, 3 deletions

diff --git a/rh-bin/authtoken.json b/rh-bin/authtoken.json
index e56daa9..743ac96 100755
--- a/rh-bin/authtoken.json
+++ b/rh-bin/authtoken.json
@@ -32,6 +32,8 @@ while (my $q = CGI::Fast->new) {
   my $username = '';
   my $token = '';
   my $fullname = '';
+  my $responsecode = 500;
+
   if(defined $ENV{REMOTE_USER}) {
     my $dbh;
     ($dbh, $status, $errorstring) = RHRD::rddb::opendb();
@@ -42,9 +44,13 @@ while (my $q = CGI::Fast->new) {
       ($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;
   }
 
   my %answer;
@@ -54,6 +60,7 @@ while (my $q = CGI::Fast->new) {
   $answer{'fullname'} = $fullname;
   $answer{'token'} = $token;
 
-  print "Content-type: application/json; charset=UTF-8\n\n";
+  print "Content-type: application/json; charset=UTF-8\n";
+  print "Status: $responsecode\n\n";
   print encode_json \%answer;
 }
diff --git a/rh-bin/listdropboxes.cgi b/rh-bin/listdropboxes.cgi
index 03dc4ee..f008c51 100755
--- a/rh-bin/listdropboxes.cgi
+++ b/rh-bin/listdropboxes.cgi
@@ -50,14 +50,15 @@ while (my $q = CGI::Fast->new) {
         $errorstring = $dropboxes[2];
       }
     } elsif($result == 0) {
-      $responsecode = 403;
+      $responsecode = 401;
     } else {
       $responsecode = 500;
     }
     RHRD::rddb::closedb($dbh);
   }
 
-  print "Content-type: application/xml; charset=UTF-8\n\n";
+  print "Content-type: application/xml; charset=UTF-8\n";
+  print "Status: $responsecode\n\n";
 
   if($responsecode != 200) {
     print "<RDWebResult>\n";