#!/usr/bin/perl -w
###############
## Libraries ##
###############
use strict;
use warnings;
use CGI;
use CGI::Carp qw{ fatalsToBrowser };
use JSON;
##################
## User-defined ##
##################
my $jquery = "//ajax.googleapis.com/ajax/libs/jquery/1.9.1/jquery.min.js";
##################
## Main program ##
##################
my $query = new CGI;
my $url = $query->url;
my $txt_content = $query->param("txt_content") || "";
if ($txt_content) {
handle_server_side_ajax($txt_content);
exit;
}
print_html();
#################
## Subroutines ##
#################
sub handle_server_side_ajax {
my ($text) = @_;
print "Content-type: application/json\n\n";
# Do something with $text ...
my $result = "You said '$text'";
my $time = localtime(time());
my $h_json = { 'result' => $result, 'time' => $time };
my $output = to_json($h_json);
print $output;
}
sub print_html {
print "Content-type: text/html\n\n";
print qq{