Changeset 3285 for extras/pLoader/trunk/src/Uploader/GUI/wxApp.pm
- Timestamp:
- May 15, 2009, 6:23:03 PM (15 years ago)
- File:
-
- 1 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
Note: See TracChangeset
for help on using the changeset viewer.