in reply to Re^6: Zip file from WWW::Mechanize
in thread Zip file from WWW::Mechanize
That confirms that the server is giving you garbage. It's saying that the zip file is really an UTF-8 HTML document.
'content-type' => 'text/html; charset=utf-8', 'content-disposition' => 'attachment;filename=auto_20090318_0610.zip',
The solution is to fix the response received from the web server.
BEGIN { my $old_make_request = WWW::Mechanize->can('_make_request'); no warnings 'redefine'; *WWW::Mechanize::_make_request = sub { my $response = $old_make_request->(@_); my $type = $response->header('Content-Type'); my $dispo = $response->header('Content-Disposition'); $response->header('Content-Type' => 'application/zip') if defined($dispo) && $dispo =~ m{\.zip$} && defined($type) && $type =~ m{^text/}; return $response; }; }
Untested.
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^8: Zip file from WWW::Mechanize
by jck000 (Novice) on Mar 23, 2009 at 23:33 UTC |