Changeset 29261
- Timestamp:
- 2014-09-10T10:32:54+12:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gs2-extensions/parallel-building/trunk/src/perllib/plugins/CPULoadTextPlugin.pm
r29161 r29261 234 234 my $blowfish = new Crypt::Blowfish_PP($key); 235 235 my $encrypted_text = $blowfish->encrypt($value); 236 $doc_obj->add_utf8_metadata($doc_obj->get_top_section(), sprintf("Encrypted%05d", $counter), $encrypted_text); 236 if ($self->{'cpu_load'} ne 'high') 237 { 238 $doc_obj->add_utf8_metadata($doc_obj->get_top_section(), sprintf("Encrypted%05d", $counter), $encrypted_text); 239 } 237 240 # - shorten text by chunk length bytes, and repeat until text is exhausted 238 241 $text = substr($text, $multiplier * $key_length); … … 282 285 push(@lexicon, $word . ':' . $raw_lexicon->{$word}); 283 286 } 284 $doc_obj->add_metadata($doc_obj->get_top_section(), "Lexicon", join(', ', @lexicon)); 287 if ($self->{'cpu_load'} ne 'high') 288 { 289 $doc_obj->add_metadata($doc_obj->get_top_section(), "Lexicon", join(', ', @lexicon)); 290 } 285 291 $self->_debugPrint('Generated lexicon'); 286 292 } … … 335 341 push(@word_lengths, $word_length . ':' . $raw_word_lengths->{$word_length}); 336 342 } 337 $doc_obj->add_metadata($doc_obj->get_top_section(), "WordLengths", join(', ', @word_lengths)); 343 if ($self->{'cpu_load'} ne 'high') 344 { 345 $doc_obj->add_metadata($doc_obj->get_top_section(), "WordLengths", join(', ', @word_lengths)); 346 } 338 347 $self->_debugPrint('Generated word length information'); 339 348 }
Note:
See TracChangeset
for help on using the changeset viewer.