Changeset 2207

Timestamp:

2001-03-20T15:58:54+12:00 (23 years ago)

Author:

paynter

Message:

Bugfixes: read returns number of files instead of file type, and options
and usage are made to inherit from BasPlug

File:

• trunk/gsdl/perllib/plugins/ImagePlug.pm (modified) (5 diffs)

trunk/gsdl/perllib/plugins/ImagePlug.pm

@@ -34 +34 @@
 use strict;
 
-sub print_general_usage {
+sub print_usage {
     my ($plugin_name) = @_;
 
-    print STDERR "\n  usage: plugin $plugin_name [options]\n\n";
-    print STDERR "   -noscaleup       Don't scale up small images when making thumbnails\n";
-    print STDERR "   -thumbnailtype s Make thumbnails in format 's'\n";
-    print STDERR "   -thumbnailsize n Make thumbnails of size nxn\n";
-    print STDERR "   -convertto s     Convert main inage to (gif|png|jpg)\n";
-    print STDERR "   -minimumsize n   Ignore images smaller than n bytes\n";
-    print STDERR "\n";
+    print STDERR "
+  usage: plugin ImagePlug [options]
+
+   -noscaleup       Don't scale up small images when making thumbnails
+
+   -thumbnailtype s Make thumbnails in format 's'
+
+   -thumbnailsize n Make thumbnails of size nxn
+
+   -convertto s     Convert main inage to (gif|png|jpg)
+
+   -minimumsize n   Ignore images smaller than n bytes
+
+"
 }
 
@@ -50 +57 @@
     my $plugin_name = shift (@_);
     my $self = new BasPlug ("ImagePlug", @_);
-    # general options available to all plugins
 
     if (!parsargv::parse(\@_,
@@ -60 +66 @@
              "allow_extra_options")) {
     
-    print STDERR "\nThe $plugin_name plugin uses an incorrect general option (general options are those\n";
-    print STDERR "available to all plugins). Check your collect.cfg configuration file.\n";
-        &print_general_usage($plugin_name);
+    print STDERR "\nImagePlug uses an incorrect option.\n";
+    print STDERR "Check your collect.cfg configuration file.\n";
+        &print_usage($plugin_name);
     die "\n";
     }
@@ -258 +264 @@
     $doc_obj->set_OID();
 
-#    $doc_obj->add_text($section, "<pre>\n$text\n</pre>");
+    # $doc_obj->add_text($section, "<pre>\n$text\n</pre>");
 
     # process the document
@@ -272 +278 @@
     }
 
-    return $result; # processed the file
+    return 1;
 }