- Timestamp:
- 2001-03-27T09:43:01+12:00 (23 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/plugins/ImagePlug.pm
r2207 r2226 152 152 153 153 if ($result =~ m/([0-9]+)x([0-9]+)=>([0-9]+)x([0-9]+)/) { 154 $doc_obj->add_metadata ($section, "Image Height", $1);155 $doc_obj->add_metadata ($section, "Image Width", $2);156 $doc_obj->add_metadata ($section, "Thumb Height", $3);157 $doc_obj->add_metadata ($section, "Thumb Width", $4);154 $doc_obj->add_metadata ($section, "ImageWidth", $1); 155 $doc_obj->add_metadata ($section, "ImageHeight", $2); 156 $doc_obj->add_metadata ($section, "ThumbWidth", $3); 157 $doc_obj->add_metadata ($section, "ThumbHeight", $4); 158 158 } 159 159 … … 186 186 187 187 #if there's a leading directory name, eat it... 188 $file =~ s/^ [^\/\\]*[\/\\]//;188 $file =~ s/^.*[\/\\]//; 189 189 190 190 $doc_obj->add_metadata ($section, "ImageType", $type); … … 230 230 return undef; 231 231 } 232 print STDERR "ImagePlug : called on\"$filename\"\n"232 print STDERR "ImagePlug processing \"$filename\"\n" 233 233 if $self->{'verbosity'} > 1; 234 234 … … 248 248 249 249 #create an empty text string so we don't break downstream plugins 250 my $text = " ";250 my $text = "Dummy text to sidestep display bug."; 251 251 252 252 # include any metadata passed in from previous plugins … … 256 256 257 257 # do plugin specific processing of doc_obj 258 return undef unless defined ($self->process (\$text, $pluginfo, $base_dir, $file, $metadata, $doc_obj)); 258 return undef unless defined ($self->process (\$text, $pluginfo, $base_dir, 259 $file, $metadata, $doc_obj)); 259 260 260 261 # do any automatic metadata extraction … … 263 264 # add an OID 264 265 $doc_obj->set_OID(); 265 266 # $doc_obj->add_text($section, "<pre>\n$text\n</pre>"); 266 $doc_obj->add_text($section, $text); 267 267 268 268 # process the document
Note:
See TracChangeset
for help on using the changeset viewer.