Changeset 7362
- Timestamp:
- 2004-05-21T11:03:12+12:00 (20 years ago)
- Location:
- trunk/gsdl/perllib/plugins
- Files:
-
- 14 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/plugins/BasPlug.pm
r7105 r7362 400 400 # GMLPlug) should normally implement their own version of read() 401 401 # 402 # Return number of files processed, undef if can't process 402 # Return number of files processed, undef if can't recognise, -1 if can't 403 # process 403 404 # Note that $base_dir might be "" and that $file might 404 405 # include directories … … 420 421 if ($self->{'block_exp'} ne "" && $filename =~ /$self->{'block_exp'}/) { 421 422 $self->{'num_blocked'} ++; 422 return 0; 423 return 0; # blocked 423 424 } 424 425 if ($filename !~ /$self->{'process_exp'}/ || !-f $filename) { 425 return undef; 426 return undef; # can't recognise 426 427 } 427 428 $file =~ s/^[\/\\]+//; # $file often begins with / so we'll tidy it up … … 456 457 $self->{'num_not_processed'} ++; 457 458 458 return 0; 459 return 0; # what should we return here?? error but don't want to pass it on 459 460 } 460 461 … … 464 465 465 466 # do plugin specific processing of doc_obj 466 return undefunless defined ($self->process (\$text, $pluginfo, $base_dir, $file, $metadata, $doc_obj, $gli));467 return -1 unless defined ($self->process (\$text, $pluginfo, $base_dir, $file, $metadata, $doc_obj, $gli)); 467 468 468 469 # do any automatic metadata extraction -
trunk/gsdl/perllib/plugins/ConvertToPlug.pm
r7353 r7362 314 314 $self->extra_metadata ($doc_obj, $doc_obj->get_top_section(), $metadata); 315 315 # do plugin specific processing of doc_obj 316 return undefunless defined ($self->process (\$text, $pluginfo, $base_dir, $file, $metadata, $doc_obj));316 return -1 unless defined ($self->process (\$text, $pluginfo, $base_dir, $file, $metadata, $doc_obj)); 317 317 # do any automatic metadata extraction 318 318 $self->auto_extract_metadata ($doc_obj); -
trunk/gsdl/perllib/plugins/ConvertToRogPlug.pm
r7353 r7362 411 411 $self->extra_metadata ($doc_obj, $doc_obj->get_top_section(), $metadata); 412 412 # do plugin specific processing of doc_obj 413 return undefunless defined ($self->process (\$text, $pluginfo, $base_dir, $file, $metadata, $doc_obj));413 return -1 unless defined ($self->process (\$text, $pluginfo, $base_dir, $file, $metadata, $doc_obj)); 414 414 # do any automatic metadata extraction 415 415 $self->auto_extract_metadata ($doc_obj); -
trunk/gsdl/perllib/plugins/FOXPlug.pm
r6408 r7362 87 87 if (!open (FOXBASEIN, $fullname)) { 88 88 print STDERR "FOXPlug::read - couldn't read $fullname\n"; 89 return undef;89 return -1; # error in processing 90 90 } 91 91 … … 101 101 print STDERR "FOXPlug::read - eof while reading database header"; 102 102 close (FOXBASEIN); 103 return undef;103 return -1; 104 104 } 105 105 … … 117 117 } else { 118 118 print STDERR "FOXPlug:read $fullname doesn't seem to be a Foxbase file\n"; 119 return undef;119 return -1; 120 120 } 121 121 … … 147 147 print STDERR "FOXPlug::read - couldn't read $dbtfullname\n"; 148 148 close (FOXBASEIN); 149 return undef;149 return -1; 150 150 } 151 151 -
trunk/gsdl/perllib/plugins/GMLPlug.pm
r6408 r7362 94 94 if (!open (INFILE, $filename)) { 95 95 print $outhandle "GMLPlug::read - couldn't read $filename\n"; 96 return 0;96 return -1; 97 97 } 98 98 -
trunk/gsdl/perllib/plugins/ImagePlug.pm
r7353 r7362 368 368 { 369 369 print "ImagePlug: couldn't process \"$filename\"\n"; 370 return 0;370 return -1; # error during processing 371 371 } 372 372 … … 380 380 381 381 # do plugin specific processing of doc_obj 382 return undefunless defined ($self->process (\$text, $pluginfo, $base_dir,382 return -1 unless defined ($self->process (\$text, $pluginfo, $base_dir, 383 383 $file, $metadata, $doc_obj)); 384 384 -
trunk/gsdl/perllib/plugins/OAIPlug.pm
r7353 r7362 148 148 149 149 # do plugin specific processing of doc_obj 150 return undefunless defined ($self->process (\$text, $pluginfo, $base_dir, $file, $metadata, $doc_obj));150 return -1 unless defined ($self->process (\$text, $pluginfo, $base_dir, $file, $metadata, $doc_obj)); 151 151 152 152 # do any automatic metadata extraction -
trunk/gsdl/perllib/plugins/PagedImgPlug.pm
r7352 r7362 519 519 520 520 # do plugin specific processing of doc_obj 521 return undefunless defined ($self->process (\$text, $pluginfo, $base_dir,521 return -1 unless defined ($self->process (\$text, $pluginfo, $base_dir, 522 522 $file, $metadata, $doc_obj)); 523 523 -
trunk/gsdl/perllib/plugins/RecPlug.pm
r7353 r7362 228 228 if (!opendir (DIR, $dirname)) { 229 229 print $outhandle "RecPlug: WARNING - couldn't read directory $dirname\n"; 230 return undef;230 return -1; # error in processing 231 231 } 232 232 @dir = readdir (DIR); -
trunk/gsdl/perllib/plugins/SplitPlug.pm
r6408 r7362 154 154 $self->{'num_not_processed'} ++; 155 155 156 return 0; 156 return 0; # not processed but no point in passing it on 157 157 } 158 158 -
trunk/gsdl/perllib/plugins/TEXTPlug.pm
r7353 r7362 95 95 96 96 my $cursection = $doc_obj->get_top_section(); 97 97 return undef; # an error 98 98 # get title metadata 99 99 # (don't need to get title if it has been passed -
trunk/gsdl/perllib/plugins/UnknownPlug.pm
r7353 r7362 189 189 { 190 190 print "UnknownPlug: couldn't process \"$filename\"\n"; 191 return 0;191 return -1; # error during processing 192 192 } 193 193 … … 200 200 201 201 # do plugin specific processing of doc_obj 202 return undefunless defined ($self->process (\$text, $pluginfo, $base_dir,202 return -1 unless defined ($self->process (\$text, $pluginfo, $base_dir, 203 203 $file, $metadata, $doc_obj)); 204 204 -
trunk/gsdl/perllib/plugins/W3ImgPlug.pm
r7353 r7362 411 411 } 412 412 413 # return number of files processed, undef if can't process 413 # return number of files processed, undef if can't recognise, -1 if 414 # cant process 414 415 # Note that $base_dir might be "" and that $file might 415 416 # include directories … … 419 420 # forward normal read (runs HTMLPlug if index_pages T) 420 421 my $ok = $self->SUPER::read($pluginfo, $base_dir, $file, $metadata, $processor, $maxdocs); 421 if ( ! $ok ) { return $ok } 422 if ( ! $ok ) { return $ok } # what is this returning?? 422 423 423 424 my $outhandle = $self->{'outhandle'}; -
trunk/gsdl/perllib/plugins/XMLPlug.pm
r7244 r7362 117 117 # reset ourself for the next document 118 118 $self->{'section_level'}=0; 119 return undef;119 return -1; # error during processing 120 120 } 121 121
Note:
See TracChangeset
for help on using the changeset viewer.