Thanks guys, 

Marty


 --- Tom Schindl <[EMAIL PROTECTED]> wrote: 
> Martin Moss wrote:
> > 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
> 
>  


        
        
                
___________________________________________________________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

Reply via email to