Changeset 6707


Ignore:
Timestamp:
07/26/10 11:21:44 (10 years ago)
Author:
ronosman
Message:

use tranfer error messages in progress list. various bug fixes.

Location:
extensions/pLoader/trunk
Files:
13 edited

Legend:

Unmodified
Added
Removed
  • extensions/pLoader/trunk/locale/fr_FR/pLoader.po

    r6094 r6707  
    721721msgid "Square" 
    722722msgstr "Carrée" 
     723 
     724msgid "cancelled" 
     725msgstr "annulé" 
     726 
     727msgid "sending files" 
     728msgstr "envoi de fichiers" 
     729 
     730msgid "checking files" 
     731msgstr "validation de fichiers" 
     732 
     733msgid "files checked" 
     734msgstr "fichiers validés" 
     735 
     736msgid "transfered" 
     737msgstr "transféré" 
     738 
     739msgid "updating" 
     740msgstr "mise à jour" 
     741 
     742msgid "updating files" 
     743msgstr "mise à jour de fichiers" 
     744 
     745msgid "files updated" 
     746msgstr "fichiers mis à jour" 
     747 
     748msgid "updating properties" 
     749msgstr "mise à jour de propriétés" 
     750 
     751msgid "properties updated" 
     752msgstr "propriétés mises à jour" 
     753 
     754msgid "prepared, waiting for transfer" 
     755msgstr "préparée, transfert en attente" 
     756 
     757msgid "preparing web size" 
     758msgstr "préparation taille web" 
     759 
     760msgid "web size prepared" 
     761msgstr "taille web préparée" 
     762 
     763msgid "preparing high" 
     764msgstr "préparation haute définition" 
     765 
     766msgid "high prepared" 
     767msgstr "haute définition préparée" 
     768 
     769msgid "start sending" 
     770msgstr "Début d'envoi" 
     771 
     772msgid "sending" 
     773msgstr "envoie" 
  • extensions/pLoader/trunk/src/Uploader/GUI/App.pm

    r6538 r6707  
    7373 
    7474my @app_properties = qw/ 
     75    localized_msg 
    7576    version 
    7677    frame 
     
    140141    batch_end_event 
    141142    image_progress_event 
     143    image_done_event 
    142144/; 
    143145 
     
    469471        $self->current_language 
    470472    ); 
     473 
    471474    $locale->AddCatalogLookupPathPrefix( 
    472475        File::Spec->catfile($self->root_dir, $self->locale_dir) 
     
    582585        ] 
    583586    ); 
     587 
     588 
     589    $self->localized_msg( 
     590        { 
     591             map { $_ => gettext($_) } ( 
     592                 'cancelled', 
     593                 'sending files', 
     594                 'checking files', 
     595                 'files checked', 
     596                 'transfered', 
     597                 'updating', 
     598                 'updating files', 
     599                 'files updated', 
     600                 'updating properties', 
     601                 'properties updated', 
     602                 'prepared, waiting for transfer', 
     603                 'preparing web size', 
     604                 'web size prepared', 
     605                 'preparing high', 
     606                 'high prepared', 
     607                 'start sending', 
     608                 'sending', 
     609                  
     610             ) 
     611        } 
     612    ); 
     613 
     614    print Dumper $self->localized_msg; 
    584615 
    585616} 
     
    727758            batch_end_event => $resize_batch_end_event, 
    728759            event_handler   => $self, 
     760            localized_msg   => $self->localized_msg, 
    729761        }) 
    730762    ); 
     
    817849} 
    818850 
     851 
     852sub on_image_done { 
     853    my ( $self, $image ) = @_; 
     854 
     855    Wx::PostEvent( 
     856        $self->frame, 
     857        Wx::PlThreadEvent->new( 
     858            -1, 
     859            $self->image_done_event, 
     860            $image 
     861        ) 
     862    ); 
     863} 
    819864 
    820865sub init_images { 
     
    11081153                use_offline    => $self->use_offline, 
    11091154                version        => $self->version, 
     1155                localized_msg  => $self->localized_msg, 
    11101156            } 
    11111157        ) 
     
    12291275            event_handler   => $self, 
    12301276            batch_end_event => $transfer_batch_end_event, 
     1277            localized_msg   => $self->localized_msg, 
    12311278        }) 
    12321279    ); 
    12331280 
    12341281    $self->image_progress_event( 
     1282        Wx::NewEventType 
     1283    ); 
     1284 
     1285    $self->image_done_event( 
    12351286        Wx::NewEventType 
    12361287    ); 
     
    12891340            my ( $handler, $event ) = @_; 
    12901341            my $data = $event->GetData; 
    1291             $handler->on_image_progress($data); 
     1342            $handler->on_image_done($data); 
    12921343        }  
    12931344    ); 
  • extensions/pLoader/trunk/src/Uploader/GUI/Frame.pm

    r6538 r6707  
    484484                        ) 
    485485                    ); 
    486                     wxTheApp->layout_clean(1); 
    487486                }, 
    488487            }, 
     
    10621061            my $data = $event->GetData; 
    10631062            $handler->upload_progressdlg->batch_end($data); 
     1063            wxTheApp->images->remove_processed; 
     1064            $handler->refresh_image_context; 
     1065        }  
     1066    ); 
     1067 
     1068    Wx::Event::EVT_COMMAND( 
     1069        $self, 
     1070        -1, 
     1071        wxTheApp->image_done_event, 
     1072        sub { 
     1073            my ( $handler, $event ) = @_; 
     1074            my $data = $event->GetData; 
     1075printf("image_done_event %s\n", Dumper $data); 
     1076            if($data->{preferences}{remove_uploaded_from_selection}){ 
     1077                my $gr = $data->{global_rank}; 
     1078                if(defined $gr){ 
     1079                    wxTheApp->images->set_to_be_removed($gr) if $data->{transfer_successful}; 
     1080                } 
     1081            } 
    10641082        }  
    10651083    ); 
     
    11241142 
    11251143    $self->images->remove_selection; 
    1126     $self->imageviewer->Refresh;     
    1127  
    1128     if (!$self->imageviewer->GetItemCount){ 
     1144    $self->refresh_image_context; 
     1145} 
     1146 
     1147sub refresh_image_context { 
     1148    my ( $self ) = @_; 
     1149 
     1150    $self->imageviewer->Refresh; 
     1151 
     1152    if ($self->imageviewer->is_empty){ 
    11291153        $self->image_preview_dlg->image( 
    11301154            0 
  • extensions/pLoader/trunk/src/Uploader/GUI/wxChoiceFilteredPanel.pm

    r5542 r6707  
    459459    my( $self, $event ) = @_; 
    460460 
    461     $self->init_choices_list( 
     461    $self->refresh_choices_list( 
    462462        $self->choices->() 
    463463    ); 
  • extensions/pLoader/trunk/src/Uploader/GUI/wxImageListCtrl.pm

    r6426 r6707  
    543543 
    544544 
    545  
     545sub is_empty { 
     546    my ( $self ) = @_; 
     547 
     548    !$self->GetItemCount; 
     549} 
    5465501; 
    547551 
  • extensions/pLoader/trunk/src/Uploader/Images.pm

    r6538 r6707  
    3131    author 
    3232    type 
     33    global_rank 
     34    global_rank_indx 
    3335/; 
    3436 
     
    3739/; 
    3840 
     41my @tmp_properties = qw/ 
     42    to_be_removed_grank 
     43/; 
     44 
     45 
    3946__PACKAGE__->mk_accessors(@cbk_properties); 
    4047__PACKAGE__->mk_accessors(@storable_properties); 
    4148__PACKAGE__->mk_accessors(@app_properties); 
    42  
    43 my $_global_rank = -1; 
     49__PACKAGE__->mk_accessors(@tmp_properties); 
     50 
    4451 
    4552sub Init { 
     
    4956    $self->ordered_image_ids([]) if !defined $self->ordered_image_ids; 
    5057    $self->selection([]) if !defined $self->selection; 
     58    $self->global_rank(-1) if !defined $self->global_rank; 
     59    $self->global_rank_indx({}) if !defined $self->global_rank_indx; 
     60    $self->to_be_removed_grank([]) if !defined $self->to_be_removed_grank; 
    5161} 
    5262 
     
    90100    $self->ordered_image_ids->[$i] = $image_id ; 
    91101 
     102    $self->global_rank( 
     103        1+$self->global_rank 
     104    ); 
     105 
     106    $self->global_rank_indx->{ 
     107        $self->global_rank 
     108    } = $i; 
    92109 
    93110    my $image = $self->_images->{ 
     
    104121                site_tags         => [], 
    105122                site_high_file    => $file->{ANSIPathName}, 
    106                 global_rank       => ++$_global_rank, 
     123                global_rank       => $self->global_rank, 
    107124            } 
    108125        ); 
     
    176193    my ( $self, $indx ) = @_; 
    177194     
     195    return unless defined $indx; 
    178196    my $id = $self->ordered_image_ids->[$indx]; 
    179197 
     
    222240 
    223241 
     242sub remove_processed { 
     243    my ( $self ) = @_; 
     244     
     245    return if ( $self->is_empty ); 
     246    return if (! defined $self->to_be_removed_grank ); 
     247 
     248    my $to_remove_indx = []; 
     249    # check if the global rank correspond 
     250    # the image may have changed 
     251    foreach(@{$self->to_be_removed_grank}) { 
     252        my $indx = $self->global_rank_indx->{$_}; 
     253        my $img; 
     254        if(defined $indx){ 
     255            $img = $self->get_image($indx); 
     256        } 
     257        if(defined $img){ 
     258            push @$to_remove_indx, $indx if 
     259                $img->global_rank == $_; 
     260        } 
     261    }  
     262 
     263    $self->_remove_selection($to_remove_indx); 
     264    # clear image selection 
     265    $self->to_be_removed_grank([]); 
     266} 
     267 
     268 
    224269sub _remove_selection { 
    225270    my ( $self, $list ) = @_; 
     271    printf("_remove_selection %s\n", Dumper $list); 
    226272    # the list is sorted, ascendant 
    227273    # we reverse it to have 
     
    238284} 
    239285 
     286 
     287# postpone actual removal. 
     288sub set_to_be_removed { 
     289    my ( $self, $global_rank ) = @_; 
     290 
     291    push @{$self->to_be_removed_grank}, $global_rank; 
     292} 
     293 
     294 
    240295sub delete_image { 
    241296    my ( $self, $indx ) = @_; 
     
    245300    # have to check if that id is used more than once 
    246301    my $count = grep { $id eq $_} @{$self->ordered_image_ids}; 
     302 
     303    # global rank is unique 
     304    delete $self->global_rank_indx->{ 
     305        $self->_images->{$id}->global_rank 
     306    }; 
    247307 
    248308    delete $self->_images->{$id} unless $count > 1; 
     
    517577 
    518578 
     579# when the progress list is cleared 
    519580sub reset_add_rank { 
    520581    my ( $self ) = @_; 
  • extensions/pLoader/trunk/src/Uploader/Object.pm

    r6426 r6707  
    3131    version 
    3232    storable_file 
     33    localized_msg 
    3334/); 
    3435 
  • extensions/pLoader/trunk/src/Uploader/PWG/WebServices.pm

    r6426 r6707  
    1919# +-----------------------------------------------------------------------+ 
    2020package Uploader::PWG::WebServices; 
    21   
     21use threads; 
     22use threads::shared; 
     23 
    2224use strict; 
    2325use warnings; 
     
    238240        );     
    239241    } 
    240      
     242 
    241243    return ( $result->is_success, $result->status_line ); 
    242244} 
     
    514516    $self->log_image_progress( 
    515517        $image, 
    516         sprintf("sending %s", $image->{file_type_code}), 
     518        sprintf( 
     519            "%s : %s", 
     520            $self->localized_msg->{"start sending"}, 
     521            $image->{file_type_code} 
     522        ), 
    517523        0, 
    518524    ); 
     
    553559        $self->log_image_progress( 
    554560            $image, 
    555             sprintf("sending %s", $image->{file_type_code}), 
     561            sprintf( 
     562                "%s : %s", 
     563                $self->localized_msg->{"sending"}, 
     564                $image->{file_type_code} 
     565            ), 
    556566            100*($chunk_pos/$content_length), 
    557567        ); 
     
    604614 
    605615} 
     616 
    606617 
    607618sub add_image { 
  • extensions/pLoader/trunk/src/Uploader/ResizeManager.pm

    r6522 r6707  
    1515 
    1616    Uploader::ResizeWorker->new({ 
    17         thumb_dir    => $self->thumb_dir, 
    18         wx_thumb_dir => $self->wx_thumb_dir, 
    19         resized_dir  => $self->resized_dir, 
    20         preferences  => $self->preferences, 
    21         write_type   => 'jpg', 
     17        thumb_dir     => $self->thumb_dir, 
     18        wx_thumb_dir  => $self->wx_thumb_dir, 
     19        resized_dir   => $self->resized_dir, 
     20        preferences   => $self->preferences, 
     21        write_type    => 'jpg', 
     22        localized_msg => $self->localized_msg, 
    2223    }); 
    2324} 
  • extensions/pLoader/trunk/src/Uploader/ResizeWorker.pm

    r6538 r6707  
    3737    $self->log_image_progress( 
    3838        $image, 
    39         "cancelled", 
     39        $self->localized_msg->{"cancelled"}, 
    4040        0, 
    4141    ); 
     
    8080    my ( $self, $image ) = @_; 
    8181 
    82     $image->{status}   = "prepared, waiting for transfer"; 
     82    $image->{status}   = $self->localized_msg->{"prepared, waiting for transfer"}; 
    8383    $image->{progress} = 25; 
    8484 
     
    114114    ); 
    115115 
    116     Wx::PostEvent($self->event_handler, $thread_event); 
     116    eval { 
     117        Wx::PostEvent($self->event_handler, $thread_event); 
     118    } 
     119 
    117120} 
    118121 
     
    123126    $self->log_image_progress( 
    124127        $image, 
    125         "creating web size", 
     128        $self->localized_msg->{"preparing web size"}, 
    126129        5, 
    127130    ); 
     
    140143    $self->log_image_progress( 
    141144        $image, 
    142         "web size created", 
     145        $self->localized_msg->{"web size prepared"}, 
    143146        10, 
    144147    ); 
     
    338341    $self->log_image_progress( 
    339342        $image, 
    340         "preparing high", 
     343        $self->localized_msg->{"preparing high"}, 
    341344        15, 
    342345    ); 
     
    447450    $self->log_image_progress( 
    448451        $image, 
    449         "high prepared", 
     452        $self->localized_msg->{"high prepared"}, 
    450453        25, 
    451454    ); 
  • extensions/pLoader/trunk/src/Uploader/TransferManager.pm

    r6525 r6707  
    66use base qw/Uploader::ThreadManager/; 
    77use Uploader::TransferWorker; 
    8 use vars qw/$AUTOLOAD/; 
    98__PACKAGE__->mk_accessors(qw/ 
    109    pwg 
     
    1817 
    1918    Uploader::TransferWorker->new({ 
    20         pwg => $self->pwg, 
     19        pwg           => $self->pwg, 
     20        localized_msg => $self->localized_msg, 
    2121    }); 
    2222 
     
    2727    my ( $self ) = @_; 
    2828 
    29     !scalar @{$self->destination_category}; 
     29    defined $self->destination_category ? 
     30        !scalar @{$self->destination_category} : 
     31        1; 
    3032} 
    3133 
  • extensions/pLoader/trunk/src/Uploader/TransferWorker.pm

    r6538 r6707  
    3434    return unless $image->{image_id}; 
    3535 
    36     $self->log_image_progress( 
    37         $image, 
    38         "cancelled", 
    39         0, 
    40     ); 
     36    ( $image->{status}, $image->{progress} ) = ($self->localized_msg->{"cancelled"}, 0); 
     37    $self->post_image_progress_event($image); 
    4138} 
    4239 
     
    4946    ); 
    5047 
    51  
    5248    $self->progress_event( 
    5349        $progress_event 
     
    5753        $transfer_done_event 
    5854    ); 
    59  
     55     
    6056 
    6157    if(!$self->exists_image($image)){ 
     
    6662    } 
    6763 
     64    $self->post_image_done_event($image); 
    6865} 
    6966 
     
    8178    my ( $self, $image ) = @_; 
    8279 
    83     $self->log_image_progress($image, "sending files", 0); 
     80    ( $image->{status}, $image->{progress} ) = ($self->localized_msg->{"sending files"}, 0); 
     81    $self->post_image_progress_event($image); 
     82 
    8483    $self->add_image_files($image); 
    8584    $self->add_image($image); 
    86     $self->log_image_progress($image, "transfered", 100); 
    87  
    88 } 
    89  
    90  
    91 sub log_image_progress { 
    92     my ( $self, $image, $status, $value ) = @_; 
    93  
    94     $image->{status}   = $status; 
    95     $image->{progress} = $value; 
     85 
    9686    $self->post_image_progress_event($image); 
    9787} 
     
    110100 
    111101 
    112     $self->log_image_progress($image, "check files", 0); 
     102    ( $image->{status}, $image->{progress} ) = ($self->localized_msg->{"checking files"}, 0); 
     103    $self->post_image_progress_event($image); 
     104 
    113105    my @file_types = ('site_resized_file', 'site_thumb_file'); 
    114106    push @file_types, 'site_high_file' if $image->{upload_high}; 
     
    118110    }@file_types; 
    119111 
    120     $self->log_image_progress($image, "files checked", 100); 
     112    ( $image->{status}, $image->{progress} ) = ($self->localized_msg->{"files checked"}, 100); 
     113    $self->post_image_progress_event($image); 
    121114} 
    122115 
     
    157150    my ( $self, $image ) = @_; 
    158151 
    159     $self->pwg->add_image($image); 
     152    my ( $is_success, $status_line ) = $self->pwg->add_image($image); 
     153     
     154    $image->{transfer_successful} = $is_success; 
     155    $image->{status} = $is_success ? $self->localized_msg->{"transfered"} : $status_line ; 
    160156} 
    161157 
     
    164160    my ( $self, $image ) = @_; 
    165161 
    166     $self->log_image_progress($image, "updating", 0); 
     162     
     163    ( $image->{status}, $image->{progress} ) = ($self->localized_msg->{"updating"}, 0); 
     164    $self->post_image_progress_event($image); 
    167165 
    168166    $self->update_image_files($image); 
     167    $self->post_image_progress_event($image); 
     168 
    169169    $self->update_image_properties($image); 
    170  
    171     $self->log_image_progress($image, "updated", 100); 
     170    $self->post_image_progress_event($image); 
    172171} 
    173172 
     
    177176 
    178177    if($image->{preferences}{reupload_action_files}){ 
    179         $self->log_image_progress($image, "updating files", 0); 
     178        ( $image->{status}, $image->{progress} ) = ($self->localized_msg->{"updating files"}, 0); 
     179        $self->post_image_progress_event($image); 
     180 
    180181        $self->init_image_files_checksums($image); 
    181182        $self->update_image_modified_files($image); 
    182         $self->log_image_progress($image, "files updated", 100); 
    183183    } 
    184184} 
     
    188188    my ( $self, $image ) = @_; 
    189189 
    190     $self->pwg->update_image_modified_files($image); 
     190    my ( $is_success, $status_line ) = $self->pwg->update_image_modified_files($image); 
     191    $image->{transfer_successful} = $is_success; 
     192    $image->{status} = $is_success ? $self->localized_msg->{"files updated"} : $status_line ; 
    191193} 
    192194 
     
    195197    my ( $self, $image ) = @_; 
    196198 
    197     $self->log_image_progress($image, "updating properties", 0); 
    198     $self->pwg->update_image_properties($image); 
    199     $self->log_image_progress($image, "properties updated", 100); 
     199    ( $image->{status}, $image->{progress} ) = ($self->localized_msg->{"updating properties"}, 0); 
     200    $self->post_image_progress_event($image); 
     201 
     202    my ( $is_success, $status_line ) = $self->pwg->update_image_properties($image); 
     203 
     204    $image->{transfer_successful} = $is_success; 
     205    $image->{status} = $is_success ? $self->localized_msg->{"properties updated"} : $status_line ; 
     206} 
     207 
     208 
     209sub post_image_done_event { 
     210    my ( $self, $image ) = @_; 
     211 
     212    $image->{progress} = 100; 
     213 
     214    $self->post_image_event( 
     215        $self->done_event, 
     216        $image 
     217    ); 
    200218} 
    201219 
     
    219237        shared_clone($image) 
    220238    ); 
    221     Wx::PostEvent($self->event_handler, $thread_event); 
     239 
     240    eval { 
     241        Wx::PostEvent($self->event_handler, $thread_event); 
     242    } 
    222243} 
    223244 
Note: See TracChangeset for help on using the changeset viewer.