From ba65a6d43bfcc5722b345fde0dcd27c78e46c1c9 Mon Sep 17 00:00:00 2001
From: Christian Pointner <equinox@helsinki.at>
Date: Wed, 17 Sep 2014 19:12:33 +0000
Subject: json output from mod_perl should work now


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