[also cc'ed to the beginners-cgi list for everyones benefit]
At 08:00 PM 07/13/2001 -0500, Teresa Raymond <[EMAIL PROTECTED]> wrote:
>Mel, thanks for pointing out the duplicate. I can't use strict
>because I get an error msg, I think it's an older version of Perl -
Thats what "use strict" is for...for pointing out coding errors and
enforcing strict programming guidelines, and not letting you go further
until you fix them.
>I don't have permission to install modules other than adding a lib in
>the cgi-bin and also, I don't have access to install a newer version
>of Perl.
What version of perl are you running?
>When I put in the break code, the use Image::Size part of the script
>makes it - so Perl is finding the module:
>
> use Image::Size qw{ imgsize };
> print "Content-type: text/html \n\n";
> print "<html><body><p>Made It!</p></body></html>";
> exit(0);
>
> #OUTPUT "Made It!"
>
>It fails on the next line:
>
> my ($x, $y, $id) = imgsize($file); # $fh is the handle to your file
> print "Content-type: text/html \n\n";
> print "<html><body><p>Made It!</p></body></html>";
> exit(0);
>
> #OUTPUT "Server 500 Error"
What happens when you run the script from the commandline (or using
CGI::Carp with 'fatalsToBrowser' enabled?
The "Server 500 Error" isn't helpful at all and is completely meaningless
to your problem...that's an just error message from the *Web-server*, NOT
perl. You need to run your script manually from the commandline with
warnings and strict enabled (or using the aformentioned CGI::Carp module so
you can see the errors from perl echo'ed to your browser window via CGI) in
order to debug your errors.
good luck,
mel
--
mel matsuoka Hawaiian Image Productions
Chief Executive Alphageek (vox)1.808.531.5474
[EMAIL PROTECTED] (fax)1.808.526.4040
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
