All pastes #412667 Raw Edit

Stuff

public text v1 · immutable
#412667 ·published 2007-03-27 21:20 UTC
rendered paste body
Index: GeoDB/Modify/Tag.pm
===================================================================
--- GeoDB/Modify/Tag.pm (revision 542)
+++ GeoDB/Modify/Tag.pm (working copy)
@@ -133,7 +133,8 @@
        maybe_load('LWP::UserAgent',
                   'The LWP::UserAgent perl module is required for uploading/downloading of tags');
        my $ua = new LWP::UserAgent;
-       my $req = HTTP::Request->new(POST => "http://$server/");
+       my $req = HTTP::Request->new(POST => "http://$server/",
+                                    env_proxy => 1);
        $req->content_type('application/x-www-form-urlencoded');

        # create the content string
@@ -159,7 +160,7 @@
        # publish to the geoqo server
        maybe_load('LWP::UserAgent',
                   'The LWP::UserAgent perl module is required for uploading/downloading of tags');
-       my $ua = new LWP::UserAgent;
+       my $ua = new LWP::UserAgent(env_proxy => 1);
        my $req = HTTP::Request->new(POST => "http://$server/");
        $req->content_type('application/x-www-form-urlencoded');