diff options
author | Christian Pointner <equinox@helsinki.at> | 2014-09-17 21:04:40 (GMT) |
---|---|---|
committer | Christian Pointner <equinox@helsinki.at> | 2014-09-17 21:04:40 (GMT) |
commit | 364cc862cb1de447b85396fed616477c4f85f755 (patch) | |
tree | 06fcad1d6ab2a8ff9b11ba19eeae30380c87d966 /authtoken.json | |
parent | fda69ffb749b140938acd373ff78600b2085fef1 (diff) |
fixed json syntax error
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"; |