perl script is now a little smarter

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";