Changeset 22518 for main/trunk/greenstone2/bin/script/pluginfo.pl

Timestamp:

2010-07-28T15:06:55+12:00 (14 years ago)

Author:

kjdon

Message:

copied the pager code out of printusage and added it to print_single_{plugin,classifier} so that pluginfo and classinfo go to less

File:

• main/trunk/greenstone2/bin/script/pluginfo.pl (modified) (1 diff)

main/trunk/greenstone2/bin/script/pluginfo.pl

@@ -249 +249 @@
     }
     else {
+
+    # 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)"}
+        my $pid = open(STDIN, "-|"); # this does a fork... see man perlipc(1)
+        if (!defined $pid) {
+        gsprintf(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
+    }
+
     gsprintf(STDERR, "\n{pluginfo.passing_options}\n\n");
     gsprintf(STDERR, "{pluginfo.option_types}:\n\n");