>
> Thank you for your prompt response. I've tried the fix that you suggest
> and also looked through the documentation and neither have helped. Perhaps
> you might have another idea why the calls are
> hanging?
>
If you say it works under mod_perl, there is no reason why it should not
work under Embperl. The only differences is escaping.
Did put the [- $optRawInput = 1 -] in a separte Block before your actual
code ?
Gerald
> Thanks again,
> Kent
>
>
>
> On Mon, 19 Mar 2001, Gerald Richter wrote:
>
> > You need to set optRawInput, see the FAQs about escaping and unescaping,
> > e.g.
> >
> > [- $optRawInput = 1 -]
> >
> >
> >
> > Gerald
> >
> > -------------------------------------------------------------
> > Gerald Richter ecos electronic communication services gmbh
> > Internetconnect * Webserver/-design/-datenbanken * Consulting
> >
> > Post: Tulpenstrasse 5 D-55276 Dienheim b. Mainz
> > E-Mail: [EMAIL PROTECTED] Voice: +49 6133 925131
> > WWW: http://www.ecos.de Fax: +49 6133 925152
> > -------------------------------------------------------------
> >
> > ----- Original Message -----
> > From: <[EMAIL PROTECTED]>
> > To: <[EMAIL PROTECTED]>
> > Sent: Monday, March 19, 2001 6:13 AM
> > Subject: Hanging on IO::Socket call
> >
> >
> > > Hi,
> > >
> > > I am running into a problem where an embperl page with the code below
> > > hangs during the while loop reading data from a remote socket. This
> > > function works fine as a standard perl script called cgi under
mod_perl.
> > > Has anyone seen this behavior or know of a workaround or fix?
> > >
> > > Using:
> > > Embperl v1.3.1
> > > mod_perl v1.25
> > > IO::Socket v1.7
> > > Apache v1.3.17
> > >
> > > Thanks in advance,
> > > Kent
> > >
> > > use IO::Socket;
> > >
> > > sub MakeRequest {
> > > my ($msg) = @_;
> > > my $socket;
> > > my $data;
> > > $socket = IO::Socket::INET->new( PeerAddr => "x.x.x.x",
> > > PeerPort => "yyyy",
> > > Proto => "tcp",
> > > Type => SOCK_STREAM )
> > > or die "Couldn't connect : $@\n";
> > > $msg = $XML_HEAD . $msg;
> > > print $socket $msg;
> > > $msg = "";
> > > while ( ! ( ($data = <$socket>) =~ "</EOF>" ) ) {
> > > $msg .= $data;
> > > }
> > > $msg .= $data;
> > > close( $socket );
> > > return $msg;
> > > }
> > >
> > >
> > > ---------------------------------------------------------------------
> > > To unsubscribe, e-mail: [EMAIL PROTECTED]
> > > For additional commands, e-mail: [EMAIL PROTECTED]
> > >
> > >
> > >
> >
> >
> > ---------------------------------------------------------------------
> > To unsubscribe, e-mail: [EMAIL PROTECTED]
> > For additional commands, e-mail: [EMAIL PROTECTED]
> >
>
>
> ---------------------------------------------------------------------
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
>
>
>
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
