Re: Capturing parameters in Perl CGI

["George Morey" <George.Morey@xxxxxxxxxxxx>]

Greg,

Radio buttons out of the question with Perl?

George...

> > > "Greg Oziemkiewicz" <goziemki@xxxxxxxxx> 11/17/2006 10:17 AM >>>
George,

<input type="checkbox" name="box1">Box1
<input type="checkbox" name="box2">Box2
<input type="checkbox" name="box3">Box3

would be accessed as follows:

$cgi->param('box1')
$cgi->param('box2')
$cgi->param('box3')

assuming $cgi is a CGI object instantiated like this:

use CGI;
my $cgi = new CGI;

You can also capture all parameters sent to your cgi program by
invoking the
param method without specifying the parameter as follows:

my @params = $cgi->param();

You can then check to make sure something was passed like this:

if ( scalar @params != 0 ) {
   #something passed in
} else {
   # Uh-oh
}

Greg

On 11/17/06, George Morey <George.Morey@xxxxxxxxxxxx> wrote:
> Greg,
>
> Not sure what you mean by below.  By the way my 'submit' button is
> specified as follows:
>
> <input type=submit value=ENTER>
>
> I'm particularily uncertain as to what you mean by -> 'The names of
> your input elements are the names of your parameters that will be
> accessible using the param method.'
>
> George...
>
>
>
> > > > "Greg Oziemkiewicz" <goziemki@xxxxxxxxx> 11/17/2006 7:49 AM >>>
> George,
>
> Take out the '?parm' from the form action and give your radio
buttons
> different names. The names of your input elements are the names of
> your
> parameters that will be accessible using the param method.
>
> Greg
>
>
> On 11/16/06, George Morey <George.Morey@xxxxxxxxxxxx> wrote:
> > Greg,
> >
> > Did it and got the following:
> >
> > Can't call method "param" on an undefined value at
> > /QOpenSys/perl/webwrap/dbtest4 line 13.
> >
> > The HTML that invokes my Perl CGI is the following:
> >
> > <form method=post action="/cgi-bin/dbtest4?parm">
> > <p>
> > <table border=0>
> > <tr><td><input type=radio name=parm
value="query"></td><td>Customer
> > bank codes & acct #</td></tr>
> > <p>
> > <tr><td><input type=radio name=parm
value="oscmd"></td><td>WRKCFGSTS
> > *NWS</td></tr>
> > <p>
> > <tr><td><input type=radio name=parm value="query3"></td><td>Not
> > enabled</td></tr>
> > </center></table>
> >
> > The Perl that attempts to process the input is:
> >
> > $myparm = $query->param('parm');
> > print $myparm;
> >
> > Regards...George
> >
> > > > > "Greg Oziemkiewicz" <goziemki@xxxxxxxxx> 11/16/2006 3:03 PM
> > George,
> >
> > Use the post method then $query->param('param_name').
> >
> > Greg
> >
> >
> > On 11/16/06, George Morey <George.Morey@xxxxxxxxxxxx> wrote:
> > > I invoke my CGI with the following passing it 'param'.
> > >
> > > <form method=get action="/cgi-bin/dbtest4?parm">
> > >
> > > I currently have the following code in my Perl CGI to try and
> decode
> > > what is occuring:
> > >
> > > $query = new CGI;
> > > print $query;
> > >
> > > The print results in the following
> > >
> > > CGI=HASH(0x200215a8)
> > >
> > > Assuming that $query once initialized is a pointer to some data
I
> > > attempt to use it as such and get bupkiss.
> > >
> > > Can you suggest what is occurrring and how I might capture the
> > passed
> > > parameter to use for control flow in my program?
> > >
> > >
> > > --
> > > This is the Web Enabling the AS400 / iSeries (WEB400) mailing
list
> > > To post a message email: WEB400@xxxxxxxxxxxx 
> > > To subscribe, unsubscribe, or change list options,
> > > visit: http://lists.midrange.com/mailman/listinfo/web400 
> > > or email: WEB400-request@xxxxxxxxxxxx 
> > > Before posting, please take a moment to review the archives
> > > at http://archive.midrange.com/web400.
> > --
> > This is the Web Enabling the AS400 / iSeries (WEB400) mailing list
> > To post a message email: WEB400@xxxxxxxxxxxx 
> > To subscribe, unsubscribe, or change list options,
> > visit: http://lists.midrange.com/mailman/listinfo/web400 
> > or email: WEB400-request@xxxxxxxxxxxx 
> > Before posting, please take a moment to review the archives
> > at http://archive.midrange.com/web400.
> >
> > --
> > This is the Web Enabling the AS400 / iSeries (WEB400) mailing list
> > To post a message email: WEB400@xxxxxxxxxxxx 
> > To subscribe, unsubscribe, or change list options,
> > visit: http://lists.midrange.com/mailman/listinfo/web400 
> > or email: WEB400-request@xxxxxxxxxxxx 
> > Before posting, please take a moment to review the archives
> > at http://archive.midrange.com/web400.
> --
> This is the Web Enabling the AS400 / iSeries (WEB400) mailing list
> To post a message email: WEB400@xxxxxxxxxxxx 
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/web400 
> or email: WEB400-request@xxxxxxxxxxxx 
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/web400.
>
> --
> This is the Web Enabling the AS400 / iSeries (WEB400) mailing list
> To post a message email: WEB400@xxxxxxxxxxxx 
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/web400 
> or email: WEB400-request@xxxxxxxxxxxx 
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/web400.