chiark
/
gitweb
/
~webstump
/
modbot-ulm.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
truncation: adjust limit, and fix handling so we can do that in one place
[modbot-ulm.git]
/
stump
/
bin
/
submission.pl
diff --git
a/stump/bin/submission.pl
b/stump/bin/submission.pl
index fa98e930f7b3abc5978bf787126b72686b438585..c5d00686c5d4d1b1bff6559e7199bfb10bcc2c01 100755
(executable)
--- a/
stump/bin/submission.pl
+++ b/
stump/bin/submission.pl
@@
-345,9
+345,11
@@
sub readMessage {
if (!m/^(?:References):/i) {
push @unfolded, (m/^[^:]+:/ ? $& : '????')
if s/\n(?=.)//g;
if (!m/^(?:References):/i) {
push @unfolded, (m/^[^:]+:/ ? $& : '????')
if s/\n(?=.)//g;
- if (length $_ > 505) { #wtf
- $_ = substr($_, 0, 500);
- $_ =~ s/\n?$/\n/;
+ my $maxlen = 510;
+ if (length $_ > $maxlen+1) { # $maxlen plus one \n
+ chomp;
+ $_ = substr($_, 0, $maxlen);
+ $_ .= "\n";
$readahead = $_;
m/^[0-9a-z-]+/i;
$_ = $warning->("Next header ($&) truncated!");
$readahead = $_;
m/^[0-9a-z-]+/i;
$_ = $warning->("Next header ($&) truncated!");