[MacPerl] MacPerl CGI locking up machine

[Dennis Little <dennis.j.little@lmco.com>]

Everyone,

I'm hoping someone out there will know more of the inner workings of
MacPerl and can tell me what might be wrong with the following CGI Script.
I'm running it on a PM4400/200 with MacOS 8.5.1 under Personal Web Sharing
and MacPerl 5.2.0r4.

What it's supposed to do is take a form (any form -- I'm using it for two
separate ones now) and e-mail me the information from them.

During initial testing (sending blank forms), all seemed OK and I was ready
to let everyone start using it but on a final test group, I decided to send
a real message -- and it locked up my machine completely forcing me to do a
three-finger salute (Cmd, Cntl, Power Key) and start over.  On further
testing, it happens sporadically (about one out of four attempts usually
after about three tries) and it's the only thing running.

Does anyone know of a memory leak in the standard distribution?  Is there a
good tool for tracking memory or other things that it could be stomping on?
Any other ideas???

Thanks,

Dennis Little

#!/usr/bin/perl

use Carp;
use CGI;
use Net::SMTP;

#######

$query = new CGI;

#######

$host="host.name.com";
$smtp= Net::SMTP->new($host, Timeout => 60, Hello => 'domain', Debug => 1)
   or die "Unable to open the connection";

#######

$mail="dennis.j.little\@lmco.com"; @m=split(/:/,$mail);

foreach $recip (@m){ # for each recipient
   $smtp->mail("recipient\@lmco.com");
   $smtp->to($recip);
   $smtp->data();
   $smtp->datasend("To: $recipient\n");
   $smtp->datasend("Subject: Personnel/Assignment Availability\n");
   $smtp->datasend("\n");
   foreach $key ($query->param) {
      $smtp->datasend("$key\t");
      @values = $query->param($key);
      $smtp->datasend(join(",",@values),"\n");
   }
   $smtp->dataend(); # close it up
}

$smtp->quit;

exit (0);

-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
Dennis Little			       mailto://dennis.j.little@lmco.com
Lockheed Martin Missiles & Space       mailto://metnet@worldnet.att.net
Sunnyvale, CA			       Web: http://www.lmms.lmco.com/
Phone: 408/756-2170		       LMMS: O/EA52 B/076 C/3E8
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=



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