| … | |
… | |
| 355 | |
355 | |
| 356 | return \@outstack; |
356 | return \@outstack; |
| 357 | } |
357 | } |
| 358 | |
358 | |
| 359 | sub upload { |
359 | sub upload { |
| 360 | my ($login, $password, $path, $rev, $mapdata) = @_; |
360 | my ($login, $password, $srcrep, $path, $rev, $mapdata) = @_; |
|
|
361 | require LWP::UserAgent; |
|
|
362 | my $ua = LWP::UserAgent->new ( |
|
|
363 | agent => "gcrossedit", |
|
|
364 | keep_alive => 1, |
|
|
365 | env_proxy => 1, |
|
|
366 | timeout => 30, |
|
|
367 | ); |
| 361 | require HTTP::Request::Common; |
368 | require HTTP::Request::Common; |
| 362 | |
369 | |
| 363 | my $res = $ua->post ( |
370 | my $res = $ua->post ( |
| 364 | $ENV{CFPLUS_UPLOAD}, |
371 | $ENV{CFPLUS_UPLOAD}, |
| 365 | Content_Type => 'multipart/form-data', |
372 | Content_Type => 'multipart/form-data', |
| 366 | Content => [ |
373 | Content => [ |
| 367 | path => $path, |
374 | path => $path, |
| 368 | mapdir => $::MAPDIR, |
375 | mapdir => $srcrep, |
| 369 | map => $mapdata, |
376 | map => $mapdata, |
| 370 | revision => $rev, |
377 | revision => $rev, |
| 371 | cf_login => $login, #ENV{CFPLUS_LOGIN}, |
378 | cf_login => $login, #ENV{CFPLUS_LOGIN}, |
| 372 | cf_password => $password, #ENV{CFPLUS_PASSWORD}, |
379 | cf_password => $password, #ENV{CFPLUS_PASSWORD}, |
| 373 | comment => "", |
380 | comment => "", |
