imap/testsuitefix.pl.in


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

#! @PERL@
#
# Copyright 2000-2001 Double Precision, Inc.  See COPYING for
# distribution information.
#
# Ok, the output of LIST is given in filesystem order, so fix that by
# prefixing a line number count, which doesn't incremenet for a LIST,
# and have the output of this script sorted.
#

$n=0;

while (<>)
{
    s/\[COPYUID.*\] //;
    s/\[APPENDUID.*\] //;
    s/^\* ADD \"UID=.*/* ADD UID/;
    s/^\* COPY \d+ \"NEWUID=.*/* COPY NEWUID/;
    printf("%06d %s", $n, $_);
    ++$n unless $_ =~ /^\* (LIST|LSUB|ENABLED)/ || $_ =~ /Options enabled/;
}