Changeset 5638

Timestamp:

2003-10-15T14:53:37+13:00 (21 years ago)

Author:

jrm21

Message:

automatically send output to a pager if not on windows, so you can read the
scroll.

File:

• trunk/gsdl/bin/script/pluginfo.pl (modified) (2 diffs)

trunk/gsdl/bin/script/pluginfo.pl

@@ -100 +100 @@
 
 
-#  sub print_usage {
-#      print STDERR "\n";
-#      print STDERR "pluginfo.pl: Prints information about a plugin.\n\n";
-#      print STDERR " usage: $0 [options] plugin\n\n";
-#      print STDERR " options:\n";
-#      print STDERR "  -collect collection-name  Giving a collection name will make pluginfo.pl\n";
-#      print STDERR "                            look in collect/collection-name/perllib/plugins\n";
-#      print STDERR "                            first. If the plugin is not found there it will\n";
-#      print STDERR "                            look in the general perllib/plugins directory.\n\n";
-#      print STDERR "  -xml                      Produces the information in an xml form, without\n";
-#      print STDERR "                            'pretty' comments but with much more detail.\n\n";
-#      print STDERR "  -language language-code   Language to display plugin options in (eg. 'en_US'\n";
-#      print STDERR "                            specifies American English). Requires translations\n";
-#      print STDERR "                            of the option descriptions to exist in the\n";
-#      print STDERR "                            perllib/strings_language-code.rb file.\n";
-#  }
 
 sub main {
@@ -158 +142 @@
 
     $plugobj->print_txt_usage($language);
-
-#   print STDERR " The default process_exp for $plugin is: ";
-#   print STDERR "\"" . $plugobj->get_default_process_exp() . "\"\n\n";
-
-#   print STDERR " The default block_exp for $plugin is: ";
-#   print STDERR "\"" . $plugobj->get_default_block_exp() . "\"\n\n";
     }
 }
 
 
+# this causes us to automatically send output to a pager, if one is
+# set, AND our output is going to a terminal
+# active state perl on windows doesn't do open(handle, "-|");
+if ($ENV{'GSDLOS'} !~ /windows/ && -t STDOUT) {
+    my $pager = $ENV{"PAGER"};
+    if (! $pager) {$pager="(less || more)"}
+    $pid = open(STDIN, "-|"); # this does a fork... see man perlipc(1)
+    if (!defined $pid) {
+    print STDERR "pluginfo.pl - can't fork: $!";
+    } else {
+    if ($pid != 0) { # parent (ie forking) process. child gets 0
+        exec ($pager);
+    }
+    }
+    open(STDERR,">&STDOUT"); # so it's easier to pipe output
+}
+
+
 &main ();