You have finished composing your message. At this point, you have
a few options. You can:
- * [Se]end the message to $address$andcc,
+ * [Se]nd the message to $address$andcc,
* [D]isplay the message on the screen,
* [R]e-edit the message
* Display or change the message's [su]bject
open(REP, "<$filename") or die "Couldn't open '$filename': $!\n";
while (<REP>) { print $fh $_ }
close(REP) or die "Error closing $filename: $!";
- $fh->close;
+ $fh->close or die "Error sending mail: $!";
print "\nMessage sent.\n";
}
sub _send_message_sendmail {
my $sendmail = _probe_for_sendmail();
unless ($sendmail) {
- paraprint(<<"EOF"), die "\n";
+ my $message_start = !$Is_Linux && !$Is_OpenBSD ? <<'EOT' : <<'EOT';
It appears that there is no program which looks like "sendmail" on
your system and that the Mail::Send library from CPAN isn't available.
+EOT
+It appears that there is no program which looks like "sendmail" on
+your system.
+EOT
+ paraprint(<<"EOF"), die "\n";
+$message_start
Because of this, there's no easy way to automatically send your
message.