diff options
author | Philip Hazel <ph10@hermes.cam.ac.uk> | 2006-02-08 14:28:51 +0000 |
---|---|---|
committer | Philip Hazel <ph10@hermes.cam.ac.uk> | 2006-02-08 14:28:51 +0000 |
commit | ea49d0e16fbc6f56fc5b8519d266f88d09139187 (patch) | |
tree | 461a6152e7ee2b4c512fbd48740fd924bd78476c /test/aux-fixed/setrt | |
parent | 1349e1e5bcfa5fb3db8aa2f02825b7e70bf47cdb (diff) |
Fix retry key bug for pipe, file, or autoreply deliveries.
Diffstat (limited to 'test/aux-fixed/setrt')
-rw-r--r-- | test/aux-fixed/setrt | 39 |
1 files changed, 39 insertions, 0 deletions
diff --git a/test/aux-fixed/setrt b/test/aux-fixed/setrt new file mode 100644 index 000000000..85046508e --- /dev/null +++ b/test/aux-fixed/setrt @@ -0,0 +1,39 @@ +# This is a little perl script that adjusts the "received" time in a -H file, +# so that retry timeouts etc can be more easily tested. Its arguments are: +# +# (1) The number of the message on the queue whose time is to be adjusted; 1 +# for the first message, 2 for the second, etc. +# +# (2) A positive or negative number by which to adjust the received time. + +$fileno = $ARGV[0] - 1; +$adjust = $ARGV[1]; + +opendir(DIR, "spool/input"); +while (($_ = readdir(DIR))) { push(@files, $_) if /.*-H$/; } +closedir(DIR); + +@files = sort @files; + +open(IN, "spool/input/$files[$fileno]") || + die "can't open spool/input/$files[$fileno]"; + +open(OUT, ">test-H"); + +$_ = <IN>; print OUT; +$_ = <IN>; print OUT; +$_ = <IN>; print OUT; +$_ = <IN>; +($rtime,$rest) = $_ =~ /^(\d+)(.*)/; +$rtime += $adjust; +print OUT "$rtime$rest\n"; +print OUT while (<IN>); + +close(IN); +close(OUT); + +rename("test-H", "spool/input/$files[$fileno]") || die "rename failed\n"; + +exit(0); + +# End |