|
|
@@ -0,0 +1,275 @@
|
|
|
+#!/usr/bin/env perl
|
|
|
+# BEGIN COPYRIGHT BLOCK
|
|
|
+# This Program is free software; you can redistribute it and/or modify it under
|
|
|
+# the terms of the GNU General Public License as published by the Free Software
|
|
|
+# Foundation; version 2 of the License.
|
|
|
+#
|
|
|
+# This Program is distributed in the hope that it will be useful, but WITHOUT
|
|
|
+# ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
|
|
|
+# FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details.
|
|
|
+#
|
|
|
+# You should have received a copy of the GNU General Public License along with
|
|
|
+# this Program; if not, write to the Free Software Foundation, Inc., 59 Temple
|
|
|
+# Place, Suite 330, Boston, MA 02111-1307 USA.
|
|
|
+#
|
|
|
+# In addition, as a special exception, Red Hat, Inc. gives You the additional
|
|
|
+# right to link the code of this Program with code not covered under the GNU
|
|
|
+# General Public License ("Non-GPL Code") and to distribute linked combinations
|
|
|
+# including the two, subject to the limitations in this paragraph. Non-GPL Code
|
|
|
+# permitted under this exception must only link to the code of this Program
|
|
|
+# through those well defined interfaces identified in the file named EXCEPTION
|
|
|
+# found in the source code files (the "Approved Interfaces"). The files of
|
|
|
+# Non-GPL Code may instantiate templates or use macros or inline functions from
|
|
|
+# the Approved Interfaces without causing the resulting work to be covered by
|
|
|
+# the GNU General Public License. Only Red Hat, Inc. may make changes or
|
|
|
+# additions to the list of Approved Interfaces. You must obey the GNU General
|
|
|
+# Public License in all respects for all of the Program code and other code used
|
|
|
+# in conjunction with the Program except the Non-GPL Code covered by this
|
|
|
+# exception. If you modify this file, you may extend this exception to your
|
|
|
+# version of the file, but you are not obligated to do so. If you do not wish to
|
|
|
+# provide this exception without modification, you must delete this exception
|
|
|
+# statement from your version and license this file solely under the GPL without
|
|
|
+# exception.
|
|
|
+#
|
|
|
+#
|
|
|
+# Copyright (C) 2005 Red Hat, Inc.
|
|
|
+# All rights reserved.
|
|
|
+# END COPYRIGHT BLOCK
|
|
|
+use IPC::Open2;
|
|
|
+use Symbol;
|
|
|
+use CGI::Util qw(escape);
|
|
|
+use Cwd;
|
|
|
+use File::Basename;
|
|
|
+
|
|
|
+sub usage {
|
|
|
+ my $msg = shift;
|
|
|
+ print "Error: $msg\n";
|
|
|
+ print "Usage: $0 filename.inf\n";
|
|
|
+ exit 1
|
|
|
+}
|
|
|
+
|
|
|
+sub getCgiContentAndLength {
|
|
|
+ my $args = shift;
|
|
|
+ my $content = "";
|
|
|
+ my $firsttime = 1;
|
|
|
+ while (my ($kk, $vv) = each %{$args}) {
|
|
|
+ next if (!$kk || !$vv);
|
|
|
+ if ($firsttime) {
|
|
|
+ $firsttime = 0;
|
|
|
+ } else {
|
|
|
+ $content = $content . "&";
|
|
|
+ }
|
|
|
+ $content = $content . $kk . "=" . escape($vv);
|
|
|
+ }
|
|
|
+ my $length = length($content);
|
|
|
+
|
|
|
+ return ($content, $length);
|
|
|
+}
|
|
|
+
|
|
|
+# fakes out the ds_newinst program into thinking it is getting cgi input
|
|
|
+sub cgiFake {
|
|
|
+ my ($sroot, $verbose, $prog, $args) = @_;
|
|
|
+ # construct content string
|
|
|
+ my ($content, $length) = &getCgiContentAndLength($args);
|
|
|
+
|
|
|
+ # setup CGI environment
|
|
|
+ $ENV{REQUEST_METHOD} = "POST";
|
|
|
+ $ENV{CONTENT_LENGTH} = $length;
|
|
|
+ $ENV{SERVER_NAMES} = 'slapd-' . $args->{servid};
|
|
|
+
|
|
|
+# print "content = $content\n";
|
|
|
+
|
|
|
+ # open the program
|
|
|
+ my $curdir = getcwd();
|
|
|
+ my $dir = dirname($prog);
|
|
|
+ my $exe = basename($prog);
|
|
|
+ chdir $dir;
|
|
|
+ my $input = gensym();
|
|
|
+ my $output = gensym();
|
|
|
+ my $pid = open2($input, $output, "./$exe");
|
|
|
+ sleep(1); # allow prog to init stdin read buffers
|
|
|
+ print $output $content, "\n";
|
|
|
+ close $output;
|
|
|
+
|
|
|
+ if ($?) {
|
|
|
+ print "Warning: $prog returned code $? and $!\n";
|
|
|
+ }
|
|
|
+
|
|
|
+ my $exitCode = 1;
|
|
|
+ my @lines;
|
|
|
+ while (<$input>) {
|
|
|
+ print $_ if ($verbose);
|
|
|
+ push @lines, $_;
|
|
|
+ if (/^NMC_Status:\s*(\d+)/) {
|
|
|
+ $exitCode = $1;
|
|
|
+ last;
|
|
|
+ }
|
|
|
+ }
|
|
|
+ close $input;
|
|
|
+ chdir $curdir;
|
|
|
+
|
|
|
+ if ($exitCode) {
|
|
|
+ print "CGI $prog failed with $exitCode: here is the output:\n";
|
|
|
+ map { print $_ } @lines;
|
|
|
+ }
|
|
|
+
|
|
|
+ if ($exitCode != 0) {
|
|
|
+ print "Error: could not run $prog: $exitCode\n";
|
|
|
+ return $exitCode;
|
|
|
+ }
|
|
|
+
|
|
|
+ return 0;
|
|
|
+}
|
|
|
+
|
|
|
+sub addAndCheck {
|
|
|
+ my $dest = shift;
|
|
|
+ my $dkey = shift;
|
|
|
+ my $source = shift;
|
|
|
+ my $ssec = shift;
|
|
|
+ my $skey = shift;
|
|
|
+
|
|
|
+ if (! $source->{$ssec}->{$skey}) {
|
|
|
+ usage("Missing required parameter $ssec - $skey\n");
|
|
|
+ }
|
|
|
+
|
|
|
+ $dest->{$dkey} = $source->{$ssec}->{$skey};
|
|
|
+}
|
|
|
+
|
|
|
+my $filename = $ARGV[0];
|
|
|
+usage("$filename not found") if (! -f $filename);
|
|
|
+
|
|
|
+my $curSection;
|
|
|
+# each key in the table is a section name
|
|
|
+# the value is a hash ref of the items in that section
|
|
|
+# in that hash ref, each key is the config param name,
|
|
|
+# and the value is the config param value
|
|
|
+my %table = ();
|
|
|
+
|
|
|
+open(IN, $filename);
|
|
|
+while (<IN>) {
|
|
|
+ # e.g. [General]
|
|
|
+ if (/^\[(.*?)\]/) {
|
|
|
+ $curSection = $1;
|
|
|
+ } elsif (/^\s*$/) {
|
|
|
+ next; # skip blank lines
|
|
|
+ } elsif (/^\s*\#/) {
|
|
|
+ next; # skip comment lines
|
|
|
+ } elsif (/^\s*(.*?)\s*=\s*(.*?)\s*$/) {
|
|
|
+ $table{$curSection}->{$1} = $2;
|
|
|
+ }
|
|
|
+}
|
|
|
+close IN;
|
|
|
+
|
|
|
+#printhash (\%table);
|
|
|
+
|
|
|
+# next, construct a hash table with our arguments
|
|
|
+
|
|
|
+my %cgiargs = ();
|
|
|
+my $brand_ds = "fedora-ds";
|
|
|
+
|
|
|
+# the following items are always required
|
|
|
+addAndCheck(\%cgiargs, "sroot", \%table, "General", "ServerRoot");
|
|
|
+addAndCheck(\%cgiargs, "servname", \%table, "General", "FullMachineName");
|
|
|
+addAndCheck(\%cgiargs, "servuser", \%table, "General", "SuiteSpotUserID");
|
|
|
+addAndCheck(\%cgiargs, "servport", \%table, "slapd", "ServerPort");
|
|
|
+addAndCheck(\%cgiargs, "rootdn", \%table, "slapd", "RootDN");
|
|
|
+addAndCheck(\%cgiargs, "rootpw", \%table, "slapd", "RootDNPwd");
|
|
|
+addAndCheck(\%cgiargs, "servid", \%table, "slapd", "ServerIdentifier");
|
|
|
+addAndCheck(\%cgiargs, "suffix", \%table, "slapd", "Suffix");
|
|
|
+
|
|
|
+# the following items are optional
|
|
|
+
|
|
|
+$cgiargs{"lock_dir"} = $table{"slapd"}->{"lock_dir"};
|
|
|
+$cgiargs{"log_dir"} = $table{"slapd"}->{"log_dir"};
|
|
|
+$cgiargs{"run_dir"} = $table{"slapd"}->{"run_dir"};
|
|
|
+$cgiargs{"db_dir"} = $table{"slapd"}->{"db_dir"};
|
|
|
+$cgiargs{"bak_dir"} = $table{"slapd"}->{"bak_dir"};
|
|
|
+$cgiargs{"ldif_dir"} = $table{"slapd"}->{"ldif_dir"};
|
|
|
+$cgiargs{"tmp_dir"} = $table{"slapd"}->{"tmp_dir"};
|
|
|
+$cgiargs{"cert_dir"} = $table{"slapd"}->{"cert_dir"};
|
|
|
+$cgiargs{"localstatedir"} = $table{"slapd"}->{"localstatedir"};
|
|
|
+$cgiargs{"sysconfdir"} = $table{"slapd"}->{"sysconfdir"};
|
|
|
+$cgiargs{"bindir"} = $table{"slapd"}->{"bindir"};
|
|
|
+$cgiargs{"datadir"} = $table{"slapd"}->{"datadir"};
|
|
|
+$cgiargs{"docdir"} = $table{"slapd"}->{"docdir"};
|
|
|
+$cgiargs{"inst_dir"} = $table{"slapd"}->{"inst_dir"};
|
|
|
+$cgiargs{"config_dir"} = $table{"slapd"}->{"config_dir"};
|
|
|
+$cgiargs{"schema_dir"} = $table{"slapd"}->{"schema_dir"};
|
|
|
+$cgiargs{"sasl_path"} = $table{"slapd"}->{"sasl_path"};
|
|
|
+
|
|
|
+# port number for Admin Server - used to configure some web apps
|
|
|
+$cgiargs{adminport} = $table{admin}->{Port};
|
|
|
+
|
|
|
+# If this is set, the new DS instance will be set up for use as
|
|
|
+# a Configuration DS (e.g. o=NetscapeRoot)
|
|
|
+if ($table{slapd}->{SlapdConfigForMC} =~ /yes/i) {
|
|
|
+ $cgiargs{cfg_sspt} = "1";
|
|
|
+}
|
|
|
+# set this to 1 to register this DS with an existing Configuration DS
|
|
|
+# or 0 to create this DS as a new Configuration DS
|
|
|
+$cgiargs{use_existing_config_ds} = $table{slapd}->{UseExistingMC};
|
|
|
+# set this to 1 when creating a new Configuration DS if you do not
|
|
|
+# want to configure the new DS to also serve user data
|
|
|
+$cgiargs{use_existing_user_ds} = $table{slapd}->{UseExistingUG};
|
|
|
+
|
|
|
+# the following items are required to register this new instance with a config DS
|
|
|
+# or to make the new instance a Configuration DS
|
|
|
+if ($cgiargs{cfg_sspt} ||
|
|
|
+ $table{General}->{ConfigDirectoryAdminID} ||
|
|
|
+ $table{General}->{ConfigDirectoryAdminPwd} ||
|
|
|
+ $table{General}->{ConfigDirectoryLdapURL} ||
|
|
|
+ $table{General}->{AdminDomain}) {
|
|
|
+ addAndCheck(\%cgiargs, "cfg_sspt_uid", \%table, "General", "ConfigDirectoryAdminID");
|
|
|
+ addAndCheck(\%cgiargs, "cfg_sspt_uid_pw", \%table, "General", "ConfigDirectoryAdminPwd");
|
|
|
+ addAndCheck(\%cgiargs, "ldap_url", \%table, "General", "ConfigDirectoryLdapURL");
|
|
|
+ addAndCheck(\%cgiargs, "admin_domain", \%table, "General", "AdminDomain");
|
|
|
+}
|
|
|
+
|
|
|
+#
|
|
|
+if ($table{General}->{UserDirectoryLdapURL}) {
|
|
|
+ $cgiargs{user_ldap_url} = $table{General}->{UserDirectoryLdapURL};
|
|
|
+} else {
|
|
|
+ $cgiargs{user_ldap_url} = $cgiargs{ldap_url};
|
|
|
+}
|
|
|
+
|
|
|
+if ($table{General}->{prefix}) {
|
|
|
+ $prefix = $table{General}->{prefix};
|
|
|
+}
|
|
|
+$cgiargs{prefix} = $prefix;
|
|
|
+
|
|
|
+if ($table{General}->{BrandDs}) {
|
|
|
+ $brand_ds = $table{General}->{BrandDs};
|
|
|
+}
|
|
|
+
|
|
|
+# populate the DS with this file - the suffix in this file must
|
|
|
+# be the suffix specified in the suffix argument above
|
|
|
+# the filename should use the full absolute path
|
|
|
+$cgiargs{install_ldif_file} = $table{slapd}->{InstallLdifFile};
|
|
|
+
|
|
|
+# if for some reason you do not want the server started after instance creation
|
|
|
+# the following line can be commented out - NOTE that if you are creating the
|
|
|
+# Configuration DS, it will be started anyway
|
|
|
+$cgiargs{start_server} = 1;
|
|
|
+
|
|
|
+my $sroot = $cgiargs{sroot};
|
|
|
+
|
|
|
+my $rc = &cgiFake($sroot, $verbose,
|
|
|
+ "@libdir@/$brand_ds/ds_newinst",
|
|
|
+ \%cgiargs);
|
|
|
+
|
|
|
+if (!$rc) {
|
|
|
+ print "Success! Your new directory server instance was created\n";
|
|
|
+} else {
|
|
|
+ print "Error: Could not create new directory server instance\n";
|
|
|
+}
|
|
|
+
|
|
|
+sub printhash {
|
|
|
+ my $table = shift;
|
|
|
+
|
|
|
+ while (my ($key,$val) = each %{$table}) {
|
|
|
+ print "[$key]\n";
|
|
|
+ while (my ($k2,$v2) = each %{$val}) {
|
|
|
+ print "$k2 = $v2\n";
|
|
|
+ }
|
|
|
+ }
|
|
|
+}
|
Noriko Hosoi