Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things
 
PerlMonks  

schweini's scratchpad

by schweini (Friar)
on Jun 04, 2004 at 18:06 UTC ( #361091=scratchpad: print w/ replies, xml ) Need Help??

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)
Log In?
Username:
Password:

What's my password?
Create A New User
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others pondering the Monastery: (10)
As of 2014-07-14 12:26 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    When choosing user names for websites, I prefer to use:








    Results (259 votes), past polls