sub subscribe1
{
my %h = @_;
my $pid = open3(\*WRITE, \*READ, \*ERROR, "$MAILMAN_BIN_PATH/add_m
+embers -r - $h{list}") or die("ejecutando add_members: $!");
my $email = $h{email};
die("empty email!") if not $email;
print "[sub1ing $email]<br>";
print WRITE "$email\n";
#upto here all's fine.....but complete garbage
# ends up in col 'email' in the DB...
$dbh->do("INSERT INTO subscribed SET email = '$h{email}', list = ?
+", undef, $h{list});
$dbh->do("DELETE FROM pending WHERE email = ? AND list = ? AND typ
+e = 'subscribe'", undef, $h{email}, $h{list});
close WRITE;
my @ret = <READ>;
return $ret[0];
}
__END__
*** Observe that the following should be 24 (!) lines! **
+------+--------------------------+
| id | email |
+------+--------------------------+
|o.lo
|2067 | zxrolando@open-antz.com
|op@pop.pop
|dd
|as
|
|sd@lkj.lkj
|sd
|lo
|059 | xrolando@open-antz.com
|@pop.pop
|
|
|
|@lkj.lkj
|
|
|51 | rolando@open-antz.com
|op.pop
|
|
|
|kj.lkj
|
+------+--------------------------+
24 rows in set (0.00 sec)