#! /usr/bin/perl
#
#	empty forwarding queue for a specific partner
#
# Last Change: DL6RAI Mon Mar 13 09:18:37 GMT 2000

$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';";
	print "+ $cmd\n";
	system "$psql \"$cmd\" ";
	$dir = "$home/box/iclb/$i";
	@files = `/bin/ls $dir/*`;
	chop(@files);
	foreach (@files) { 
		print "+ rm $_\n";
		unlink "$_" || print "Cannot unlink $_\n"; 
	}
	print "+ rmdir $dir\n";
	rmdir $dir || print "Cannot rmdir $dir\n";
}
