in reply to Getting Variable value after submitting cgi form

How can i retain(access) the host variable...

One way would be to put it in a hidden field of the form when you generate the 2nd CGI script's output.

  • Comment on Re: Getting Variable value after submitting cgi form

Replies are listed 'Best First'.
Re^2: Getting Variable value after submitting cgi form
by Anonymous Monk on Jun 09, 2009 at 11:56 UTC
    Hi, As advised i used the hidden field, still am not able to access the server/host name. Please check the following code snippet. 
    ==========================
## FILE: test.cgi
##
use CGI::Pretty qw( :html3 :standard );

my $cgi = new CGI;

 print $cgi->header,
         $cgi->start_html('Submit User id');

print $head;
print start_form();

my $host = $cgi->param('host');

print "<font color=green> Please Enter the UserID for $host: </font>";
print $cgi->text_field('USER','',10);
print "\t\t".submit('action','Submit');
$cgi->hidden( -name=>'server', -value => $cgi->param('host'));


if (param()) {
  my $test= $cgi->param('action');
  if( $cgi->param('action') eq 'Submit') {
my  $server = $cgi->param('server');

  my $user_id = $cgi->param('USER');
 
  print "UserID: $user_id and HOST: $server " ;
}
}

print endform; ## END of HTML form
print end_html;

    [download]
[reply]
[d/l]

      From your top node:

      ...
test.cgi?host=$linux_host
...

      [download]

      In your script:

      ...
my  $server = $cgi->param('server');
...
print "UserID: $user_id and HOST: $server " ;

      [download]

      You will need to make sure you use consistent names everywhere.

[reply]
[d/l]
[select]
        Hi Corion, I have used my $server = $cgi->param('server'); to get the hidden variable and before this i have used my $host = $cgi->param('host'); to get the host name from the master.cgi. Please let me know if i am doing any thing wrong in accessing hidden variable. Rehards SS 
        my $host = $cgi->param('host');
print "<font color=green> Please Enter the UserID for $host: </font>";
print $cgi->text_field('USER','',10);
print "\t\t".submit('action','Submit');
$cgi->hidden( -name=>'server', -value => $cgi->param('host'));

if (param()) {
  my $test= $cgi->param('action');
  if( $cgi->param('action') eq 'Submit') {
my  $server = $cgi->param('server');

        [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom