On Dec 9, 2009, at 4:59 PM, Frans Gouverne wrote:

So It should look something like:

1. get all email addresses which have a list type "sub_confirm_list" or "unsub_confirm_list"
2. remove this email address only if the same email address with list type "list" is present

Guess I have to add this API myself to baseSQL, or?

This script will give you a good start on something like that,

#!/usr/bin/perl
use lib ( 
 / 
/DADA/perllib );

use DADA::App::Guts;
use DADA::MailingList::Subscribers;

# For every list,
foreach my $list (DADA::App::Guts::available_lists) {

# init object
    my $lh = DADA::MailingList::Subscribers->new( { -list => $list } );

    # We're looking at these types of sublists:
    foreach my $type ( 'sub_confirm_list', 'unsub_confirm_list' ) {


        # Let's grab all the subscribers
    my $num_subs = $lh->num_subscribers( { -type => $type } );

    # Double-check the validity of this line: 
        my $subscribers = $lh->subscription_list(
            {
                -start    => 0,
                '-length' => $num_subs,
                -type     => $type,
            }
        );
        foreach my $check_sub (@$subscribers) {

            # Subscribed?
            if (
                $lh->check_for_double_email(
                    -Email => $check_sub->{email},
                    -Type  => 'list',
                )
              )
            {

                # Yes? REMOVE
                $lh->remove_subscriber(
                    {
                        -email => $check_sub->{email},
                        -type  => $type,
                    }
                );
            }
        }
    }
}

This is using the Dada Mail API You could also whip up an SQL query to do something similar, I suppose I'd be for the API, though :)