220 	    $subject =~ s/^\s*\S\s//;	# cut the "itemizer"

   220 	    $subject =~ s/^\s*\S\s//;	# cut the "itemizer"

   221 	    $subject = encode_qp("Service [". hostname(). "]: $subject\n");

   221 	    $subject = encode_qp("Service [". hostname(). "]: $subject\n");

   222 	    $subject =~ s/\n(.)/\n\t$1/g;

   222 	    $subject =~ s/\n(.)/\n\t$1/g;

   223 

   223 

   224 	    $mailer->open({

   224 	    $mailer->open({

   225 		"To" => $mailto,

   227 		"To" => $mailto,

   226 		"Subject" => $subject});

   228 		"Subject" => $subject});

   227 	    print $mailer $head, "\n", $text;

   229 	    print $mailer $head, "\n", $text;

   228 	    close $mailer;

   230 	    close $mailer;

   229 	    print STDERR "Mail sent (to $mailto).\n";

   231 	    print STDERR "Mail sent (to $mailto).\n";