diff options
-rwxr-xr-x | authtoken.json | 19 |
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"; |