For Programmers: Free Programming Magazines  


Home > Archive > PERL CGI Beginners > March 2005 > Require









You are viewing an archived Text-only version of the thread. To view this thread in it's original format and/or if you want to reply to this thread please [click here]

 

Author Require
Ari Paavilainen

2005-03-11, 8:55 am

What's wrong with following scripts:

[10:57] kuori ~/cgi-bin % cat menu.cgi
#!/opt/perl/bin/perl -wT
use strict;
use CGI qw(:standard);
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);

require "/home/a/p/apaavi/cgi-bin/parse.pl";

print header;
print start_html("Valokuva-albumi");
print $main::vuosi;
print end_html;

[10:58] kuori ~/cgi-bin % cat parse.pl
my $vuosi = param('vuosi');
my $sarja = param('sarja');
my $kuva = param('kuva');

Menu.cgi gives error message: /home/a/p/apaavi/cgi-bin/parse.pl did not
return a true value at menu.cgi line 6.


-Ari


Ari Paavilainen

2005-03-11, 8:55 am


"Ari Paavilainen" <arip@iki.fi> kirjoitti
viestissä:qadYd.724$OH2.402@reader1.news.jippii.net...
> What's wrong with following scripts:
>
> [10:57] kuori ~/cgi-bin % cat menu.cgi
> #!/opt/perl/bin/perl -wT
> use strict;
> use CGI qw(:standard);
> use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
>
> require "/home/a/p/apaavi/cgi-bin/parse.pl";
>
> print header;
> print start_html("Valokuva-albumi");
> print $main::vuosi;
> print end_html;
>
> [10:58] kuori ~/cgi-bin % cat parse.pl
> my $vuosi = param('vuosi');
> my $sarja = param('sarja');
> my $kuva = param('kuva');
>
> Menu.cgi gives error message: /home/a/p/apaavi/cgi-bin/parse.pl did not
> return a true value at menu.cgi line 6.
>
>
> -Ari


I solved the return value problem, but how can I access the $vuosi variable
in menu.cgi; $main::vuosi prints nothing.

-Ari


Sponsored Links







Also available: Server administration forum archive | Web Design forum archive | Software forum archive | Hardware reviews archive

Copyright 2008 codecomments.com