#!/usr/bin/perl -w

use strict;

my $secs = 200000;
my $too_old = time() - $secs;
my $new_dir = "/home/johan/Maildir/.$ARGV[0]";
my $old_dir = "/home/johan/Maildir/.$ARGV[0]-old"; 

my $subdir;
foreach $subdir ('/cur/','/new/') {
	opendir NEWMAIL, $new_dir.$subdir;
	my ($filename, $time, @junk);
	while ($filename = readdir NEWMAIL) {
		next if ($filename =~ /^\.+$/);
		# print $filename."\n";
		# $time = $filename;
		# $time =~ s/\..*$//;
		@junk = stat ("$new_dir/$subdir/$filename");
		$time = $junk[10];
		if ($too_old > $time) {
			system "mv $new_dir/$subdir/$filename $old_dir/cur/$filename";
		}
	}
	closedir NEWMAIL;
}