Changeset 10579 for trunk/gsdl/perllib/plugins/BasPlug.pm
- Timestamp:
- 2005-08-29T10:38:07+12:00 (19 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/plugins/BasPlug.pm
r10478 r10579 381 381 382 382 my $self = {}; 383 $self->{'outhandle'} = STDERR; 384 $self->{'option_list'} = $hashArgOptLists->{"OptList"}; 385 $self->{"info_only"} = 0; 386 387 # Check if gsdlinfo is in the argument list or not - if it is, don't parse 388 # the args, just return the object. 389 foreach my $strArg (@{$args}) 390 { 391 if($strArg eq "-gsdlinfo") 392 { 393 $self->{"info_only"} = 1; 394 return bless $self, $class; 395 } 396 } 397 383 398 if(!parse2::parse($args,$hashArgOptLists->{"ArgList"},$self)) 384 399 { … … 390 405 391 406 407 delete $self->{"info_only"}; 392 408 # else parsing was successful. 393 409 394 410 $self->{'plugin_type'} = $plugin_name; 395 $self->{'outhandle'} = STDERR;411 #$self->{'outhandle'} = STDERR; 396 412 $self->{'textcat'} = new textcat(); 397 413 $self->{'num_processed'} = 0; … … 402 418 $self->{'cover_image'} = 0 if ($self->{'no_cover_image'}); 403 419 $self->{'file_blocks'} = {}; 404 $self->{'option_list'} = $hashArgOptLists->{"OptList"};420 #$self->{'option_list'} = $hashArgOptLists->{"OptList"}; 405 421 406 422 my $associate_ext = $self->{'associate_ext'};
Note:
See TracChangeset
for help on using the changeset viewer.