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 | |
| 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')
| -rwxr-xr-x | regress/message/scramble.pl | 17 | ||||
| -rwxr-xr-x | regress/simulation/emul_command.sh | 4 |
2 files changed, 12 insertions, 9 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; diff --git a/regress/simulation/emul_command.sh b/regress/simulation/emul_command.sh index 6e41c128..4dee17e7 100755 --- a/regress/simulation/emul_command.sh +++ b/regress/simulation/emul_command.sh @@ -1,6 +1,6 @@ #!/bin/sh # -# $FML: emul_command.sh,v 1.4 2004/03/12 15:54:43 fukachan Exp $ +# $FML: emul_command.sh,v 1.5 2004/03/14 07:01:08 fukachan Exp $ # buf=$PWD/__command$$__ @@ -27,7 +27,7 @@ DO () { regress/simulation/main.cf > $maincf - regress/message/scramble.pl $msg |\ + env MODE=COMMAND regress/message/scramble.pl $msg |\ ${PERL:-perl} -w fml/libexec/loader -c $maincf \ -o $option \ --ctladdr \ |