searchdoc

   1 #!/usr/bin/perl -w
   2 use strict;
   3 ###APPNAME:     searchdoc
   4 ###APPAUTHOR:   xiaoranzzz
   5 ###APPDATE:     Wed Sep 19 13:07:08 2007
   6 ###APPVER:      0.1
   7 ###APPDESC:
   8 ###APPUSAGE:
   9 ###APPEXAMPLE:
  10 ###APPOPTION:
  11 $ARGV[0]="--help" unless(@ARGV);
  12 exit 0 unless(system("plhelp",$0,(@ARGV)));
  13
  14 my @docdirs=qw(/usr/share/doc /usr/local/share/doc /share/doc);
  15
  16