CGI args parser

diff --git a/ldap-server/cgi_args.pl b/ldap-server/cgi_args.pl
new file mode 100644 (file)
index 0000000..7e228b1
--- /dev/null
+++ b/ldap-server/cgi_args.pl
@@ -0,0 +1,17 @@
+
+do 'ldap-server-lib.pl';
+
+sub cgi_args
+{
+my ($cgi) = @_;
+if ($cgi eq 'edit_browser.cgi') {
+       # Defaults to top of tree
+       return '';
+       }
+elsif ($cgi eq 'edit_sfile.cgi' || $cgi eq 'view_sfile.cgi') {
+       # First schema file, if possible
+       my @files = &list_schema_files();
+       return @files ? 'file='.&urlize($files[0]->{'file'}) : 'none';
+       }
+return undef;
+}

diff --git a/ldap-server/edit_ldif.cgi b/ldap-server/edit_ldif.cgi
index 927a6ca..2191d12 100755 (executable)
--- a/ldap-server/edit_ldif.cgi
+++ b/ldap-server/edit_ldif.cgi
@@ -5,7 +5,6 @@ require './ldap-server-lib.pl';
 &local_ldap_server() == 1 || &error($text{'slapd_elocal'});
 $access{'slapd'} || &error($text{'slapd_ecannot'});
 &ui_print_header(undef, $text{'slapd_title'}, "", "slapd");
-&ReadParse();
 $conf = &get_ldif_config();
 @tds = ( "width=30%" );
 

diff --git a/ldap-server/edit_schema.cgi b/ldap-server/edit_schema.cgi
index f6f6a82..fdf4464 100644 (file)
--- a/ldap-server/edit_schema.cgi
+++ b/ldap-server/edit_schema.cgi
@@ -5,7 +5,6 @@ require './ldap-server-lib.pl';
 &local_ldap_server() == 1 || &error($text{'slapd_elocal'});
 $access{'schema'} || &error($text{'schema_ecannot'});
 &ui_print_header(undef, $text{'schema_title'}, "", "schema");
-&ReadParse();
 
 # Get included schemas
 if (&get_config_type() == 1) {

diff --git a/ldap-server/edit_slapd.cgi b/ldap-server/edit_slapd.cgi
index 8b2ae17..4477035 100644 (file)
--- a/ldap-server/edit_slapd.cgi
+++ b/ldap-server/edit_slapd.cgi
@@ -5,7 +5,6 @@ require './ldap-server-lib.pl';
 &local_ldap_server() == 1 || &error($text{'slapd_elocal'});
 $access{'slapd'} || &error($text{'slapd_ecannot'});
 &ui_print_header(undef, $text{'slapd_title'}, "", "slapd");
-&ReadParse();
 $conf = &get_config();
 @tds = ( "width=30%" );