blob: 2d4d007c7dc6e6fa5f0cfd7942ee4e61ad2cc60e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
|
#!perl
#
# BEGIN COPYRIGHT BLOCK
# Copyright (C) 2001 Sun Microsystems, Inc. Used by permission.
# Copyright (C) 2005 Red Hat, Inc.
# All rights reserved.
# END COPYRIGHT BLOCK
#
# makevlvindex
sub usage_and_exit
{
print "makevlvindex [options]\n";
print "\n";
print "Options:\n";
print "-? - help\n";
print "-D rootdn - Provide a root DN. Default= '$rootdn'\n";
print "-w password - Provide a password for the root DN.\n";
print "-h host - Provide a host name. Default= '$host'\n";
print "-p port - Provide a port. Default= '$port'\n";
print "-sn search_name - RDN of the vlvSearch parent entry.\n";
print "-in index_name - RDN for the vlvIndex child entry.\n";
print "-s sort - Provide a sort specification. Default='$vlvsort'\n";
exit;
}
# Initialise some things
$vlvsearch_name= "";
$vlvindex_name= "";
$vlvsort= "sn givenname cn ou o";
$rootdn= "cn=Directory Manager";
$host= "localhost";
$port= "389";
# Process the command line arguments
while( $arg = shift)
{
if($arg eq "-?")
{
usage_and_exit();
}
elsif($arg eq "-D")
{
$rootdn= shift @ARGV;
}
elsif($arg eq "-w")
{
$rootpw= shift @ARGV;
}
elsif($arg eq "-h")
{
$host= shift @ARGV;
}
elsif($arg eq "-p")
{
$port= shift @ARGV;
}
elsif($arg eq "-sn")
{
$vlvsearch_name= shift @ARGV;
}
elsif($arg eq "-in")
{
$vlvindex_name= shift @ARGV;
}
elsif($arg eq "-s")
{
$vlvsort= shift @ARGV;
}
else
{
print "$arg: Unknown command line argument.\n";
}
}
$ldapmodify= "ldapmodify -h $host -p $port -D \"$rootdn\" -w $rootpw";
if( $vlvsearch_name eq "" ||
$vlvindex_name eq "" ||
$vlvsort eq "" ||
$rootdn eq "" ||
$host eq "" ||
$port eq "")
{
print "Error: Need command line information..\n";
usage_and_exit();
}
if( $rootpw eq "" )
{
print "Warning: No root DN password provided. Won't be able to add VLV Search and Index entries.\n";
}
# Tell the user what we're up to.
print "Adding VLV Search entry.\n";
@vlvindex= (
"dn: cn=$vlvindex_name, cn=$vlvsearch_name, cn=config, cn=ldbm\n",
"objectclass: top\n",
"objectclass: vlvIndex\n",
"cn: $vlvindex_name\n",
"vlvsort: $vlvsort\n\n" );
open(FD,"| $ldapmodify -a -c");
print FD @vlvindex;
close(FD);
|
