Re: Stuck on a POE::Wheel::SocketFactory

2005-09-13 Thread David Landgren
t;. The data comes out of a file. I hardcoded it here to simplify matters and got mixed up. Thanks, David -Original Message- From: David Landgren [mailto:[EMAIL PROTECTED] Sent: Monday, September 12, 2005 10:25 AM To: poe@perl.org Subject: Stuck on a POE::Wheel::SocketFactory Hel

Re: Stuck on a POE::Wheel::SocketFactory

2005-09-12 Thread Rocco Caputo
On Sep 12, 2005, at 11:25, David Landgren wrote: for my $t( @$task ) { POE::Wheel::SocketFactory->new( RemoteAddress => $t->{host}, RemotePort => $t->{port}, SocketProtocol => $t->{proto}, SuccessEvent => 'succeed'

Re: Stuck on a POE::Wheel::SocketFactory

2005-09-12 Thread Apocalypse
#x27;, proto => 'tcp', port => 25 }, { name => 'ns.example.com', proto => 'udp', port => 53 }, ]; sub succeed { print "\nok\n"; print "$_\n" for @_; $poe_kernel->yield( 'shutdown' ); } sub fail { print "\nnok

Re: Stuck on a POE::Wheel::SocketFactory

2005-09-12 Thread David Landgren
David Landgren wrote: [...] I'm wondering whether the return values from should be assigned and ^ POE::Wheel::SocketFactory That might make a bit more sense, sorry. David

Stuck on a POE::Wheel::SocketFactory

2005-09-12 Thread David Landgren
ort => 25 }, { name => 'ns.example.com', proto => 'udp', port => 53 }, ]; sub succeed { print "\nok\n"; print "$_\n" for @_; $poe_kernel->yield( 'shutdown' ); } sub fail { print "\nnok\n"; print &

POE::Wheel::SocketFactory changes all sockets in the same program to non-blocking

2005-05-20 Thread Merijn Broeren
t/perl5/bin/perl5.8 -w use POE; $|=1; my $obj = new MyDebug; POE::Session->create( object_states => [ $obj => [ '_start', 'next', 'reaper', 'output' ]]); POE::Kernel->run; exit(0); # # Now define our class w

Re: Using POE::Wheel::SocketFactory

2004-02-11 Thread Rocco Caputo
On Wed, Feb 11, 2004 at 09:49:13PM -0600, Jay Strauss wrote: > > Ah ha, > > A documentation bug, In perldoc POE::Component::Client::TCP > >Filter > >For example, this changes the line separator to a vertical pipe: > >Filter => [ "POE::Filter::Line", Inpu

Re: Using POE::Wheel::SocketFactory

2004-02-11 Thread Jay Strauss
Ah ha, A documentation bug, In perldoc POE::Component::Client::TCP Filter For example, this changes the line separator to a vertical pipe: Filter => [ "POE::Filter::Line", InputLiteral => "|" ], Should be: Filter => [ "POE::Filter::Line", Liter

Re: Using POE::Wheel::SocketFactory

2004-02-11 Thread Jay Strauss
> On Mon, Feb 09, 2004 at 10:56:25AM -0600, Jay Strauss wrote: > > Hi, > > > > I'd like rewrite some forking code to use POE instead. > > > > I must connect to a server process via a tcp socket. The messages I > > receive, are not terminated, but the individual fields are terminated by an > > ASCI

Re: Using POE::Wheel::SocketFactory

2004-02-10 Thread David Davis
ginal Message --- From: "Jay Strauss" <[EMAIL PROTECTED]> To: "David Davis" <[EMAIL PROTECTED]> Sent: Tue, 10 Feb 2004 20:40:12 -0600 Subject: Re: Using POE::Wheel::SocketFactory > There isn't one, I had to dissect the vendor supplied java client to > d

Re: Using POE::Wheel::SocketFactory

2004-02-10 Thread Jay Strauss
Hi, I get what you say, with > You could build a list > of fields until @record == $record_length{$record[0]} or something. At > that point, you call whatever you've written to handle the record. I'm working on getting something to process the list in a timely fashion, but only once all the ele

Re: Using POE::Wheel::SocketFactory

2004-02-09 Thread Rocco Caputo
my ($result,$byte); > > while (sysread($s, $byte, 1) == 1) { > last if ord($byte) == 0; > $result .= $byte; > } > return $result; > } > > > But I'm trying to figure out how I'd do it with POE::Wheel::SocketFactory + > POE::W

Using POE::Wheel::SocketFactory

2004-02-09 Thread Jay Strauss
kerid tickType price/); } sub receive { my $self = shift; my $s = $self->socket; my ($result,$byte); while (sysread($s, $byte, 1) == 1) { last if ord($byte) == 0; $result .= $byte; } return $result; } But I'm trying to figure out how I&#

Re: Wheel::SocketFactory

2001-12-02 Thread Jason Boxman
Forgive my cluelessness. On Sunday 02 December 2001 07:32 pm, you wrote: > Is there some kind of event for a connection that goes away gracefully > without saying "goodbye" in some fashion (TCP)? It turns out that task lies with my Wheel::ReadWrite and I'm not checking for write errors there be

Wheel::SocketFactory

2001-12-02 Thread Jason Boxman
ngs up gracefully on my end. Or did I miss something? I have: sub _start { my( $kernel, $self ) = @_[ KERNEL, OBJECT ]; $kernel->sig('INT', 'signals'); $kernel->alias_set('httpserver'); $self->{wheel} = POE::Wheel::SocketFactory->n

Re: POE::Wheel::SocketFactory bind to multiple IP?

2001-07-20 Thread Chris Fedde
On Fri, 20 Jul 2001 09:11:33 -0400 Rocco Caputo wrote: +-- | On Thu, Jul 19, 2001 at 10:40:25PM -0600, Chris Fedde wrote: | > Is it posible for the POE::Wheel::SocketFactory to bind to more than one I P | > address or does that reqire multiple factories? | | It

Re: POE::Wheel::SocketFactory bind to multiple IP?

2001-07-20 Thread Anton Berezin
On Fri, Jul 20, 2001 at 09:11:33AM -0400, Rocco Caputo wrote: > On Thu, Jul 19, 2001 at 10:40:25PM -0600, Chris Fedde wrote: > > Is it posible for the POE::Wheel::SocketFactory to bind to more than one IP > > address or does that reqire multiple factories? > > It can if th

Re: POE::Wheel::SocketFactory bind to multiple IP?

2001-07-20 Thread Rocco Caputo
On Thu, Jul 19, 2001 at 10:40:25PM -0600, Chris Fedde wrote: > Is it posible for the POE::Wheel::SocketFactory to bind to more than one IP > address or does that reqire multiple factories? It can if they're all on the same subnet. A BindAddress of 10.1.2.0 should bind a socket

POE::Wheel::SocketFactory bind to multiple IP?

2001-07-20 Thread Chris Fedde
Is it posible for the POE::Wheel::SocketFactory to bind to more than one IP address or does that reqire multiple factories? thanks -- Chris Fedde