diff options
| author | fukachan <fukachan> | 2010-03-06 13:18:40 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2010-03-06 13:18:40 +0000 |
| commit | 04939ee15337b46075a07da5bcb0396b9623a66b (patch) | |
| tree | cbaee3fffef7de8f5499dd75bf1fb2ee37e41daa /regress/message | |
| parent | cd2380c2d9403e4f836b3680da6f143e32f87732 (diff) | |
| download | fml8-04939ee15337b46075a07da5bcb0396b9623a66b.tar.gz fml8-04939ee15337b46075a07da5bcb0396b9623a66b.tar.bz2 fml8-04939ee15337b46075a07da5bcb0396b9623a66b.zip | |
we should not scramble test messages in command mode test.
so, regress/message/scramble.pl checks environment variable MODE.
Diffstat (limited to 'regress/message')
| -rwxr-xr-x | regress/message/scramble.pl | 17 |
1 files changed, 10 insertions, 7 deletions
diff --git a/regress/message/scramble.pl b/regress/message/scramble.pl index 0682e670..e8525c1c 100755 --- a/regress/message/scramble.pl +++ b/regress/message/scramble.pl @@ -5,12 +5,13 @@ # All rights reserved. This program is free software; you can # redistribute it and/or modify it under the same terms as Perl itself. # -# $FML: scramble.pl,v 1.3 2004/03/28 13:11:59 fukachan Exp $ +# $FML: scramble.pl,v 1.4 2006/11/24 06:51:15 fukachan Exp $ # use strict; use Carp; +my $mode = $ENV{ MODE } || "post"; my $from = $ENV{ FML_EMUL_FROM } || undef; my $from_found = 0; my $date_found = 0; @@ -54,11 +55,13 @@ while (<>) { print $_; } -# avoid body loop check. -require 'ctime.pl'; -print "\n"; -print "XXX AVOID BODY CHECKSUM LOOP CHECK: "; -print ctime(time); -print "\n"; +if ($mode eq "post") { + # avoid body loop check. + require 'ctime.pl'; + print "\n"; + print "XXX AVOID BODY CHECKSUM LOOP CHECK: "; + print ctime(time); + print "\n"; +} exit 0; |