Lines Matching refs:message
37 my ($message, $listenerstring, $mailinfostring, $languagesref, $destdir) = @_;
57 if ( $message eq "ERROR" ) { $subject = "ERROR: $basestring" }
58 if ( $message eq "SUCCESS" ) { $subject = "SUCCESS: $basestring" }
60 my @message = ();
63 push(@message, "Subject: $subject");
64 push(@message, "To: $recipient_string");
65 push(@message, "\n");
66 push(@message, "Located at $destdir");
68 if ( $message eq "ERROR" )
74 push(@message, $line);
78 for ( my $i = 0; $i <= $#message; $i++ ) { $message[$i] = $message[$i] . "\015\012"; }
90 $smtp->data(\@message);