diff options
| author | fukachan <fukachan> | 2001-04-14 14:35:08 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2001-04-14 14:35:08 +0000 |
| commit | 3f241c597114923152c842c22dfda55fa1d58ac1 (patch) | |
| tree | 2fb05ded55a7e53fadf8bbf12e92308a5cddc804 | |
| parent | c977b97d6a86ec449568cb62c26b663c0b39b158 (diff) | |
| download | fml8-3f241c597114923152c842c22dfda55fa1d58ac1.tar.gz fml8-3f241c597114923152c842c22dfda55fa1d58ac1.tar.bz2 fml8-3f241c597114923152c842c22dfda55fa1d58ac1.zip | |
add regress/message/scramble.pl. modify regress/simulation/test.sh to
use it.
| -rwxr-xr-x | regress/message/scramble.pl | 21 | ||||
| -rwxr-xr-x | regress/simulation/test.sh | 4 |
2 files changed, 23 insertions, 2 deletions
diff --git a/regress/message/scramble.pl b/regress/message/scramble.pl new file mode 100755 index 00000000..7d06abd7 --- /dev/null +++ b/regress/message/scramble.pl @@ -0,0 +1,21 @@ +#!/usr/local/bin/perl +#-*- perl -*- +# +# Copyright (C) 2001 Ken'ichi Fukamachi +# All rights reserved. This program is free software; you can +# redistribute it and/or modify it under the same terms as Perl itself. +# +# $FML: __template.pm,v 1.5 2001/04/03 09:45:39 fukachan Exp $ +# + + +while (<>) { + if (/message-id/i) { + my $time = time; + s/\d+/$time.$$/g; + } + + print ; +} + +exit 0; diff --git a/regress/simulation/test.sh b/regress/simulation/test.sh index 24aaebfb..8e64704f 100755 --- a/regress/simulation/test.sh +++ b/regress/simulation/test.sh @@ -1,6 +1,6 @@ #!/bin/sh # -# $FML$ +# $FML: test.sh,v 1.7 2001/04/08 07:21:59 fukachan Exp $ # DO () { @@ -11,7 +11,7 @@ DO () { test -f $msg || return; - cat $msg |\ + regress/message/scramble.pl $msg |\ ${PERL:-perl} -w fml/libexec/loader \ --params pwd=$PWD \ -c $pwd/main.cf \ |