Beefy Boxes and Bandwidth Generously Provided by pair Networks
P is for Practical
 
PerlMonks  

Re: Quickrep

by stefan k (Curate)
on Sep 10, 2001 at 19:02 UTC ( #111480=note: print w/ replies, xml ) Need Help??


in reply to Quickrep

First of all: as always your work is appreciated.
Then some remarks... I installed XML::Simple from CPAN and can't connect to perlmonks.org because I'm living behind a very strict firewall. Then you'll find that the error message should be rearranged:
from:

die "Error logging in: $result->code() $result->message()"
to
die "Error logging in:\nCode:", $result->code(), "Reason: ", $result- +>message(), "\n"
Now I'll give it -say- 5 minutes to find out how to get through the FW using a proxy... hang on :)

Update1: Somehow the env_proxy() method (as described in man lwpcook doesn't work, so I use this (add after the cookie-jar line)

if (defined $ENV{'http_proxy'}) { print "Using HTTP Proxy: $ENV{'http_proxy'}\n"; $agent->proxy(http => $ENV{'http_proxy'}); }
Now I'll take a short look what goes wrong with nodes having a negative reputation (yes, I got one of those, you should have one, too: just for testing purposes *grin*)

Update2 Just replace the %3u in the printf statements at the end of the script by %3d so we can display negative numbers...

Update3: Sorry, a '\' has sneak into the first fix: right before the 'R' of 'Reason'. Removed it...

Regards... Stefan
you begin bashing the string with a +42 regexp of confusion


Comment on Re: Quickrep
Select or Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://111480]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others scrutinizing the Monastery: (8)
As of 2014-10-24 23:16 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    For retirement, I am banking on:










    Results (138 votes), past polls