#! /usr/bin/perl
#
#	empty forwarding queue for a specific partner
#
# Last Change: DL6RAI Sun Jul 18 06:22:15 GMT 1999 

$db_name = "clx_db";
$home = (getpwnam('clx_us'))[7];
$psql = "psql -d $db_name -qtc";

if (! defined($ARGV[0])) {
	print "Usage: $0 <callsign> [<callsign>]\n";
	exit 1;
}

foreach $i (@ARGV) {
	print "Cleanup of mail forwarding queue to $i\n";
	$cmd = "delete from ml_file where f_thema='iclb' and f_cto='$i';";
	system "$psql \"$cmd\" ";
	$dir = "$home/box/iclb/$i";
	opendir(DIR,$dir) || die "Cannot opendir $dir\n";
	@files = readdir(DIR);
	closedir(DIR);
	foreach (@files) { 
		unlink $_ || print "Cannot unlink $dir/$_\n"; 
	}
	rmdir $dir || print "Cannot rmdir $dir\n";
}
