From 526544fe7f7343ea32729802a1bd7fab34009c2e Mon Sep 17 00:00:00 2001
From: Frank Brehm <frank@brehm-online.com>
Date: Tue, 14 Nov 2006 09:31:24 +0000
Subject: [PATCH] =?utf8?q?Daf=C3=BCr=20gesorgt,=20da=C3=9F=20Fehlermeldung?=
 =?utf8?q?en=20mit=20Messages=20vollst=C3=A4ndiger=20gesendet=20werden?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 mail2sms.pl | 35 ++++++++++++++++++++++++++++++-----
 1 file changed, 30 insertions(+), 5 deletions(-)

diff --git a/mail2sms.pl b/mail2sms.pl
index 7493b51..fe3929a 100755
--- a/mail2sms.pl
+++ b/mail2sms.pl
@@ -186,7 +186,8 @@ if ($show_version) {
     exit 0;
 }
 
-my $maxenv = 1;
+my $maxlen_msg = $maxlen * 4;
+my $maxenv     = 1;
 my ( $attr, $env, $input, $text, $body, $content, $r, $file, $lockfile, $i, $mail, $part );
 my (@Rcpts);
 
@@ -229,6 +230,8 @@ my $filepat = $dir . "mail2sms_" . time() . "-" . $$ . '_%d.txt';
     $input = <>;
 }
 
+exit 0 unless $input;
+
 $body = undef;
 
 # Mail zerpflücken und den plain-text-Teil heraussuchen
@@ -265,9 +268,31 @@ $text .= "\n" if $text;
 # Dann der Mail-Text
 $text .= $body;
 
-# Text trimmen und auf Länge stutzen
-$text =~ s/\s+$//;
-$text = substr( $text, 0, $maxlen );
+=pod
+
+Na2702.msgs down (red) 01:34: Messages mit Fehlern|>&red Fehler: [2006 Nov 12 01:33:50 CET
+Status Na2702.msgs -> down (red) um Sun Nov 12 01:34:07 2006.
+Messages mit Fehlern
+&red Fehler: [2006 Nov 12 01:33:50 CET +0100] na2702 [daemon.err] [na2702: asup.smtp.unreach:error]: Autosupport mail was not sent because the system cannot reach any of the mail hosts from the autosupport.mailhost option. (WEEKLY_LOG)
+
+=cut
+
+if ( $text =~ /^(\w+.msgs\s+down\s+\(\w+\)\s+\d+:\d+(?::\d+)?:\s+[\s\w]+)\|.*[\n\r]+\&\w+\s+Fehler:\s+(.*)/is ) {
+
+    $text = $1 . "\n" . $2;
+
+    # Text trimmen und auf Länge stutzen
+    $text = substr( $text, 0, $maxlen_msg );
+    $text =~ s/\s+$//;
+
+}
+else {
+
+    # Text trimmen und auf Länge stutzen
+    $text = substr( $text, 0, $maxlen );
+    $text =~ s/\s+$//;
+
+}
 
 # Bestätigungs-Mail rausjagen, falls nicht untersagt ..
 unless ($nomail) {
@@ -281,7 +306,7 @@ unless ($nomail) {
 
     print MAIL "Gesendeter Text:\n" . $text . "\n";
 
-    if ( $verbose ) {
+    if ($verbose) {
         print MAIL "---------------------\n";
         print MAIL "Environment:\n" . $env . "\n\n";
         print MAIL "Kommando-Parameter:\n" . $attr . "\n\n";
-- 
2.39.5