Changeset 10218 for trunk/gsdl/perllib/plugins/ImagePlug.pm
- Timestamp:
- 2005-07-06T15:27:45+12:00 (19 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/plugins/ImagePlug.pm
r9960 r10218 46 46 'type' => "int", 47 47 'deft' => "100", 48 'range' => "1,", 48 49 'reqd' => "no" }, 49 50 { 'name' => "thumbnailtype", … … 56 57 'type' => "int", 57 58 'deft' => "0", 59 'range' => "1,", 58 60 'reqd' => "no" }, 59 61 { 'name' => "screenviewtype", … … 71 73 'type' => "int", 72 74 'deft' => "100", 75 'range' => "1,", 73 76 'reqd' => "no" } ]; 74 77 … … 82 85 83 86 sub new { 84 my ($class) = @_; 85 my $plugin_name = shift (@_); 86 my $self = new BasPlug ("ImagePlug", @_); 87 $self->{'plugin_type'} = "ImagePlug"; 88 # 14-05-02 To allow for proper inheritance of arguments - John Thompson 89 my $option_list = $self->{'option_list'}; 90 push( @{$option_list}, $options ); 91 92 if (!parsargv::parse(\@_, 93 q^noscaleup^, \$self->{'noscaleup'}, 94 q^converttotype/.*/^, \$self->{'converttotype'}, 95 q^minimumsize/[0-9]*/100^, \$self->{'minimumsize'}, 96 97 q^thumbnailsize/[0-9]*/100^, \$self->{'thumbnailsize'}, 98 q^thumbnailtype/.*/gif^, \$self->{'thumbnailtype'}, 99 q^screenviewsize/[0-9]*/0^, \$self->{'screenviewsize'}, 100 q^screenviewtype/.*/jpg^, \$self->{'screenviewtype'}, 101 "allow_extra_options")) { 102 103 print STDERR "\nImagePlug uses an incorrect option.\n"; 104 print STDERR "Check your collect.cfg configuration file.\n"; 105 $self->print_txt_usage(""); # Use default resource bundle 106 die "\n"; 107 } 87 my ($class) = shift (@_); 88 my ($pluginlist,$inputargs,$hashArgOptLists) = @_; 89 push(@$pluginlist, $class); 90 91 if(defined $arguments){ push(@{$hashArgOptLists->{"ArgList"}},@{$arguments});} 92 if(defined $options) { push(@{$hashArgOptLists->{"OptList"}},$options)}; 93 94 my $self = (defined $hashArgOptLists)? new BasPlug($pluginlist,$inputargs,$hashArgOptLists): new BasPlug($pluginlist,$inputargs); 108 95 109 96 # Check that ImageMagick is installed and available on the path (except for Windows 95/98)
Note:
See TracChangeset
for help on using the changeset viewer.