diff options
| author | Jeremy Harris <jgh146exb@wizmail.org> | 2023-02-25 15:50:58 +0000 |
|---|---|---|
| committer | Jeremy Harris <jgh146exb@wizmail.org> | 2023-02-25 15:59:34 +0000 |
| commit | 7c60296900bdff369ffd2bf54eecfe6097b997a4 (patch) | |
| tree | 8d98943241cdfb2ebf519a98706eda294887325b /test/runtest | |
| parent | e603a342100ed93b09a152b6150e65f77abe5b0d (diff) | |
| download | exim4-7c60296900bdff369ffd2bf54eecfe6097b997a4.tar.gz | |
Linewrap long lines in bounce bodies. Bug 2979
Diffstat (limited to 'test/runtest')
| -rwxr-xr-x | test/runtest | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/test/runtest b/test/runtest index 32dfe73ab..3931b06d4 100755 --- a/test/runtest +++ b/test/runtest @@ -399,6 +399,7 @@ RESET_AFTER_EXTRA_LINE_READ: { next if $extra =~ m%^/% && eval $extra; eval $extra if $extra =~ m/^s/; + eval substr($extra, 1) if $extra =~ m/^R/; } # Check for "*** truncated ***" @@ -1926,7 +1927,8 @@ return 2; # Usable files are: # paniclog, rejectlog, mainlog, stdout, stderr, msglog, mail # Search strings starting with 's' do substitutions; -# with '/' do line-skips. +# with '/' do line-skips, +# with 'R' run given code. # Triggered by a scriptfile line "munge <name>" ################################################## $munges = @@ -1973,7 +1975,13 @@ $munges = }, 'optional_dsn_info' => - { 'mail' => '/^(X-(Remote-MTA-(smtp-greeting|helo-response)|Exim-Diagnostic|(body|message)-linecount):|Remote-MTA: X-ip;)/' + { 'mail' => 'Rif (/^(X-(Remote-MTA-(smtp-greeting|helo-response)|Exim-Diagnostic|(body|message)-linecount):|Remote-MTA: X-ip;)/) { + while (1) { + $_ = <IN>; + next if /^ /; + goto RESET_AFTER_EXTRA_LINE_READ; + } + }' }, 'optional_config' => |