Starting to look sane

mnunberg · Feb 25, 2011 · b31a731 · b31a731
1 parent 7751dd5
commit b31a731
Show file tree

Hide file tree

Showing 12 changed files with 364 additions and 1,214 deletions.
diff --git a/CertOnTheFly.pm b/CertOnTheFly.pm
diff --git a/Proxy/server.crt b/Proxy/server.crt
diff --git a/Proxy/server.key b/Proxy/server.key
diff --git a/asnone.pl b/asnone.pl
diff --git a/https_proxy.kpf b/https_proxy.kpf
@@ -4,7 +4,7 @@
 <preference-set idref="4425a3a0-3de1-124d-9dc7-9650754a1518">
   <boolean id="import_live">1</boolean>
   <string id="mappedPaths"></string>
-  <string id="perlExtraPaths">/Users/mordy/perl5/lib/perl5:/Users/mordy/perl5/lib/perl5/darwin-2level:/Users/mordy/src/pl/https_proxy/lib</string>
+  <string id="perlExtraPaths">/Users/mordy/perl5/lib/perl5:/Users/mordy/perl5/lib/perl5/darwin-2level:/Users/mordy/src/pl/https_proxy/lib:/Users/mordy/src/pl/crypt-openssl-cloner/lib:/Users/mordy/src/pl/pcch/mypcch/lib</string>
   <boolean id="perl_lintOption_includeCurrentDirForLinter">1</boolean>
 </preference-set>
 </project>
diff --git a/launch.pl b/launch.pl
@@ -6,12 +6,17 @@ BEGIN
     use File::Basename qw(dirname);
     my $src = abs_path(dirname(__FILE__));
     unshift @INC, $src, $src . "/lib";
+    unshift @INC, "/Users/mordy/src/pl/crypt-openssl-cloner/lib";
     unshift @INC, "/Users/mordy/src/pl/pcch/mypcch/lib";
     unshift @INC, getcwd();
     #$ENV{POCO_HTTP_DEBUG} = 1;
     unlink(glob("$src/cert_cache/*"));
 }
 use POE;
 use POE::Component::Server::MITMHTTPProxy;
-POE::Component::Server::MITMHTTPProxy->spawn();
+POE::Component::Server::MITMHTTPProxy->spawn(
+    ProxyBindAddress => '0.0.0.0',
+    ProxyBindPort => 54321,
+    CertificatePath => "cert_cache",
+);
 POE::Kernel->run();