Ticket #154: index.cgi.json.patch

.cgi

@@ -15 +15 @@
 use OpenGuides::CGI;
 use OpenGuides::Config;
 use OpenGuides::RDF;
+use OpenGuides::JSON;
 use OpenGuides::Utils;
 use OpenGuides::Template;
 use Time::Piece;
@@ -178 +179 @@
     } else { # Default is to display a node.
         if ( $format and $format eq "rdf" ) {
             display_node_rdf( node => $node );
+        } elsif ($format and $format eq 'json') {
+            display_node_json( node => $node );
         } elsif ( $format and $format eq 'raw' ) {
             $guide->display_node(
                                   id       => $node,
@@ -348 +351 @@
     print $rdf_writer->emit_rdfxml( node => $args{node} );
 }
 
+sub display_node_json {
+        my %args = @_;
+        my $json_writer = OpenGuides::JSON->new( wiki => $wiki, config => $config );
+        print "Content-type: text/javascript\n\n";
+        print $json_writer->emit_json( node => $args{node} );
+}
+
 sub process_template {
     my ($template, $node, $vars, $conf, $omit_header) = @_;