ldap-server/cgi_args.pl

   1
   2 do 'ldap-server-lib.pl';
   3
   4 sub cgi_args
   5 {
   6 my ($cgi) = @_;
   7 if ($cgi eq 'edit_browser.cgi') {
   8         # Defaults to top of tree
   9         return '';
  10         }
  11 elsif ($cgi eq 'edit_sfile.cgi' || $cgi eq 'view_sfile.cgi') {
  12         # First schema file, if possible
  13         my @files = &list_schema_files();
  14         return @files ? 'file='.&urlize($files[0]->{'file'}) : 'none';
  15         }
  16 return undef;
  17 }