summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xauthtoken.json19
1 files changed, 17 insertions, 2 deletions
diff --git a/authtoken.json b/authtoken.json
index 4252d93..971b12e 100755
--- a/authtoken.json
+++ b/authtoken.json
@@ -5,7 +5,22 @@ use warnings;
print "Content-type: application/json\n\n";
+my $status = 'ERROR';
+my $errorstring = 'unknown';
+my $username = '';
+my $token = '';
+if(defined $ENV{REMOTE_USER}) {
+ $status = 'OK';
+ $errorstring = 'success';
+ $username = $ENV{REMOTE_USER};
+ $token = "this is cool!";
+} else {
+ $errorstring = 'no username defined';
+}
+
print "{\n";
-print " 'username': 'test',\n";
-print " 'token': 'SDLIIBqCypa3bIRQEv9GMAPF4GHqelBD'\n";
+print " 'status': '" . $status . "',\n";
+print " 'errorstring': '" . $errorstring . "',\n";
+print " 'username': '" . $username . "',\n";
+print " 'token': '" . $token . "'\n";
print "}\n";