what is param() in CGI PERL

[mdshafi01]

HI,

I have problem in this code

it is not working it is not going insdie param condition...

please what will be the problem

please help me

[code=perl]
use CGI qw(:standard);

print "Content-type: text/plain\n\n";

if (param()) {
my $dest = param('dest');
my $opt = param('opt');
my $file = param('file');
my $user = param('user');

print "\n-->$dest $opt $file $user\n";
if ($file =~ /Z$/) {
`zcat $file | lp -d$dest -t $user $opt `;
} else {
`lp -d$dest -t $user $opt $file `;
}
##Added by Ram K Maddela for deleting files from Server after Printer...
`rm -f $file`;
}
[/code]

[eWish]

I would add the following this will tell you what params the script is seeing.

Before this section of code:
[CODE=perl]if (param()) {
my $dest = param('dest');
my $opt = param('opt');
my $file = param('file');
my $user = param('user');[/CODE]

Add this section of code:
[CODE=perl]foreach my $key (param) {
print "<strong>$k ey</strong> -> ";
my @values = param($key);
print join(", ",@values),"<br >\n";
}[/CODE]

--Kevin

[mdshafi01]

Can any one tell me how to execute this CGI script.

what are the configurations are required. and where to place this script. and any link or something is required for webserver or something.


shafi

[eWish]

If you don't know how to execute the script then how do you know that the param() are not being set?

Since you are running is as CGI you will need a webserver.

--Kevin

[mdshafi01]

I need details like where to keep this perl script.

what are the webervers are required for my program.
is it required to create any link between my program and webserver

please tell me those details

shafi

[numberwhun]

I need details like where to keep this perl script.

what are the webervers are required for my program.
is it required to create any link between my program and webserver

please tell me those details

shafi

Well, assuming that you will be using the Apache web server, here is a tutorial for setting it up. That should tell you what you need to know.

Regards,

Jeff