From d07fab87302b6cd976a7cf8c8e609c371696717c Mon Sep 17 00:00:00 2001
From: Christian Pointner <equinox@helsinki.at>
Date: Wed, 17 Sep 2014 19:32:12 +0000
Subject: perl script is now a little smarter


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";
-- 
cgit v0.10.2