Sorry Justin,

I'll check it for you as soon as you explain to me how to apply this patch ;-)

Alfred

-----Oorspronkelijk bericht----- Van: Dada Mail (Justin Simoni) [mailto:dada@skazat com] Verzonden: woensdag 12 april 2006 8:30 Aan: alfred@alfsoft com Onderwerp: [dadadev] RE: Dada Mail, 2 10 8 alpha 1 has been released

Alfred,

I attached a patch for the DADA/MailingList/Subscribers/baseSQL pm file from the 2 10 8 alpha 1 distro that was giving you errors and a, (hopefully) fixed version - looks like the problem was extremely sloppy coding on my part :)

If you try it, let me know if it applies correctly, here's it below as well:

[snip] --- /Users/justin/Documents/DADA/DISTRO/dada/DADA/MailingList/ Subscribers/baseSQL pm 2006-04-11 00:22:28 000000000 -0600 +++ /Users/justin/Documents/DADA/jCVS_DADA_2 x/dada_mail_stable/dada/ DADA/MailingList/Subscribers/baseSQL pm 2006-04-12 00:26:35 000000000
-0600 @@ -13,7 +13,7 @@ use lib qw( / / / / / / / / / /DADA / /perllib); -use Fcntl qw(O_WRONLY +use Fcntl qw(O_WRONLY O_TRUNC O_CREAT O_CREAT @@ -836,9 +836,7 @@ -Bulk_Start_Email => undef, -Bulk_Start_Num => 0, -Sending_Lists => [],

- -Test_Recipient => undef;

• • -Test_Recipient => undef, @_ );

@@ -899,7 +897,7 @@ - my $first_email = $li->{list_owner_email}; + my $first_email = $self->{list_info}->{list_owner_email}; if($args{'-Bulk_Test'} == 1 && $args{-Test_Recipient}){ $first_email = $args{-Test_Recipient}; } @@ -909,7 +907,7 @@ my $to_pin = make_pin(-Email => $first_email);

• my ($lo_e_name, $lo_e_domain) = split('@', $first_email});
• my ($lo_e_name, $lo_e_domain) = split('@', $first_email);

[/snip]

-- Justin Simoni

: Dada Mail "Write Once - Distribute Everywhere" Email Communication Software

url: http://mojo skazat com ph: 720 436 7701 aolim: leaddadaist