equal
deleted
inserted
replaced
167 if ($opt_mail and $mailto) { |
167 if ($opt_mail and $mailto) { |
168 my $mailer = new Mail::Mailer "sendmail" |
168 my $mailer = new Mail::Mailer "sendmail" |
169 or die "Can't create Mailer: $!\n"; |
169 or die "Can't create Mailer: $!\n"; |
170 |
170 |
171 my $subject = (split /\n/, $text)[0]; |
171 my $subject = (split /\n/, $text)[0]; |
172 $subject =~ s/^\s*\S\s//; |
172 $subject =~ s/^\s*\S\s//; # cut the "itemizer" |
173 $subject = encode_qp("Service [". hostname(). "]: $subject"); |
173 $subject = encode_qp("Service [". hostname(). "]: $subject\n"); |
|
174 $subject =~ s/\n(.)/\n\t\1/g; |
174 |
175 |
175 $mailer->open({ |
176 $mailer->open({ |
176 "To" => $mailto, |
177 "To" => $mailto, |
177 "Subject" => $subject}); |
178 "Subject" => $subject}); |
178 print $mailer $head, "\n", $text; |
179 print $mailer $head, "\n", $text; |