Manually add parameters in perl cgi

Question

I've written a cgi script and it does the following:

#!/usr/bin/perl
use strict;
use warnings;
use CGI qw(:cgi-lib :standard);
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);

my $q = new CGI;
print $q->header;
print "<center>";
print $q->h1('Let\'s do something!');
print "</center>";
print $q->start_html(-title => 'Do something');
print $q->end_form;

our %in;
&ReadParse(%in);
my @keys = keys %in;
my @values = values %in;
main();

sub main{
    print "<center>";
    my $q0 = new CGI;
    print $q0->start_form(
        -name    => 'sniff_button',
        -method  => 'POST',
        -enctype => &CGI::URL_ENCODED,
    );
    print $q0->submit(
        -name     => 'button',
        -value    => 'Do something',
    );
    print $q0->end_form;
    print "</center>";
}

What I want to do is add some parameters manually, because the next that depends on the previous state and not only on the current state (So I have to pass a parameter twice.).
I've done stuff with param() and URI, but none of them work. Any advice?

What do you mean by parameters? Explain exactly what you're trying to do and not how you're trying to do it. — ThisSuitIsBlackNot
– ThisSuitIsBlackNot, Commented Sep 5, 2014 at 17:48
Do you mean "I want to cause a parameter to be submitted along with those provided by the user"? Use a hidden field. — ikegami
– ikegami, Commented Sep 5, 2014 at 17:53
Where are you learning CGI programming from? this looks like a CGI program from 15 or 20 years ago. Please try to pick up few less outdated habits. — Dave Cross
– Dave Cross, Commented Sep 8, 2014 at 9:24

TheChosenOne · Accepted Answer · 2014-09-06 12:59:55Z

1

A hidden field is the answer:

sub main{
    print "<center>";
    my $q0 = new CGI;
    print $q0->start_form(
        -name       => 'sniff_button',
        -method     => 'POST',
        -enctype    => &CGI::URL_ENCODED,
    );
    print $q0->hidden(
        -name       => 'machine_state',
        -default    => 'some_previous_value');
    print $q0->submit(
        -name   => 'button',
        -value  => 'Do something',
    );
    print $q0->end_form;
    print "</center>";
}

answered Sep 6, 2014 at 12:59

TheChosenOne

7251 gold badge6 silver badges14 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

Manually add parameters in perl cgi

1 Answer 1

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Related