json output from mod_perl should work now

1 files changed, 5 insertions, 6 deletions

diff --git a/authtoken.json b/authtoken.json
index 96342ef..7112b43 100755
--- a/authtoken.json
+++ b/authtoken.json
@@ -1,9 +1,8 @@
 #!/usr/bin/perl
 
-print "Content-type: text/plain\n\n";
-print "mod_perl 2.0 rocks!\n";
+print "Content-type: application/json\n\n";
 
-//{
-//  "username": "test",
-//  "token": "SDLIIBqCypa3bIRQEv9GMAPF4GHqelBD"
-//}
+print "{\n";
+print "  'username': 'test',\n";
+print "  'token': 'SDLIIBqCypa3bIRQEv9GMAPF4GHqelBD'\n";
+print "}\n";