Re: Capturing parameters in Perl CGI

["Dave Odom" <Dave.Odom@xxxxxxxxxxxx>]

George,
 
Don't you have to put in some DIM statements or something that
"defines"  param?   I'm ASSUMING perl is like .ASP and HTML.
 
Dave

> > > "George Morey" <George.Morey@xxxxxxxxxxxx> 11/16/2006 15:53 >>>
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.