From a82108a3de5c49c78d753ac2c7bfbdfe63e00383 Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@luxion>
Date: Wed, 28 Feb 2007 17:26:21 +0000
Subject: aggiunto viaProxy

git-svn-id: svn://luxion/repos/myProxy/trunk@243 fcb26f47-9200-0410-b104-b98ab5b095f3
---
 MyProxy.pl | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)

diff --git a/MyProxy.pl b/MyProxy.pl
index 31cf179..800f152 100755
--- a/MyProxy.pl
+++ b/MyProxy.pl
@@ -8,6 +8,7 @@ use Log::Log4perl;
 use FindBin;
 use YAML;
 use Getopt::Long;
+use LWP::UserAgent;
 
 my $LOGCONF="$FindBin::Bin/log.conf";
 my $PORT=3128;
@@ -217,6 +218,24 @@ sub jumpFilter {
 }
 }
 
+{
+  my $viaLogger=Log::Log4perl->get_logger('MyProxy.filter.viaProxy');
+  my $ua=LWP::UserAgent->new(
+  	keep_alive=>2,
+	parse_head=>0,
+	);
+  $ua->proxy('http','http://exelion:3128/');
+  $ua->requests_redirectable([]);
+sub viaProxy {
+  my ($self,$headers,$request)=@_;
+  my $uri=$request->uri;
+  $viaLogger->debug("Forwarding $uri");
+  return if $uri !~ m|^http://(.*?)bloglines.com/|;
+  my $response=$ua->request($request);
+  $self->proxy->response($response);
+}
+}
+
 {
   my $socks=0;
   GetOptions('socks|s!' => \$socks,
@@ -241,6 +260,7 @@ sub jumpFilter {
   my $proxy=HTTP::Proxy->new(port=>$PORT,engine=>'ScoreBoard');
   $proxy->push_filter(request => HTTP::Proxy::HeaderFilter::simple->new(\&doFilter));
   $proxy->push_filter(request => HTTP::Proxy::HeaderFilter::simple->new(\&jumpFilter));
+  #$proxy->push_filter(request => HTTP::Proxy::HeaderFilter::simple->new(\&viaProxy));
   $logger->info("Running on port ".$proxy->port());
   $proxy->start();
 }
-- 
cgit v1.2.3