#!/usr/bin/perl -w

# List the changes made to one or more specified ezmlm mailing lists, in reverse chronological order

use strict;

my @events;

foreach my $list (@ARGV)
{
	open (LOG,"$list/Log") || die "$list:$!\n";
	while(<LOG>)
	{
		chomp;
		die $_ unless /^(\d+) ([\+\-]\w*) ([a-zA-Z0-9_@\. "<>-]+)$/;
		my ($time,$op,$addr)=($1,$2,$3);
		push @events,join(' ',$time,$list,$op,$addr);
	}
	close(LOG);
}

foreach (sort @events)
{
	print $_,"\n";
}