#!/usr/opt/perl5/bin/perl -Tw use CGI; use CGI::Carp qw(warningsToBrowser fatalsToBrowser); use CGI::Ajax; use strict; use warnings; use English; use Env qw(PATH IFS CDPATH EMV BASH_EMV); $ENV{PATH} = "/bin:/usr/bin:/usr/local/AppAdmin/healthchk/bin:/usr/local/healthchk/bin"; delete @ENV{ 'IFS', 'CDPATH', 'ENV', 'BASH_ENV' }; my $home = "/usr/local/AppAdmin/healthchk"; my $html = ""; my $cgi = CGI->new(); my $ajax = CGI::Ajax->new(displayText => \&displayText ); $ajax->JSDEBUG(1); print $ajax->build_html($cgi,\&main); sub main() { $html = < Siebel HealthCheck

Siebel HealthCheck

HTML # Do something print_response() if $cgi->param; my $url = $cgi->url(-relative => 1); $html .= < Environment ALL prod pstage qa dev pmt sand

HTML return $html; } sub displayText() { my $text = shift; $html .= <Updating status... HTML return; }