Beefy Boxes and Bandwidth Generously Provided by pair Networks
Problems? Is your data what you think it is?

Re^2: Debugging LWP

by vladb (Vicar)
on Feb 11, 2006 at 18:18 UTC ( #529582=note: print w/replies, xml ) Need Help??

in reply to Re: Debugging LWP
in thread Debugging LWP

If the host is telling you they have registered a hit from your script, are they able to send you any log of that request? I would specifically look for any error messages etc.

Try sending a POST request via the system telnet utility to eliminate your script entirely.

"We've all heard that a million monkeys banging on a million typewriters will eventually reproduce
the entire works of Shakespeare. Now, thanks to the Internet, we know this is not true."

Robert Wilensky, University of California

Replies are listed 'Best First'.
Re^3: Debugging LWP
by tdrought (Novice) on Feb 11, 2006 at 19:22 UTC
    I am running this script from a hosted Windows server. So I cannot run a telnet. But, what I just did was bring the script to my local machine which has IIS and ActivePerl installed. Install the SSLeay and tested the script locally. It ran just fine which tells me it's the hosters server which is causing the problem. I am going to call them now. Hopefully, they can get to the bottom of this, else I will have to switch servers.
      (Longshot guess, but I've been burned by this in the past too)

      Have you tried connecting via a numeric IP address ? Windows has been known to have some nasty resolver caching behaviors which, if not registry hacked properly, can cause it to hang onto a bad DNS resolution for a long if your target has changed its IP address recently, the Windows resolver cache may not have flushed yet.

      Here's the story wrt WinXP...

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://529582]
[Eily]: you could tie a variable into not having the same value each time, if you like to make people who try to debug your code facepalm
[Corion]: perl -wle 'package o; use overload q("") => sub {warn "str"; ""}, bool => sub{warn "bool"; 1}; package main; my $o={}; bless $o => o; print "Yay" if ($o && !length($o))'
[Corion]: But people writing such code should document the objects they construct and why it makes sense for an object to be invisible as string while being true in a boolean context
[hippo]: That's equal parts clever and horrendous.
[Eily]: the overload version wouldn't return true with "$x" && !length $x though, I guess
[hippo]: The more I look at this code, the more $x is a plain old scalar and the more this condition will never be true. I'm calling it a bug at this point.
[hippo]: Thanks for your input which has soothed my sanity (a little)
[Corion]: Eily: Sure - if you force both things into stringy things, then you break that magic. But that would also mean that you changed the expression, as now $x = 0.00 will be true instead of false as it were before
[Corion]: Ah no, at least in my feeble experiments that doesn't change the meaning
[Corion]: We sell sanity in small packages ;)

How do I use this? | Other CB clients
Other Users?
Others contemplating the Monastery: (8)
As of 2017-07-27 13:42 GMT
Find Nodes?
    Voting Booth?
    I came, I saw, I ...

    Results (413 votes). Check out past polls.