[MacPerl] Short intro and request for help

[William McAuliff <womc3@adamsapple.com>]

Hello all!

I have finally gotten around to joining the list. I am a volunteer helper
on Matt Wright's scipts help mailing list, offering assistance in
configuring Matt's scripts to anyone I can. Since I use MacOS, I can
appreciate many of the difficulties people have trying to do unix or
windows w/ little or no experience.

I have just started trying to run some of these scripts on my PowerBook w/
MacHTTP, MacPerl 5.1.3r2 with some success (I'm no perl expert).

Someone asked if I could look at a search script that wasn't working. When
I inluded the -w switch, the script output the search page with no results
(as before) but indicated that there were two places where there were
uninitialized variables.

When I ran the debugger, it seemed that the script was using the Perl
modules rather than the sub routines to parse, etc.. the info.


***************************
>  sub parse_form {
>
>     # Get the input
>     read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
******************************
>     # Split the name-value pairs
>     @pairs = split(/&/, $buffer);
>
>     foreach $pair (@pairs) {
>        ($name, $value) = split(/=/, $pair);
>
>        $value =~ tr/+/ /;
>        $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
>
>        $FORM{$name} = $value;
>     }
>  }
>
>  sub get_files {
>
>     chdir($basedir);
>     foreach $file (@files) {
************************************
>        $ls = `ls $file`;
************************************

Could it be the $buffer ?
(He is running on an intranet, I am running in loopback/localhost mode)

If some one is willing to look this over with me, I'd be eternally
greatful! We can continue this off of the list, if need be.
Thanks in advance folks!

Best regards,
Bill McAuliff
webmaster
**************************************************************************
                      adams apple communications group

          Internet Presence  Home Page Design  Internet Classifieds

    womc3@adamsapple.com    1.407.323.4728     http://www.adamsapple.com
**************************************************************************




***** Want to unsubscribe from this list?
***** Send mail with body "unsubscribe" to mac-perl-request@iis.ee.ethz.ch