On Mon, Aug 28, 2000 at 10:58:52PM +0200, Gisle Aas wrote:
> Ian Duplisse <[EMAIL PROTECTED]> writes:
>
> > I am uploading files via HTTP::Request::Common::POST, but would like
> > to modify the data that is actually uploaded to the webserver "on the fly",
> > such as with a search and replace. How can that be done, short of making a
> > copy of my original file that has the desired changes?
>
> Something like this should work:
>
> #!/usr/bin/perl
>
> use HTTP::Request::Common qw(POST);
>
> my $file = `cat stuff.txt`; # slurp a file
> $file =~ s/foo/bar/g; # modify it
>
> my $req = POST('http://foo.com/',
> Content_Type => 'form-data',
> Content => [ foo => $bar,
> file => [ undef, "stuff.txt",
> Content_type => "text/plain",
> Content => $file,
> ],
> ],
> );
>
> print $req->as_string;
>
> use LWP::UserAgent;
> $ua = LWP::UserAgent->new;
> my $res = $ua->request($req);
> __END__
This is incompatible with the file upload used by my Netscape 4.7
on Win98 browser, as understood by HTTP::File::upload. I.e. the above
script will result in empty upload results with HTTP::File::upload at the
receiving end, bcause the file content is transmitted in a different way.
Does LWP also support that other method (multi-part/form-data, every form
attribute being a separate part)?
> Regards,
> Gisle
--
Reinier Post [EMAIL PROTECTED]
