log.pl
changeset 10 21b549d5c57b
parent 9 0943e8462f06
child 11 80890c874a90
--- a/log.pl	Wed Jan 16 14:42:22 2008 +0000
+++ b/log.pl	Thu Aug 21 22:26:57 2008 +0000
@@ -169,8 +169,9 @@
 		or die "Can't create Mailer: $!\n";
 
 	    my $subject = (split /\n/, $text)[0];
-	    $subject =~ s/^\s*\S\s//;
-	    $subject = encode_qp("Service [". hostname(). "]: $subject");
+	    $subject =~ s/^\s*\S\s//;	# cut the "itemizer"
+	    $subject = encode_qp("Service [". hostname(). "]: $subject\n");
+	    $subject =~ s/\n(.)/\n\t\1/g;
 
 	    $mailer->open({
 		"To" => $mailto,