Changeset 4785 for trunk/gsdl/perllib/plugins/PSPlug.pm

Timestamp:

2003-06-24T14:30:33+12:00 (21 years ago)

Author:

mdewsnip

Message:

Commented out print_usage functions - plugins should now call $self->print_txt_usage() to display their usage text. Updates to the options of a plugin should be made in the $options and $arguments data structures at the top of the plugin.

File:

• trunk/gsdl/perllib/plugins/PSPlug.pm (modified) (2 diffs)

trunk/gsdl/perllib/plugins/PSPlug.pm

@@ -77 +77 @@
              "allow_extra_options")) {
     print STDERR "\nIncorrect options passed to HTMLPlug, check your collect.cfg configuration file\n";
-    &print_usage();
+    $self->print_txt_usage();
     die "\n";
     }
@@ -84 +84 @@
 }
 
-sub print_usage {
-    print STDERR "\n  usage: plugin PSPlug [options]\n\n";
-    print STDERR "  options:\n";
-    print STDERR "   -extract_date               Extract date from PS header\n";
-    print STDERR "   -extract_pages              Extract pages from PS header\n";
-    print STDERR "   -extract_title              Extract title from PS header\n";
-    print STDERR "\n\nNote! This is a \"poor man's\" ps to text converter. If you are serious, consider\n";
-    print STDERR "using the PRESCRIPT package, which is available for download at\n   http://www.nzdl.org/html/software.html\n\n";
-}
+#  sub print_usage {
+#      print STDERR "\n  usage: plugin PSPlug [options]\n\n";
+#      print STDERR "  options:\n";
+#      print STDERR "   -extract_date               Extract date from PS header\n";
+#      print STDERR "   -extract_pages              Extract pages from PS header\n";
+#      print STDERR "   -extract_title              Extract title from PS header\n";
+#      print STDERR "\n\nNote! This is a \"poor man's\" ps to text converter. If you are serious, consider\n";
+#      print STDERR "using the PRESCRIPT package, which is available for download at\n   http://www.nzdl.org/html/software.html\n\n";
+#  }
 
 sub get_default_block_exp {