#! /usr/bin/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)/;
}