Changeset 3285
- Timestamp:
- May 15, 2009, 6:23:03 PM (15 years ago)
- Location:
- extras/pLoader/trunk/src/Uploader
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
extras/pLoader/trunk/src/Uploader/GUI/wxApp.pm
r3284 r3285 290 290 site_username 291 291 site_password 292 http_username 293 http_password 292 294 rejects 293 295 imagelist … … 366 368 $self->{site_password} 367 369 ); 370 371 $self->http_username( 372 $self->{http_username} 373 ); 374 $self->http_password( 375 $self->{http_password} 376 ); 377 378 368 379 $self->current_language( 369 380 $self->{current_language}||wxLANGUAGE_ENGLISH … … 448 459 site_username 449 460 site_password 461 http_username 462 http_password 450 463 current_language 451 464 / … … 584 597 site_username => $self->site_username, 585 598 site_password => $self->site_password, 599 http_username => $self->http_username, 600 http_password => $self->http_password, 586 601 branding => $self->branding, 587 602 } … … 934 949 } 935 950 936 sub _readParams2 {937 my( $self, $file ) = @_ ;938 939 940 my $expr_params ;941 eval { $expr_params = read_file( $file ); } ;942 943 my $paramValues = [] ;944 if($expr_params){945 my $expr = '$paramValues = ' ;946 $expr .= "$expr_params ; " ;947 eval $expr ;948 }949 950 return unless 'HASH' eq ref $paramValues ;951 952 $self->SetKeyValues($paramValues);953 }954 951 955 952 -
extras/pLoader/trunk/src/Uploader/PWG.pm
r2661 r3285 35 35 site_username 36 36 site_password 37 http_username 38 http_password 39 branding 37 40 / 38 41 ); -
extras/pLoader/trunk/src/Uploader/PWG/WebServices.pm
r3268 r3285 71 71 ); 72 72 73 73 74 $self->uagent->cookie_jar({}); 74 75 … … 83 84 $self->password( 84 85 $self->{site_password} 86 ); 87 88 89 $self->uagent->default_headers->authorization_basic( 90 $self->{http_username}||$self->username, 91 $self->{http_password}||$self->password 85 92 ); 86 93 … … 125 132 }; 126 133 } 127 134 128 135 $self->login_result( 129 136 $hresult
Note: See TracChangeset
for help on using the changeset viewer.