Hello,

I tried doing what you suggested, but it does not compare it.  

I am kinda lost now :((. Can't seem to understand the behaviour. Not sure if 
Apache is the one responsible or Perl. 

Thanks
Sumit

> -----Original Message-----
> From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] 
> Sent: Saturday, November 11, 2006 12:25 AM
> To: Sumit Shah
> Cc: Dondi M. Stroma; modperl@perl.apache.org
> Subject: Re: Mod_perl and HTTP IO issue
> 
> -----BEGIN PGP SIGNED MESSAGE-----
> Hash: SHA1
> 
> On Wed, Nov 08, 2006 at 09:04:36PM -0500, Sumit Shah wrote:
> > Thanks for pointing that out. Really silly of me. 
> > 
> > After correcting it, it seems that $result does not equate 
> to 'INVALID'
> > even though the server returned INVALID. I can see that if I output 
> > the value as:
> > 
> > $r->send_http_header('text/plain');
> > print "This is the value for result------:$result\n";
> > 
> > 
> > Does the socket NOT return a string? 
> > 
> > #READ THE RESPONSE BODY
> >     while (defined($content = <SOCK>)) {
>                                   ^^^^^^^
> 
> This will read up to line separator...
> 
> >             $result = $result . $content;
> >     }      
> > 
> >     if($result eq 'INVALID'){
> >             #do something...
> >     }
> 
> So, if your line separator is, let me guess, "\n", $result 
> might contain now "INVALID\n". You might fare better either 
> chomp()ing $result or comparing ``if($result =~ /^INVALID/)''.
> 
> But I am guessing wildly.
> 
> Regards
> - -- tomás
> -----BEGIN PGP SIGNATURE-----
> Version: GnuPG v1.4.1 (GNU/Linux)
> 
> iD8DBQFFVV7BBcgs9XrR2kYRAtAlAJ49JXpXVdgtSdngoG0qbGG2swt9IwCaA1g5
> oLxD7Sy1hYiXF0I7bE2SEbM=
> =/A4S
> -----END PGP SIGNATURE-----
> 
> 

Reply via email to