[Fedora-directory-commits] ldapserver/ldap/admin/src ds_newinst.pl.in, NONE, 1.1 create_instance.c, 1.35, 1.36 create_instance.h, 1.11, 1.12
Noriko Hosoi (nhosoi)
fedora-directory-commits at redhat.com
Mon Nov 13 23:45:46 UTC 2006
Author: nhosoi
Update of /cvs/dirsec/ldapserver/ldap/admin/src
In directory cvs-int.fedora.redhat.com:/tmp/cvs-serv25445/ldap/admin/src
Modified Files:
create_instance.c create_instance.h
Added Files:
ds_newinst.pl.in
Log Message:
Resolves: #214533
Summary: configure needs to support --with-fhs (Comment #13)
Changes:
configure.ac: $prefix should have been @prefix at . $prefix is replaced with the
value of --prefix, but not with AC_PREFIX_DEFAULT when --prefix is not given.
create_instance.[ch]: depending upon the macro IS_FHS, change swich the LIBDIR,
BINDIR, DATADIR, and DOCDIR.
ds_newinst.pl.in: use @libdir@ to get the ds_newinst path.
--- NEW FILE ds_newinst.pl.in ---
#!/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";
}
}
}
Index: create_instance.c
===================================================================
RCS file: /cvs/dirsec/ldapserver/ldap/admin/src/create_instance.c,v
retrieving revision 1.35
retrieving revision 1.36
diff -u -r1.35 -r1.36
--- create_instance.c 10 Nov 2006 23:44:33 -0000 1.35
+++ create_instance.c 13 Nov 2006 23:45:44 -0000 1.36
@@ -4346,8 +4346,8 @@
prefix = cf->prefix = PL_strdup("/");
}
- cf->sroot = PR_smprintf("%s%cusr%clib%c%s",
- prefix, FILE_PATHSEP, FILE_PATHSEP, FILE_PATHSEP, cf->brand_ds);
+ cf->sroot = PR_smprintf("%s%s%c%s",
+ prefix, LIBDIR, FILE_PATHSEP, cf->brand_ds);
temp = ds_a_get_cgi_var("sasl_path", NULL, NULL);
if (NULL != temp) {
/* if sasl_path is given, we set it in the conf file regardless of
Index: create_instance.h
===================================================================
RCS file: /cvs/dirsec/ldapserver/ldap/admin/src/create_instance.h,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -r1.11 -r1.12
--- create_instance.h 10 Nov 2006 23:44:33 -0000 1.11
+++ create_instance.h 13 Nov 2006 23:45:44 -0000 1.12
@@ -61,14 +61,23 @@
#define PRODUCT_BIN "ns-slapd"
#define LOCALSTATEDIR "/var"
#define SYSCONFDIR "/etc"
+#if defined (IS_FHS)
+#define LIBDIR "/usr/lib"
#define BINDIR "/usr/bin"
#define DATADIR "/usr/share"
#define DOCDIR "/usr/doc"
-#else # Windows
+#else /* RPM */
+#define LIBDIR "/lib"
+#define BINDIR "/bin"
+#define DATADIR "/share"
+#define DOCDIR "/doc"
+#endif /* IS_FHS */
+#else /* Windows */
#define PRODUCT_NAME "slapd"
#define PRODUCT_BIN "slapd"
#define LOCALSTATEDIR "\\var"
#define SYSCONFDIR "\\etc"
+#define LIBDIR "\\usr\\lib"
#define BINDIR "\\usr\\bin"
#define DATADIR "\\usr\\share"
#define DOCDIR "\\usr\\doc"
More information about the Fedora-directory-commits
mailing list