#!/usr/bin/perl

# Puts all of the messages in a folder (dated at least 1000000000
# seconds after the epoch...shouldn't be a problem for current
# messages, as that mark occured summer 2002) into one giant file,
# for processing by cmeclax's resend script.
#
# To use, place this in the folder you've put the bounces in 
# (i.e. ~/Maildir/.bounces/cur or the like) and simply run 
# "combine" from the command line.

system("ls 1* > list");
open(FILE, "list");
@data = <FILE>;
foreach my $x (@data) {
	$x =~ s/\n//g;
	$cmd = "cat $x >> bigfile";
	system($cmd);
}
system("rm list");