[Date Prev][Date Next][Thread Prev][Thread Next] [Search] [Date Index] [Thread Index]

[MacPerl] smtp

hello!


system configuration: G3, WebStar 4.0, MacPerl 5.2

i'm trying to run script sending form data to an email
in return such a error mesagge:

"Diagnostic Output
# Can't call method "mail" without a package or object reference."


what did i wrong?


http://www.rhino.lv/form.html










form.cgi -->

print "Content-type: text/html\n";
print "Pragma:no-cache\n\n";


@querys = split(/&/, $ENV{'QUERY_STRING'});
foreach $query (@querys) {
  ($name, $value) = split(/=/, $query);
  $FORM{$name} = $value;    
}

read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);

foreach $pair (@pairs) {
   ($name, $value) = split(/=/, $pair);

   # Un-Webify plus signs and %-encoding
   $value =~ tr/+/ /;
   $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
   $value =~ s/<!--(.|\n)*-->//g;
   $FORM{$name} = $value;
}

$myemail = 'trakais@rhino.lv';

$vards = "$FORM{'vards'}";
$valsts = "$FORM{'valsts'}";
$amats = "$FORM{'amats'}";
$websaits = "$FORM{'websaits'}";
$atsauksme = "$FORM{'atsauksme'}";
$datastring = "nezinu ko te rasktiit!";


use Net::SMTP;

        my $smtp = new Net::SMTP(smtp.parks.lv);
        $smtp->mail($myemail);
        $smtp->to($myemail);
        $datastring = "To:$myemail\nSubject: Shitais ir no Weba 
Formas!\r\nNU KO?! SANAACA 
NE?\n$vards\n$valsts\n$amats\n$websaits\n$atsauksme\n";
        $smtp->data( [ $datastring ] );
        $smtp->quit;


print "<html><head><title>Success</title></head>\n";
print "<center>\n";
print "<h2>Kaartibnieks!</h2>\n";
print "</center></body></html>\n";


# ===== Want to unsubscribe from this list?
# ===== Send mail with body "unsubscribe" to macperl-request@macperl.org