########################################################### This subro
+utine writes the item list for a given filter section.
sub write_items
{
    my ($chk_header) = @_;
    my $tmp_count = 0;
    my $tmp_header = param('SecName');
    my $t_items = param('display_items');
    my @tmp_items = split("-endofline-",$t_items);
    my $t_write_items;
    my $tmp_item;
    my $c = 0;
    my $tmp_item;
    my $tmp_name;
    my $tmp_hold;
    my $tmp_ct;

    my @item_list = "";

    #Initialize the item_line array.
    for ($c=0; $c<1; $c++)
    {
        $item_line[$c] = "";
    }

    # tmp_header is the filter that has been modified. Check each head
+er (chk_header)
    # to see if it is the one that has been modified.
     if ($chk_header eq $tmp_header)
    {
        for($c=0; $c<1; $c++) 
        {     
            $tmp_name ="item_" . $c; #This section writes the content 
+for the section being modified.
            $tmp_hold = param($tmp_name);

            chomp $tmp_hold;

            $tmp_ct = 0;
            $tmp_ct++ while $tmp_hold =~ /./g;

            if ($tmp_ct >= 1)
            {
                $item_list[$c] = $tmp_hold;
                
            }#end if
     }#end for 
    }#end if 
     else
   { 
        $t_write_items = $tmp_items[$a];
          @item_list = split("\",\"",$t_write_items);
    }
    
    foreach $tmp_item (@item_list)
    {

        if ($tmp_count > 4)
        {
            $tmp_count = 0;
        }
                          
        
              if ($tmp_item eq "")
              {next;}
           
        if ($tmp_item ne "")
        {               
         $item_line[$line_count] = $item_line[$line_count] . $tmp_item
+;             
          }
     $tmp_count++;
     
   }#end foreach
         
}
######################################################
sub deleted_section
{
    my ($chk_header) = @_;
    my $tmp_header = param('SecName');

     if ($chk_header eq $tmp_header)
    {
        # This is the section header that we want to delete.
        1;
    }
    else
    {
        0;
    }
} 
###################################
sub write_filter
{
    my $name = param('header_name');
    my $ttl = param('total_headers');
    my $if_act = param('action_line');
    my @act = split("-endofline-",$if_act);
    my $if_tmp = param('if_line'); 
    my @if = split("-endofline-",$if_tmp);
    my $write_header;
    my $write_action;
    my $write_if;
    my $header_line;
    my $j = "#";
    $a=0;
    my $delete_only_once = 0;
    @tmp_headers = split("-endofline-",$name);
    chdir "$home_dir";

   open FILE, ">$filename" or die "Could not open file '$filename' for
+ appending: $! ";
   print FILE "########## Spamassassin White List ##########\n\n";
   while($a<=$ttl)
    {
        if (deleted_section($tmp_headers[$a]))
        {
            $delete_only_once++;
            if ( $delete_only_once > 1 ) 
            {
               #  error msg
               sieve_util_generic_error("Duplicate Section Name: $tmp_
+headers[$a]  Delete from UNIX command line.<br><br> Go To the Miscell
+aneous link and click the 'Remove whitelist lock'");
            } 
        }
        $a++;
    }        
        $a = 0;
    while($a<=$ttl)
    {
        $line_count = 0;
        $write_header = $j . $tmp_headers[$a] . $j;
        $write_if = $if[$a];
        $write_action = $act[$a];
             # Write out only those sections that weren't deleted.
        if (!deleted_section($tmp_headers[$a]))
        {
        # Write Section Header
        #print FILE "$write_header\n";


          # Create item list for the individual section
         write_items($tmp_headers[$a]);
        
    my $t = -1;

        while ($t++ <= $line_count)
        {
            if ($item_line[$t] ne "")
              {
                print FILE "$item_line[$t]\n\n";
              }
        }
         }
         
         $a++;
    }#end while

   close FILE; 

}#end sub
[download]

This is the remove code in a different file

#################################
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);
}
[download]

update (broquaint): added <readmore> tag