$tool_desc

#!/usr/bin/perl -w # use CGI; use CGI::Carp qw (fatalsToBrowser); use Cwd; use lib getcwd . '/lib'; use COI::INIFile; use COI::Logger; use File::Basename; use COI::Commands; use Sys::Hostname; use strict; ...... ...... my $q = CGI->new; print $q->header('text/html'); #print $q->Dump(%ENV); ### get values from html form my $username = $q->param("username"); my $action = $q->param("option_1") ; my $service = $q->param("option_2") ; print "

\n";
&print_header;
                if ( $action eq 'Status')
	  	{
		  	my $wait_for_user_response = "yes";
		  	
		  	if(defined($q->param("userresponse"))) 
		  	{
			   if($q->param("userresponse") eq "yes")
			   {
			   print "go ahead \n";
			   }
			   else {
			   print "don't go ahead \n";
			   }
			}
		  	
		  	print "\n";
			print "\n";
			
			print "\n";
			print "\n"; 
			  	
		  	&reconfirm_form;

	  	}
	  	print "\n Going ahead made it\n";
&footer();

sub reconfirm_form 
{
print "$tool_desc\n";
print "\n";
print "\n";
print "\n";
print "\n";
print "\n";
print "\n";
print "\n";
}