diff options
Diffstat (limited to 'authtoken.json')
-rwxr-xr-x | authtoken.json | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/authtoken.json b/authtoken.json index 6d55799..a8cd31a 100755 --- a/authtoken.json +++ b/authtoken.json @@ -30,7 +30,7 @@ sub get_token my ($token) = $sth->fetchrow_array; return ('OK', 'success', $token) if(defined $token); - return ('ERROR', 'user "' . $username . '" not known', '') + return ('ERROR', "user '" . $username . "' not known", '') } my $status = 'ERROR'; @@ -47,8 +47,8 @@ if(defined $ENV{REMOTE_USER}) { print "Content-type: application/json\n\n"; print "{\n"; -print " 'status': '" . $status . "',\n"; -print " 'errorstring': '" . $errorstring . "',\n"; -print " 'username': '" . $username . "',\n"; -print " 'token': '" . $token . "'\n"; +print ' "status": "' . $status . '"'. ",\n"; +print ' "errorstring": "' . $errorstring . '"'. ",\n"; +print ' "username": "' . $username . '"' . ",\n"; +print ' "token": "' . $token . '"' . "\n"; print "}\n"; |