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
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
|
#!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
#
# makevlvsearch
sub usage_and_exit
{
print "makevlvsearch [options]\n";
print "\n";
print "May be used to create just a vlvSearch entry, or to create\n";
print "both a vlvSearch and vlvIndex entry.\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 "-b scope - Provide a scope. 1 or 2. Default= '$vlvscope'\n";
print "-f filter - Provide a search filter. Default= '$vlvfilter'\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= "";
$vlvscope= "2";
$vlvfilter= "(objectclass=*)";
$vlvsort= "";
$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 "-b")
{
$vlvscope= shift @ARGV;
}
elsif($arg eq "-f")
{
$vlvfilter= shift @ARGV;
}
elsif($arg eq "-s")
{
$vlvsort= shift @ARGV;
}
elsif($arg eq "-sn")
{
$vlvsearch_name= shift @ARGV;
}
elsif($arg eq "-in")
{
$vlvindex_name= shift @ARGV;
}
else
{
print "$arg: Unknown command line argument.\n";
}
}
$ldapmodify= "ldapmodify -h $host -p $port -D \"$rootdn\" -w $rootpw";
if( $vlvfilter eq "" ||
$vlvscope eq "" ||
$vlvsearch_name 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 and Index entries.\n";
# Build the vlv search and index entries to be added.
@vlvsearch= (
"dn: cn=$vlvsearch_name, cn=config, cn=ldbm\n",
"objectclass: top\n",
"objectclass: vlvSearch\n",
"cn: $vlvsearch_name\n",
"vlvbase: $dn\n",
"vlvfilter: $vlvfilter\n",
"vlvscope: $vlvscope\n\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 @vlvsearch;
if( not($vlvindex_name eq "" || $vlvsort eq ""))
{
print FD @vlvindex;
}
close(FD);
|
