help/help-lib.pl

   1 # help-lib.pl
   2
   3 do '../web-lib.pl';
   4 &init_config();
   5 do '../ui-lib.pl';
   6
   7 sub list_modules
   8 {
   9 local ($m, @rv);
  10 opendir(DIR, "..");
  11 foreach $m (readdir(DIR)) {
  12         local %minfo;
  13         if ((%minfo = &get_module_info($m)) && &check_os_support(\%minfo) &&
  14             -d "../$m/help") {
  15                 push(@rv, [ $m, \%minfo ]);
  16                 }
  17         }
  18 closedir(DIR);
  19 return @rv;
  20 }
  21
  22 1;
  23
  24