truncation: include header name in warning header

[modbot-uram.git] / stump / bin / submission.pl

diff --git a/stump/bin/submission.pl b/stump/bin/submission.pl
index d6f5a400b1abba9fdbbdd261bb341348b2112328..fa98e930f7b3abc5978bf787126b72686b438585 100755 (executable)
--- a/stump/bin/submission.pl
+++ b/stump/bin/submission.pl
@@ -349,7 +349,8 @@ sub readMessage {
            $_ = substr($_, 0, 500);
            $_ =~ s/\n?$/\n/;
            $readahead = $_;
-           $_ = $warning->("Next header truncated!");
+           m/^[0-9a-z-]+/i;
+           $_ = $warning->("Next header ($&) truncated!");
          }
        }
       } else {