Gangabass has asked for the wisdom of the Perl Monks concerning the following question:
Hi, Monks
I have some weird problem while uploading file with Cyrillic name via WWW::Mechanize. The file is uploaded correctly but the name is broken (I see only ?????? on the target site).
The code is simple:
use WWW::Mechanize; use Encode qw(from_to); my $config = { login => "login", password => "pass", source_folder => "$Bin/source_folder", }; my $mech = WWW::Mechanize->new( autocheck => 1 ); $mech->agent_alias("Windows IE 6"); $mech->get("http://www.antiplagiat.ru/Cabinet/Cabinet.aspx?folderId=68 +9935"); authorize($mech); $mech->submit_form( form_number => 1, fields => {}, button => 'ctl00$ctl00$Body$MainWorkSpacePlaceHolder$FolderControl_StdFolder_0$D +ocumentsGrid$btnAddItem', ); find( \&wanted, $config->{source_folder} ); sub wanted { return unless -f; say $config->{source_folder} . "/" . $_; #from_to($_, "CP1251", "UTF8"); doesn't work too :-( my $mech = $mech->clone(); $mech->submit_form( form_number => 1, fields => { 'ctl00$ctl00$Body$MainWorkSpacePlaceHolder$fuDocumentUploa +d' => $config->{source_folder} . "/" . $_, }, button => 'ctl00$ctl00$Body$MainWorkSpacePlaceHolder$btnCommit +Upload', ); }
If I encode file name from CP1251 to UTF8 than upload doesn't work... Please help me to find solution.
Update:
Here is solution I use (File upload w/WWW::Mechanize)
my $filename = $_; from_to( $filename, "CP1251", "UTF8" ); my $mech = $mech->clone(); my $form = $mech->form_number(1); $mech->field( 'ctl00$ctl00$Body$MainWorkSpacePlaceHolder$fuDocumen +tUpload', $config->{source_folder} . "/" . $_ ); $form->find_input( 'ctl00$ctl00$Body$MainWorkSpacePlaceHolder$fuDocumentUpload')- +>filename($filename); $mech->submit_form( form_number => 1, button => 'ctl00$ctl00$Body$MainWorkSpacePlaceHolder$btnCommit +Upload', );
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: WWW::Mechanize uploaded file name problem
by Anonymous Monk on Jul 06, 2012 at 16:52 UTC | |
by Gangabass (Vicar) on Jul 06, 2012 at 21:24 UTC | |
Re: WWW::Mechanize uploaded file name problem
by Anonymous Monk on Jul 06, 2012 at 20:26 UTC | |
Re: WWW::Mechanize uploaded file name problem
by zwon (Abbot) on Jul 07, 2012 at 10:30 UTC |
Back to
Seekers of Perl Wisdom