Changeset 4720

Timestamp:

01/16/08 23:46:43 (5 years ago)

Author:

tokuhirom

Message:

lang/perl/moxy: oops. bug fixed.

Location:

lang/perl/Moxy/trunk

Files:

• config.yaml (modified) (1 diff)
• lib/Moxy/Plugin/Application.pm (modified) (4 diffs)

lang/perl/Moxy/trunk/config.yaml

@@ -3 +3 @@
   application:
     host: localhost
-    port: 9999
+    port: 10000
   storage:
     module: DBM_File

lang/perl/Moxy/trunk/lib/Moxy/Plugin/Application.pm

@@ -68 +68 @@
 
 sub _ua {
+    my ($class, $proxy_url) = @_;
+
     my $ua = LWP::UserAgent->new(
         agent         => "Moxy/$Moxy::VERSION",
@@ -73 +75 @@
         max_redirects => 0,
     );
-    $ua->proxy(['http'] => 'http://localhost:9999/');
+    $ua->proxy(['http'] => $proxy_url);
     $ua;
 }
@@ -85 +87 @@
         $req->header('Host' => URI->new($url)->host);
         $req->header('Proxy-Authorization' => "Basic @{[ encode_base64 $auth ]}");
-        my $ua = $class->_ua;
+        my $ua = $class->_ua($base);
         my $res = $ua->request($req);
         if ($res->code == 302) {
@@ -193 +195 @@
 This is web proxy mode plugin.
 
+=head1 DISCLAIMER
+
+THIS MODULE IS STILL ALPHA QUALITY
+
 =head1 AUTHOR