#################################
sub sieve_util_remove_filter
{
	
	my ($relay, $relay_dir, $filename, $home_dir, @lock) = @_;
	my $lt = localtime();
	my @tmp = split " ", $lt;
	my @online;
       	
    foreach  my $filelock (@lock)
    { 
	$tmp[3] =~ s/\:/_/g;

	my $tdate = $tmp[4] . $tmp[1] . $tmp[2] . "_" . $tmp[3];
 
	my $flag_stamp = $filename . $tdate;

	$| = 1;

	chdir "$home_dir";
	       
	if (my $ftp = Net::FTP->new($filelock))
	{
	#next;
	die "Cannot login: $@ "unless $ftp;
	
	if ($ftp->login("$uid", "$pass"))
	{
	    if ($ftp->cwd($relay_dir))
	    {
	      $ftp->binary;			
		    @check_dir = $ftp->ls($relay_dir);
		    # File name(s) you want to download
		    foreach $chk (@check_dir)
		     {
		       if ($chk =~ m/$flag_file/)
		      {
		       $ftp->delete($flag_file)
		      }#end if
		     }#end foreach										
	      $ftp->quit;			
	    }
	    else
	    {
	     sieve_util_generic_error ("Unable to switch to $relay_dir.");
	    }
	}
	  else
	  {
	   sieve_util_generic_error ("Unable to login to $relay.");
	  }
	}
	else
	{
	next;
	}
    } #end foreach
    return ($uid,$pass);
}