I am having a script which puts a form and on submit, it should change the
run mode which its not doing. Can somebody help me here and point me out as
what I'm missing in the code??
TIA
sub runshell {
my $self = shift;
#Get CGI query object
my $q = $self->query();
my $srv = $q->param("srv");
my $output = '';
$output .= $q->start_html(-title => 'Push Meta Data');
$output .= $q->blockquote($q->strong("<h1>Push Meta Data</h1>"));
$output .= $q->blockquote("Selected Server : $srv");
$output .= `a-cgi $srv`;
$output .= $q->start_form();
$output .= $q->hidden(-name => 'rm', -value => 'mode1',
-override=>1);
$output .= $q->submit("Next Server");
$output .= $q->end_form();
$output .= $q->end_html();
return $output;
}
---------------------------------------------------------------------
Web Archive: http://www.mail-archive.com/[email protected]/
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
