rbac/rbac_help.cgi

   1 #!/usr/local/bin/perl
   2 # Show an RBAC help page
   3
   4 require './rbac-lib.pl';
   5 &ReadParse();
   6
   7 $hf = $in{'help'};
   8 &is_under_directory($config{'auth_help_dir'}, $hf) ||
   9   &is_under_directory($config{'prof_help_dir'}, $hf) ||
  10   &error($text{'help_epath'});
  11
  12 &PrintHeader();
  13 open(HELP, $hf);
  14 while(<HELP>) {
  15         print $_;
  16         }
  17 close(HELP);
  18