All,
I have an interesting issue. I'm in the process of whitelabeling a website, but part of the process I need to whitepabel is hosted by an outsourced company.
Rather than get the outsource company to change their
html, I would rather download and edit the html from
the outsourced website on the fly.
I was thinking of writing a contentHandler which uses LWP::Useragent etc.. to download from the outsourced website. however I have only limited experience with it. Also, if the page I wish to download is itself a form, how would I go about getting LWP to 'submit' values etc...
I hope you don't use this in production but this should work if I'm not completely mistaken:
------------------------8<------------------------ package Fake::FormRequest;
use LWP::UserAgent(); use Apache::Constants();
my $ua = LWP::UserAgent->new;
sub handler {
my $r = shift;
my $request;if( $r->method_number() == Apache::Constants::M_GET ) {
$request = HTTP::Request->new(GET => 'http://bla.com/my.cgi?'.$r->args,&getHeaderAsArrayRef($r));
} else {
$request = HTTP::Request->new(POST => 'http://bla.com/my.cgi?',&getHeaderAsArrayRef($r),$->content);
}
my $response = $ua->request($request); ## ......... }
sub getHeaderAsArrayRef {
my $r = shift;
my %headers = $r->headers_in();
my @rv; map { push @rv, [ $_, $headers{$_} ] } keys %headers;return [EMAIL PROTECTED]; } ------------------------8<------------------------
Kind Regards
Marty
___________________________________________________________ALL-NEW Yahoo! Messenger - all new features - even more fun! http://uk.messenger.yahoo.com
-- Report problems: http://perl.apache.org/bugs/ Mail list info: http://perl.apache.org/maillist/modperl.html List etiquette: http://perl.apache.org/maillist/email-etiquette.html
