#!/usr/bin/perl -wT
use strict ;
use warnings ;
use diagnostics ;
use CGI ;
use CGI::Ajax ;
print "Content-type: text/html \n\n";
sub initialize_html
{
my $html = <
network_weathermap
HTML
print $html . "\n" ;
}
#initialize_html() ;
sub parameterize_info_window
{
return "CGI \n" ;
}
my $cgi = new CGI() ;
my $ajax = new CGI::Ajax( describeInfoWindow => \¶meterize_info_window) ;
print $ajax->build_html($cgi, \&initialize_html) ;
$ajax->JSDEBUG( 1 ) ;