Thu Nov 30 16:00:18 2006jdrago_999 [...] yahoo.com - Ticket created
Thu Nov 30 16:00:48 2006jdrago_999 [...] yahoo.com - Status changed from 'new' to 'open'
Thu Nov 30 16:01:58 2006jdrago_999 [...] yahoo.com - Correspondence added10 min
This is a test.
#!perl -w
use strict;
use HTTP::Proxy;
use HTTP::Proxy::HeaderFilter::simple;
use Data::Dumper;
# initialisation
my $proxy = HTTP::Proxy->new( port => 3128 );
# convert italics to bold
our $count = 0;
$proxy->push_filter(
mime => 'text/html',
request => HTTP::Proxy::HeaderFilter::simple->new(sub{ warn $main::count++ . "\n" })
);
# this is a MainLoop-like method
$proxy->start;
package RequestFilter;
use strict;
use base 'HTTP::Proxy::HeaderFilter';
Sun Feb 24 15:06:59 2008jdrago_999 [...] yahoo.com - Status changed from 'open' to 'resolved'
RT for rt.cpan.org