shelldap
author Mahlon E. Smith <mahlon@martini.nu>
Tue, 06 Sep 2011 16:28:31 -0700
changeset 39 bc105b22eb0f
parent 38 12f279ef4f9d
child 40 c6a3abc56c74
permissions -rwxr-xr-x
Added tag 0.5 for changeset 12f279ef4f9d
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
0
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
     1
#!/usr/bin/env perl
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
     2
# vim: set nosta noet ts=4 sw=4:
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
     3
#
6
46dfe9d6f368 Update documentation, now that multiline edits work. Minor other
Mahlon E. Smith <mahlon@laika.com>
parents: 5
diff changeset
     4
# Copyright (c) 2006-2011, Mahlon E. Smith <mahlon@martini.nu>
0
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
     5
# All rights reserved.
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
     6
# Redistribution and use in source and binary forms, with or without
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
     7
# modification, are permitted provided that the following conditions are met:
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
     8
#
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
     9
#     * Redistributions of source code must retain the above copyright
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
    10
#       notice, this list of conditions and the following disclaimer.
6
46dfe9d6f368 Update documentation, now that multiline edits work. Minor other
Mahlon E. Smith <mahlon@laika.com>
parents: 5
diff changeset
    11
#
0
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
    12
#     * Redistributions in binary form must reproduce the above copyright
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
    13
#       notice, this list of conditions and the following disclaimer in the
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
    14
#       documentation and/or other materials provided with the distribution.
6
46dfe9d6f368 Update documentation, now that multiline edits work. Minor other
Mahlon E. Smith <mahlon@laika.com>
parents: 5
diff changeset
    15
#
0
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
    16
#     * Neither the name of Mahlon E. Smith nor the names of his
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
    17
#       contributors may be used to endorse or promote products derived
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
    18
#       from this software without specific prior written permission.
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
    19
#
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
    20
# THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND ANY
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
    21
# EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
    22
# WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
    23
# DISCLAIMED. IN NO EVENT SHALL THE REGENTS AND CONTRIBUTORS BE LIABLE FOR ANY
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
    24
# DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
    25
# (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
    26
# LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
    27
# ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
    28
# (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
    29
# SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
    30
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
    31
=head1 NAME
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
    32
10
664bbe3dcd44 Follow regular man page conventions. Patch from
Mahlon E. Smith <mahlon@laika.com>
parents: 9
diff changeset
    33
Shelldap - A program for interacting with an LDAP server via a shell-like interface
0
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
    34
10
664bbe3dcd44 Follow regular man page conventions. Patch from
Mahlon E. Smith <mahlon@laika.com>
parents: 9
diff changeset
    35
=head1 DESCRIPTION
664bbe3dcd44 Follow regular man page conventions. Patch from
Mahlon E. Smith <mahlon@laika.com>
parents: 9
diff changeset
    36
664bbe3dcd44 Follow regular man page conventions. Patch from
Mahlon E. Smith <mahlon@laika.com>
parents: 9
diff changeset
    37
Shelldap /LDAP::Shell is a program for interacting with an LDAP server via a shell-like
0
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
    38
interface.
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
    39
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
    40
This is not meant to be an exhaustive LDAP editing and browsing
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
    41
interface, but rather an intuitive shell for performing basic LDAP
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
    42
tasks quickly and with minimal effort.
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
    43
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
    44
=head1 SYNPOSIS
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
    45
3
0f815f3daaf7 Add options to support ssl key verification when connecting with TLS.
Mahlon E. Smith <mahlon@martini.nu>
parents: 1
diff changeset
    46
 shelldap --server example.net [--help]
0
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
    47
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
    48
=head1 FEATURES
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
    49
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
    50
 - Upon successful authenticated binding, credential information is
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
    51
   auto-cached to ~/.shelldap.rc -- future loads require no command line
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
    52
   flags.
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
    53
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
    54
 - Custom 'description maps' for entry listings.  (See the 'list' command.)
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
    55
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
    56
 - History and autocomplete via readline, if installed.
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
    57
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
    58
 - Automatic reconnection attempts if the connection is lost with the
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
    59
   LDAP server.
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
    60
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
    61
 - It feels like a semi-crippled shell, making LDAP browsing and editing
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
    62
   at least halfway pleasurable.
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
    63
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
    64
=head1 OPTIONS
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
    65
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
    66
All command line options follow getopts long conventions.
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
    67
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
    68
    shelldap --server example.net --basedn dc=your,o=company
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
    69
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
    70
You may also optionally create a ~/.shelldap.rc file with command line
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
    71
defaults.  This file should be valid YAML.  (This file is generated
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
    72
automatically on a successful bind auth.)
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
    73
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
    74
Example:
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
    75
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
    76
    server: ldap.example.net
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
    77
    binddn: cn=Manager,dc=your,o=company
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
    78
    bindpass: xxxxxxxxx
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
    79
    basedn: dc=your,o=company
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
    80
    tls: yes
3
0f815f3daaf7 Add options to support ssl key verification when connecting with TLS.
Mahlon E. Smith <mahlon@martini.nu>
parents: 1
diff changeset
    81
    tls_cacert: /etc/ssl/certs/cacert.pem
0f815f3daaf7 Add options to support ssl key verification when connecting with TLS.
Mahlon E. Smith <mahlon@martini.nu>
parents: 1
diff changeset
    82
    tls_cert:   ~/.ssl/client.cert.pem 
0f815f3daaf7 Add options to support ssl key verification when connecting with TLS.
Mahlon E. Smith <mahlon@martini.nu>
parents: 1
diff changeset
    83
    tls_key:    ~/.ssl/private/client.key.pem
0
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
    84
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
    85
=over 4
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
    86
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
    87
=item B<server>
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
    88
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
    89
Required. The LDAP server to connect to.  This can be a hostname, IP
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
    90
address, or a URI.
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
    91
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
    92
    --server ldaps://ldap.example.net
19
18e71da965ff Add documentation for the additional short flags.
Mahlon E. Smith <mahlon@martini.nu>
parents: 18
diff changeset
    93
    -H ldaps://ldap.example.net
0
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
    94
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
    95
=back
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
    96
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
    97
=over 4
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
    98
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
    99
=item B<binddn>
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   100
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   101
The full dn of a user to authenticate as.  If not specified, defaults to
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   102
an anonymous bind.  You will be prompted for a password.
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   103
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   104
    --binddn cn=Manager,dc=your,o=company
19
18e71da965ff Add documentation for the additional short flags.
Mahlon E. Smith <mahlon@martini.nu>
parents: 18
diff changeset
   105
    -D cn=Manager,dc=your,o=company
0
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   106
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   107
=back
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   108
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   109
=over 4
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   110
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   111
=item B<basedn>
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   112
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   113
The directory 'root' of your LDAP server.  If omitted, shelldap will
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   114
try and ask the server for a sane default.
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   115
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   116
    --basedn dc=your,o=company
19
18e71da965ff Add documentation for the additional short flags.
Mahlon E. Smith <mahlon@martini.nu>
parents: 18
diff changeset
   117
    -b dc=your,o=company
0
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   118
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   119
=back
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   120
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   121
=over 4
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   122
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   123
=item B< tls>
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   124
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   125
Enables TLS over what would normally be an insecure connection.
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   126
Requires server side support.
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   127
3
0f815f3daaf7 Add options to support ssl key verification when connecting with TLS.
Mahlon E. Smith <mahlon@martini.nu>
parents: 1
diff changeset
   128
=item B<tls_cacert>
0f815f3daaf7 Add options to support ssl key verification when connecting with TLS.
Mahlon E. Smith <mahlon@martini.nu>
parents: 1
diff changeset
   129
0f815f3daaf7 Add options to support ssl key verification when connecting with TLS.
Mahlon E. Smith <mahlon@martini.nu>
parents: 1
diff changeset
   130
Specify CA Certificate to trust.
0f815f3daaf7 Add options to support ssl key verification when connecting with TLS.
Mahlon E. Smith <mahlon@martini.nu>
parents: 1
diff changeset
   131
0f815f3daaf7 Add options to support ssl key verification when connecting with TLS.
Mahlon E. Smith <mahlon@martini.nu>
parents: 1
diff changeset
   132
    --tls_cacert /etc/ssl/certs/cacert.pem
0f815f3daaf7 Add options to support ssl key verification when connecting with TLS.
Mahlon E. Smith <mahlon@martini.nu>
parents: 1
diff changeset
   133
0f815f3daaf7 Add options to support ssl key verification when connecting with TLS.
Mahlon E. Smith <mahlon@martini.nu>
parents: 1
diff changeset
   134
=item B<tls_cert>
0f815f3daaf7 Add options to support ssl key verification when connecting with TLS.
Mahlon E. Smith <mahlon@martini.nu>
parents: 1
diff changeset
   135
0f815f3daaf7 Add options to support ssl key verification when connecting with TLS.
Mahlon E. Smith <mahlon@martini.nu>
parents: 1
diff changeset
   136
The TLS client certificate.
0f815f3daaf7 Add options to support ssl key verification when connecting with TLS.
Mahlon E. Smith <mahlon@martini.nu>
parents: 1
diff changeset
   137
0f815f3daaf7 Add options to support ssl key verification when connecting with TLS.
Mahlon E. Smith <mahlon@martini.nu>
parents: 1
diff changeset
   138
    --tls_cert ~/.ssl/client.cert.pem
0f815f3daaf7 Add options to support ssl key verification when connecting with TLS.
Mahlon E. Smith <mahlon@martini.nu>
parents: 1
diff changeset
   139
0f815f3daaf7 Add options to support ssl key verification when connecting with TLS.
Mahlon E. Smith <mahlon@martini.nu>
parents: 1
diff changeset
   140
=item B<tls_key>
0f815f3daaf7 Add options to support ssl key verification when connecting with TLS.
Mahlon E. Smith <mahlon@martini.nu>
parents: 1
diff changeset
   141
0f815f3daaf7 Add options to support ssl key verification when connecting with TLS.
Mahlon E. Smith <mahlon@martini.nu>
parents: 1
diff changeset
   142
The TLS client key.  Not specifying a key will connect via TLS without
0f815f3daaf7 Add options to support ssl key verification when connecting with TLS.
Mahlon E. Smith <mahlon@martini.nu>
parents: 1
diff changeset
   143
key verification.
0f815f3daaf7 Add options to support ssl key verification when connecting with TLS.
Mahlon E. Smith <mahlon@martini.nu>
parents: 1
diff changeset
   144
0f815f3daaf7 Add options to support ssl key verification when connecting with TLS.
Mahlon E. Smith <mahlon@martini.nu>
parents: 1
diff changeset
   145
    --tls_key ~/.ssl/private/client.key.pem
0f815f3daaf7 Add options to support ssl key verification when connecting with TLS.
Mahlon E. Smith <mahlon@martini.nu>
parents: 1
diff changeset
   146
0
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   147
=back
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   148
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   149
=over 4
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   150
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   151
=item B<cacheage>
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   152
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   153
Set the time to cache directory lookups in seconds.
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   154
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   155
By default, directory lookups are cached for 300 seconds, to speed
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   156
autocomplete up when changing between different basedns.
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   157
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   158
Modifications to the directory automatically reset the cache.  Directory
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   159
listings are not cached.  (This is just used for autocomplete.)  Set it
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   160
to 0 to disable caching completely.
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   161
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   162
=back
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   163
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   164
=over 4
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   165
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   166
=item B<timeout>
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   167
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   168
Set the maximum time an LDAP operation can take before it is cancelled.
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   169
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   170
=back
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   171
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   172
=over 4
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   173
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   174
=item B<debug>
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   175
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   176
Print extra operational info out, and backtrace on fatal error.
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   177
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   178
=back
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   179
37
7a8855e7cfb8 Add a --version flag.
Mahlon E. Smith <mahlon@martini.nu>
parents: 36
diff changeset
   180
=over 4
7a8855e7cfb8 Add a --version flag.
Mahlon E. Smith <mahlon@martini.nu>
parents: 36
diff changeset
   181
7a8855e7cfb8 Add a --version flag.
Mahlon E. Smith <mahlon@martini.nu>
parents: 36
diff changeset
   182
=item B<version>
7a8855e7cfb8 Add a --version flag.
Mahlon E. Smith <mahlon@martini.nu>
parents: 36
diff changeset
   183
7a8855e7cfb8 Add a --version flag.
Mahlon E. Smith <mahlon@martini.nu>
parents: 36
diff changeset
   184
Display the version number.
7a8855e7cfb8 Add a --version flag.
Mahlon E. Smith <mahlon@martini.nu>
parents: 36
diff changeset
   185
7a8855e7cfb8 Add a --version flag.
Mahlon E. Smith <mahlon@martini.nu>
parents: 36
diff changeset
   186
=back
7a8855e7cfb8 Add a --version flag.
Mahlon E. Smith <mahlon@martini.nu>
parents: 36
diff changeset
   187
0
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   188
=head1 SHELL COMMANDS
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   189
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   190
=over 4
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   191
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   192
=item B< cat>
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   193
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   194
Display an LDIF dump of an entry.  Globbing is supported.  Specify
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   195
either the full dn, or an rdn.  For most commands, rdns are local to the
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   196
current search base. ('cwd', as translated to shell speak.)  You may additionally
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   197
add a list of attributes to display.  Use '+' for server side attributes.
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   198
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   199
    cat uid=mahlon
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   200
    cat ou=*
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   201
    cat uid=mahlon,ou=People,dc=example,o=company
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   202
    cat uid=mahlon + userPassword
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   203
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   204
=item B<  cd>
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   205
33
057fefab56b0 Repair broken path behavior, remove unneeded #path_to_dn 'relative'
Mahlon E. Smith <mahlon@martini.nu>
parents: 32
diff changeset
   206
Change directory.  Translated to LDAP, this changes the current basedn.
0
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   207
All commands after a 'cd' operate within the new basedn.
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   208
33
057fefab56b0 Repair broken path behavior, remove unneeded #path_to_dn 'relative'
Mahlon E. Smith <mahlon@martini.nu>
parents: 32
diff changeset
   209
    cd                  change to 'home' basedn
057fefab56b0 Repair broken path behavior, remove unneeded #path_to_dn 'relative'
Mahlon E. Smith <mahlon@martini.nu>
parents: 32
diff changeset
   210
    cd ~                change to the binddn, or basedn if anonymously bound
057fefab56b0 Repair broken path behavior, remove unneeded #path_to_dn 'relative'
Mahlon E. Smith <mahlon@martini.nu>
parents: 32
diff changeset
   211
    cd -                change to previous node
057fefab56b0 Repair broken path behavior, remove unneeded #path_to_dn 'relative'
Mahlon E. Smith <mahlon@martini.nu>
parents: 32
diff changeset
   212
    cd ou=People        change to explicit path below current node
057fefab56b0 Repair broken path behavior, remove unneeded #path_to_dn 'relative'
Mahlon E. Smith <mahlon@martini.nu>
parents: 32
diff changeset
   213
    cd ..               change to parent node
057fefab56b0 Repair broken path behavior, remove unneeded #path_to_dn 'relative'
Mahlon E. Smith <mahlon@martini.nu>
parents: 32
diff changeset
   214
    cd ../../ou=Groups  change to node ou=Groups, which is a sibling
057fefab56b0 Repair broken path behavior, remove unneeded #path_to_dn 'relative'
Mahlon E. Smith <mahlon@martini.nu>
parents: 32
diff changeset
   215
                        to the current node's grandparent
0
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   216
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   217
Since LDAP doesn't actually limit what can be a container object, you
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   218
can actually cd into any entry. Many commands then work on '.', meaning
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   219
"wherever I currently am."
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   220
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   221
    cd uid=mahlon
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   222
    cat .
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   223
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   224
=item B<clear>
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   225
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   226
Clear the screen.
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   227
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   228
=item B<copy>
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   229
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   230
Copy an entry to a different dn path.  All copies are relative to the
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   231
current basedn, unless a full dn is specified.  All attributes are
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   232
copied, then an LDAP moddn() is performed.
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   233
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   234
    copy uid=mahlon uid=bob
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   235
    copy uid=mahlon ou=Others,dc=example,o=company
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   236
    copy uid=mahlon,ou=People,dc=example,o=company uid=mahlon,ou=Others,dc=example,o=company
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   237
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   238
aliased to: cp
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   239
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   240
=item B<create>
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   241
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   242
Create an entry from scratch.  Arguments are space separated objectClass
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   243
names.  Possible objectClasses are derived automatically from the
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   244
server, and will tab-complete.
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   245
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   246
After the classes are specified, an editor will launch.  Required
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   247
attributes are listed first, then optional attributes.  Optionals are
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   248
commented out.  After the editor exits, the resulting LDIF is validated
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   249
and added to the LDAP directory.
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   250
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   251
    create top person organizationalPerson inetOrgPerson posixAccount
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   252
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   253
aliased to: touch
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   254
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   255
=item B<delete>
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   256
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   257
Remove an entry from the directory.  Globbing is supported.
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   258
All deletes are sanity-prompted.
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   259
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   260
    delete uid=mahlon
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   261
    delete uid=ma*
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   262
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   263
aliased to: rm
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   264
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   265
=item B<edit>
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   266
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   267
Edit an entry in an external editor.  After the editor exits, the
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   268
resulting LDIF is sanity checked, and changes are written to the LDAP
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   269
directory.
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   270
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   271
    edit uid=mahlon
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   272
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   273
aliased to: vi
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   274
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   275
=item B< env>
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   276
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   277
 Show values for various runtime variables.
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   278
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   279
=item B<grep>
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   280
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   281
Search for arbitrary LDAP filters, and return matching dn results.
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   282
The search string must be a valid LDAP filter.
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   283
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   284
    grep uid=mahlon
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   285
    grep uid=mahlon ou=People
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   286
    grep -r (&(uid=mahlon)(objectClass=*))
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   287
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   288
 aliased to: search
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   289
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   290
=item B<list>
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   291
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   292
List entries for the current basedn.  Globbing is supported.
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   293
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   294
aliased to: ls
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   295
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   296
    ls -l
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   297
    ls -lR uid=mahlon
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   298
    list uid=m*
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   299
36
2e78218b8045 Small documentation fixes, add better verbosity when saving connection
Mahlon E. Smith <mahlon@martini.nu>
parents: 35
diff changeset
   300
In 'long' mode, descriptions are listed as well, if they exist.
2e78218b8045 Small documentation fixes, add better verbosity when saving connection
Mahlon E. Smith <mahlon@martini.nu>
parents: 35
diff changeset
   301
There are some default 'long listing' mappings for common objectClass
2e78218b8045 Small documentation fixes, add better verbosity when saving connection
Mahlon E. Smith <mahlon@martini.nu>
parents: 35
diff changeset
   302
types.  You can additionally specify your own mappings in your
2e78218b8045 Small documentation fixes, add better verbosity when saving connection
Mahlon E. Smith <mahlon@martini.nu>
parents: 35
diff changeset
   303
.shelldap.rc, like so:
0
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   304
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   305
    ...
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   306
    descmaps:
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   307
        objectClass: attributename
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   308
        posixAccount: gecos
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   309
        posixGroup: gidNumber
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   310
        ipHost: ipHostNumber
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   311
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   312
=item B<mkdir>
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   313
38
12f279ef4f9d Backout the additional objectClasses patch for mkdir: same behavior can
Mahlon E. Smith <mahlon@martini.nu>
parents: 37
diff changeset
   314
Creates a new 'organizationalUnit' entry.
0
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   315
38
12f279ef4f9d Backout the additional objectClasses patch for mkdir: same behavior can
Mahlon E. Smith <mahlon@martini.nu>
parents: 37
diff changeset
   316
    mkdir containername
12f279ef4f9d Backout the additional objectClasses patch for mkdir: same behavior can
Mahlon E. Smith <mahlon@martini.nu>
parents: 37
diff changeset
   317
    mkdir ou=whatever
0
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   318
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   319
=item B<move>
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   320
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   321
Move an entry to a different dn path.  Usage is identical to B<copy>.
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   322
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   323
aliased to: mv
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   324
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   325
=item B<passwd>
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   326
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   327
If supported server side, change the password for a specified entry.
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   328
The entry must have a 'userPassword' attribute.
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   329
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   330
    passwd uid=mahlon
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   331
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   332
=item B< pwd>
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   333
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   334
Print the 'working directory' - aka, the current ldap basedn.
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   335
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   336
=item B<setenv>
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   337
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   338
Modify various runtime variables normally set from the command line.
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   339
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   340
    setenv debug 1
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   341
    export debug=1
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   342
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   343
=item B<whoami>
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   344
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   345
Show current auth credentials.  Unless you specified a binddn, this
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   346
will just show an anonymous bind.
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   347
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   348
=back
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   349
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   350
=head1 TODO
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   351
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   352
Referral support.  Currently, if you try to write to a replicant slave,
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   353
you'll just get a referral.  It would be nice if shelldap automatically
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   354
tried to follow it.
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   355
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   356
For now, it only makes sense to connect to a master if you plan on doing
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   357
any writes.
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   358
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   359
=head1 BUGS / LIMITATIONS
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   360
6
46dfe9d6f368 Update documentation, now that multiline edits work. Minor other
Mahlon E. Smith <mahlon@laika.com>
parents: 5
diff changeset
   361
There is no support for editing binary data.  If you need to edit base64
46dfe9d6f368 Update documentation, now that multiline edits work. Minor other
Mahlon E. Smith <mahlon@laika.com>
parents: 5
diff changeset
   362
stuff, just feed it to the regular ldapmodify/ldapadd/etc tools.
0
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   363
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   364
=head1 AUTHOR
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   365
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   366
Mahlon E. Smith <mahlon@martini.nu>
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   367
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   368
=cut
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   369
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   370
package LDAP::Shell;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   371
use strict;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   372
use warnings;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   373
use Term::ReadKey;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   374
use Term::Shell;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   375
use Digest::MD5;
33
057fefab56b0 Repair broken path behavior, remove unneeded #path_to_dn 'relative'
Mahlon E. Smith <mahlon@martini.nu>
parents: 32
diff changeset
   376
use Net::LDAP qw/ LDAP_SUCCESS LDAP_SERVER_DOWN /;
057fefab56b0 Repair broken path behavior, remove unneeded #path_to_dn 'relative'
Mahlon E. Smith <mahlon@martini.nu>
parents: 32
diff changeset
   377
use Net::LDAP::Util qw/ canonical_dn ldap_explode_dn /;
0
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   378
use Net::LDAP::LDIF;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   379
use Data::Dumper;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   380
use File::Temp;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   381
use Algorithm::Diff;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   382
use Carp 'confess';
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   383
use base 'Term::Shell';
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   384
require Net::LDAP::Extension::SetPassword;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   385
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   386
my $conf = $main::conf;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   387
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   388
# make 'die' backtrace in debug mode
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   389
$SIG{'__DIE__'} = \&Carp::confess if $conf->{'debug'};
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   390
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   391
###############################################################
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   392
#
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   393
# UTILITY FUNCTIONS
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   394
#
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   395
###############################################################
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   396
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   397
# initial shell behaviors
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   398
# 
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   399
sub init
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   400
{
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   401
	my $self = shift;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   402
	$self->{'API'}->{'match_uniq'} = 0;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   403
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   404
	$self->{'editor'} = $ENV{'EDITOR'} || 'vi';
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   405
	$self->{'env'}	= [ qw/ debug cacheage timeout / ];
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   406
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   407
	# let autocomplete work with the '=' character
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   408
	my $term = $self->term();
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   409
	$term->Attribs->{'basic_word_break_characters'}	 =~ s/=//m;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   410
	$term->Attribs->{'completer_word_break_characters'} =~ s/=//m;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   411
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   412
	# read in history
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   413
	eval {
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   414
		$term->history_truncate_file("$ENV{'HOME'}/.shelldap_history", 50);
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   415
		$term->ReadHistory("$ENV{'HOME'}/.shelldap_history");
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   416
	};
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   417
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   418
	$self->{'root_dse'} = $self->ldap->root_dse();
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   419
	if ( $conf->{'debug'} ) {
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   420
		$self->{'schema'}   = $self->ldap->schema();
17
669085d93aa3 simplify over-complex call of N:L:E->get_value()
Peter Marschall <peter@adpm.de>
parents: 16
diff changeset
   421
		my @versions = $self->{'root_dse'}->get_value('supportedLDAPVersion');
0
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   422
		print "Connected to $conf->{'server'}\n";
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   423
		print "Supported LDAP version: ", ( join ', ', @versions ), "\n";
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   424
		print "Cipher in use: ", $self->ldap()->cipher(), "\n";
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   425
	}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   426
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   427
	# try an initial search and die if it doesn't work
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   428
	# (bad baseDN)
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   429
	my $s = $self->search();
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   430
	die "LDAP baseDN error: ", $s->{'message'}, "\n" if $s->{'code'};
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   431
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   432
	$self->{'schema'} = $self->ldap->schema();
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   433
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   434
	# okay, now do an initial population of 'cwd'
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   435
	# for autocomplete.
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   436
	$self->update_entries();
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   437
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   438
	# whew, okay.  Update prompt, wait for input!
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   439
	$self->update_prompt();
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   440
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   441
	return;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   442
}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   443
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   444
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   445
# get an ldap connection handle
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   446
#
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   447
sub ldap
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   448
{
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   449
	my $self = shift;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   450
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   451
	# use cached connection object if it exists
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   452
	return $self->{'ldap'} if $self->{'ldap'};
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   453
	
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   454
	# fill in potentially missing info
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   455
	die "No server specified.\n" unless $conf->{'server'};
15
f6157d378459 Exit with a nicer error message if IO::Socket::SSL isn't installed,
Mahlon E. Smith <mahlon@martini.nu>
parents: 14
diff changeset
   456
f6157d378459 Exit with a nicer error message if IO::Socket::SSL isn't installed,
Mahlon E. Smith <mahlon@martini.nu>
parents: 14
diff changeset
   457
	# Emit a nicer error message if IO::Socket::SSL is
f6157d378459 Exit with a nicer error message if IO::Socket::SSL isn't installed,
Mahlon E. Smith <mahlon@martini.nu>
parents: 14
diff changeset
   458
	# not installed and Net::LDAP decides it is required.
f6157d378459 Exit with a nicer error message if IO::Socket::SSL isn't installed,
Mahlon E. Smith <mahlon@martini.nu>
parents: 14
diff changeset
   459
	#
f6157d378459 Exit with a nicer error message if IO::Socket::SSL isn't installed,
Mahlon E. Smith <mahlon@martini.nu>
parents: 14
diff changeset
   460
	if ( $conf->{'tls'} || $conf->{'server'} =~ m|ldaps://| ) {
f6157d378459 Exit with a nicer error message if IO::Socket::SSL isn't installed,
Mahlon E. Smith <mahlon@martini.nu>
parents: 14
diff changeset
   461
		eval 'use IO::Socket::SSL';
f6157d378459 Exit with a nicer error message if IO::Socket::SSL isn't installed,
Mahlon E. Smith <mahlon@martini.nu>
parents: 14
diff changeset
   462
		die qq{IO::Socket::SSL not installed, but is required for SSL or TLS connections.
f6157d378459 Exit with a nicer error message if IO::Socket::SSL isn't installed,
Mahlon E. Smith <mahlon@martini.nu>
parents: 14
diff changeset
   463
You may try connecting insecurely, or install the module and try again.\n} if $@;
f6157d378459 Exit with a nicer error message if IO::Socket::SSL isn't installed,
Mahlon E. Smith <mahlon@martini.nu>
parents: 14
diff changeset
   464
	}
f6157d378459 Exit with a nicer error message if IO::Socket::SSL isn't installed,
Mahlon E. Smith <mahlon@martini.nu>
parents: 14
diff changeset
   465
0
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   466
	if ( $conf->{'binddn'} && ! $conf->{'bindpass'} ) {
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   467
		print "Bind password: ";
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   468
		Term::ReadKey::ReadMode 2;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   469
		chomp($conf->{'bindpass'} = <STDIN>);
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   470
		Term::ReadKey::ReadMode 0;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   471
		print "\n";
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   472
	}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   473
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   474
	# make connection
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   475
	my $ldap = Net::LDAP->new( $conf->{'server'} )
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   476
		or die "Unable to connect to LDAP server '$conf->{'server'}': $!\n";
3
0f815f3daaf7 Add options to support ssl key verification when connecting with TLS.
Mahlon E. Smith <mahlon@martini.nu>
parents: 1
diff changeset
   477
0f815f3daaf7 Add options to support ssl key verification when connecting with TLS.
Mahlon E. Smith <mahlon@martini.nu>
parents: 1
diff changeset
   478
	# secure connection options
15
f6157d378459 Exit with a nicer error message if IO::Socket::SSL isn't installed,
Mahlon E. Smith <mahlon@martini.nu>
parents: 14
diff changeset
   479
	#
f6157d378459 Exit with a nicer error message if IO::Socket::SSL isn't installed,
Mahlon E. Smith <mahlon@martini.nu>
parents: 14
diff changeset
   480
	if ( $conf->{'tls'} )  {
3
0f815f3daaf7 Add options to support ssl key verification when connecting with TLS.
Mahlon E. Smith <mahlon@martini.nu>
parents: 1
diff changeset
   481
		if ( $conf->{'tls_key'} ) {
0f815f3daaf7 Add options to support ssl key verification when connecting with TLS.
Mahlon E. Smith <mahlon@martini.nu>
parents: 1
diff changeset
   482
			$ldap->start_tls( 
0f815f3daaf7 Add options to support ssl key verification when connecting with TLS.
Mahlon E. Smith <mahlon@martini.nu>
parents: 1
diff changeset
   483
				verify     => 'require',
0f815f3daaf7 Add options to support ssl key verification when connecting with TLS.
Mahlon E. Smith <mahlon@martini.nu>
parents: 1
diff changeset
   484
				cafile     => $conf->{'tls_cacert'},
0f815f3daaf7 Add options to support ssl key verification when connecting with TLS.
Mahlon E. Smith <mahlon@martini.nu>
parents: 1
diff changeset
   485
				clientcert => $conf->{'tls_cert'},
0f815f3daaf7 Add options to support ssl key verification when connecting with TLS.
Mahlon E. Smith <mahlon@martini.nu>
parents: 1
diff changeset
   486
				clientkey  => $conf->{'tls_key'},
0f815f3daaf7 Add options to support ssl key verification when connecting with TLS.
Mahlon E. Smith <mahlon@martini.nu>
parents: 1
diff changeset
   487
				keydecrypt => sub {
0f815f3daaf7 Add options to support ssl key verification when connecting with TLS.
Mahlon E. Smith <mahlon@martini.nu>
parents: 1
diff changeset
   488
					print "Key Passphrase: "; 
0f815f3daaf7 Add options to support ssl key verification when connecting with TLS.
Mahlon E. Smith <mahlon@martini.nu>
parents: 1
diff changeset
   489
					Term::ReadKey::ReadMode 2;
0f815f3daaf7 Add options to support ssl key verification when connecting with TLS.
Mahlon E. Smith <mahlon@martini.nu>
parents: 1
diff changeset
   490
					chomp(my $secret = <STDIN>);
0f815f3daaf7 Add options to support ssl key verification when connecting with TLS.
Mahlon E. Smith <mahlon@martini.nu>
parents: 1
diff changeset
   491
					Term::ReadKey::ReadMode 0;
0f815f3daaf7 Add options to support ssl key verification when connecting with TLS.
Mahlon E. Smith <mahlon@martini.nu>
parents: 1
diff changeset
   492
					print "\n";
0f815f3daaf7 Add options to support ssl key verification when connecting with TLS.
Mahlon E. Smith <mahlon@martini.nu>
parents: 1
diff changeset
   493
					return $secret;
0f815f3daaf7 Add options to support ssl key verification when connecting with TLS.
Mahlon E. Smith <mahlon@martini.nu>
parents: 1
diff changeset
   494
				});
0f815f3daaf7 Add options to support ssl key verification when connecting with TLS.
Mahlon E. Smith <mahlon@martini.nu>
parents: 1
diff changeset
   495
		}
0f815f3daaf7 Add options to support ssl key verification when connecting with TLS.
Mahlon E. Smith <mahlon@martini.nu>
parents: 1
diff changeset
   496
		else {
0f815f3daaf7 Add options to support ssl key verification when connecting with TLS.
Mahlon E. Smith <mahlon@martini.nu>
parents: 1
diff changeset
   497
			$ldap->start_tls( verify => 'none' );
0f815f3daaf7 Add options to support ssl key verification when connecting with TLS.
Mahlon E. Smith <mahlon@martini.nu>
parents: 1
diff changeset
   498
		}
0f815f3daaf7 Add options to support ssl key verification when connecting with TLS.
Mahlon E. Smith <mahlon@martini.nu>
parents: 1
diff changeset
   499
	}
0
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   500
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   501
	# bind
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   502
	my $rv;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   503
	if ( $conf->{'binddn'} ) {
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   504
		# authed
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   505
		$rv = $ldap->bind(
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   506
			$conf->{'binddn'},
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   507
			password => $conf->{'bindpass'}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   508
		);
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   509
	}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   510
	else {
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   511
		# anon
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   512
		$rv = $ldap->bind();
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   513
	}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   514
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   515
	my $err = $rv->error();
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   516
	if ( $rv->code() ) {
15
f6157d378459 Exit with a nicer error message if IO::Socket::SSL isn't installed,
Mahlon E. Smith <mahlon@martini.nu>
parents: 14
diff changeset
   517
		$err .= " (try the --tls flag?)"
0
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   518
			if $err =~ /confidentiality required/i;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   519
		die "LDAP bind error: $err\n";
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   520
	}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   521
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   522
	# offer to cache authentication info
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   523
	# if we enter this conditional, we have successfully 
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   524
	# authed with the server (non anonymous), and 
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   525
	# we haven't cached anything in the past.
15
f6157d378459 Exit with a nicer error message if IO::Socket::SSL isn't installed,
Mahlon E. Smith <mahlon@martini.nu>
parents: 14
diff changeset
   526
	#
0
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   527
	if ( $conf->{'binddn'} && ! -e $conf->{'confpath'} ) {
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   528
		print "Would you like to cache your connection information? [Y/n]: ";
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   529
		chomp( my $response = <STDIN> );
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   530
		unless ( $response =~ /^n/i ) {
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   531
			YAML::Syck::DumpFile( $conf->{'confpath'}, $conf );
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   532
			chmod 0600, $conf->{'confpath'};
36
2e78218b8045 Small documentation fixes, add better verbosity when saving connection
Mahlon E. Smith <mahlon@martini.nu>
parents: 35
diff changeset
   533
			print "Connection info cached to $conf->{'confpath'}.\n";
0
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   534
		}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   535
	}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   536
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   537
	$self->{'ldap'} = $ldap;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   538
	return $ldap;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   539
}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   540
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   541
# just return an LDIF object
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   542
#
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   543
sub ldif 
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   544
{
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   545
	my $self	 = shift;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   546
	my $use_temp = shift;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   547
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   548
	# create tmpfile and link ldif object with it
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   549
	if ( $use_temp ) {
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   550
		my ( undef, $fname ) =
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   551
		  File::Temp::tempfile( 'shelldap_XXXXXXXX', DIR => '/tmp', UNLINK => 1 );
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   552
		$self->{'ldif'}	   = Net::LDAP::LDIF->new( $fname, 'w', sort => 1 );
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   553
		$self->{'ldif_fname'} = $fname;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   554
	}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   555
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   556
	# ldif -> stdout
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   557
	else {
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   558
		$self->{'ldif'} = Net::LDAP::LDIF->new( \*STDOUT, 'w', sort => 1 );
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   559
	}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   560
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   561
	return $self->{'ldif'};
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   562
}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   563
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   564
# load and return an Entry object from LDIF
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   565
#
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   566
sub load_ldif
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   567
{
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   568
	my $self = shift;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   569
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   570
	my $ldif =  Net::LDAP::LDIF->new( shift(), 'r' );
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   571
	return unless $ldif;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   572
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   573
	my $e;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   574
	eval { $e = $ldif->read_entry(); };
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   575
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   576
	return if $@;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   577
	return $e;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   578
}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   579
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   580
# given a filename, return an md5 checksum
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   581
#
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   582
sub chksum 
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   583
{
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   584
	my $self = shift;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   585
	my $file = shift or return;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   586
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   587
	my $md5 = Digest::MD5->new();
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   588
	open F, $file or die "Unable to read temporary ldif: $!\n";
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   589
	my $hash = $md5->addfile( *F )->hexdigest();
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   590
	close F;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   591
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   592
	return $hash;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   593
}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   594
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   595
# prompt functions
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   596
#
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   597
sub prompt_str
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   598
{
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   599
	my $self = shift;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   600
	return $self->{'prompt'};
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   601
}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   602
sub update_prompt 
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   603
{
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   604
	my $self = shift;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   605
	my $base = $self->base();
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   606
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   607
	if ( length $base > 50 ) {
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   608
		my $cwd_dn = $1 if $base =~ /^(.*?),/;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   609
		$self->{'prompt'} = "... $cwd_dn > ";
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   610
	}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   611
	else {
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   612
		my $prompt = $base;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   613
		$prompt =~ s/$conf->{'basedn'}/~/;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   614
		$self->{'prompt'} = "$prompt > ";
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   615
	}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   616
	return;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   617
}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   618
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   619
# search base accessor
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   620
#
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   621
sub base 
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   622
{
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   623
	my $self = shift;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   624
	$self->{'base'} ||= $conf->{'basedn'};
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   625
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   626
	# try and determine base automatically from rootDSE
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   627
	#
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   628
	unless ( $self->{'base'} ) {
20
d956658803b8 use sane way to get a default basedn: RootDSe's namingContexts
Peter Marschall <peter@adpm.de>
parents: 19
diff changeset
   629
		my @namingContexts = $self->{'root_dse'}->get_value('namingContexts');
d956658803b8 use sane way to get a default basedn: RootDSe's namingContexts
Peter Marschall <peter@adpm.de>
parents: 19
diff changeset
   630
		$conf->{'basedn'} = $namingContexts[0];
d956658803b8 use sane way to get a default basedn: RootDSe's namingContexts
Peter Marschall <peter@adpm.de>
parents: 19
diff changeset
   631
		$self->{'base'}   = $namingContexts[0];
0
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   632
	}
23
2ab2df609cc7 small style cleanup
Mahlon E. Smith <mahlon@martini.nu>
parents: 22
diff changeset
   633
	if ( $_[0] ) {
2ab2df609cc7 small style cleanup
Mahlon E. Smith <mahlon@martini.nu>
parents: 22
diff changeset
   634
		my $base = canonical_dn( $_[0], casefold => 'none' );
2ab2df609cc7 small style cleanup
Mahlon E. Smith <mahlon@martini.nu>
parents: 22
diff changeset
   635
		$self->{'base'} = $base if $base;
0
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   636
	}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   637
	return $self->{'base'};
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   638
}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   639
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   640
# do a search on a dn to determine if it is valid.
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   641
# returns a bool.
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   642
#
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   643
sub is_valid_dn 
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   644
{
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   645
	my $self = shift;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   646
	my $dn   = shift or return 0;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   647
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   648
	my $r = $self->search({ base => $dn });
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   649
16
a2e3faa3d2fc use symbolic LDAP error codes instead of numbers
Peter Marschall <peter@adpm.de>
parents: 15
diff changeset
   650
	return $r->{'code'} == LDAP_SUCCESS ? 1 : 0;
0
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   651
}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   652
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   653
# perform an ldap search
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   654
# return an hashref containing return code and
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   655
# arrayref of Net::LDAP::Entry objects
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   656
#
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   657
sub search 
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   658
{
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   659
	my $self = shift;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   660
	my $opts = shift || {};
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   661
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   662
	$opts->{'base'}   ||= $self->base(),
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   663
	$opts->{'filter'} ||= '(objectClass=*)';
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   664
	$opts->{'scope'}  ||= 'base';
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   665
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   666
	my $s = $self->ldap->search(
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   667
		base	  => $opts->{'base'},
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   668
		filter	  => $opts->{'filter'},
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   669
		scope	  => $opts->{'scope'},
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   670
		timelimit => $conf->{'timeout'},
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   671
		typesonly => ! $opts->{'vals'},
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   672
		attrs	  => $opts->{'attrs'} || ['*']
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   673
	);
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   674
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   675
	my $rv = {
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   676
		code	  => $s->code(),
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   677
		message   => $s->error(),
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   678
		entries   => []
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   679
	};
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   680
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   681
	# since search is used just about everywhere, this seems like 
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   682
	# a pretty good place to check for connection errors.
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   683
	#
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   684
	# check for a lost connection, kill cached object so we
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   685
	# try to reconnect on the next search.
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   686
	#
16
a2e3faa3d2fc use symbolic LDAP error codes instead of numbers
Peter Marschall <peter@adpm.de>
parents: 15
diff changeset
   687
	$self->{'ldap'} = undef if $s->code() == LDAP_SERVER_DOWN;
0
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   688
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   689
	$rv->{'entries'} =
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   690
	  $opts->{'scope'} eq 'base' ? [ $s->shift_entry() ] : [ $s->entries() ];
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   691
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   692
	return $rv;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   693
}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   694
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   695
# update the autocomplete for entries
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   696
# in the current base tree, respecting or creating cache.
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   697
#
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   698
sub update_entries 
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   699
{
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   700
	my $self = shift;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   701
	my %opts = @_;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   702
	my $base = lc( $self->base() );
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   703
	
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   704
	my $s = $opts{'search'} || $self->search({ scope => 'one' });
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   705
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   706
	$self->{'cwd_entries'} = [];
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   707
	return if $s->{'code'};
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   708
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   709
	# setup cache object
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   710
	$self->{'cache'} ||= {};
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   711
	$self->{'cache'}->{ $base } ||= {};
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   712
	$self->{'cache'}->{ $base } = {} if $opts{'clearcache'};
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   713
	my $cache = $self->{'cache'}->{ $base };
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   714
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   715
	my $now = time();
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   716
	if ( ! exists $cache->{'entries'}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   717
		or $now - $cache->{'timestamp'} > $conf->{'cacheage'} )
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   718
	{
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   719
		$self->debug("Caching entries for $base\n");
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   720
		foreach my $e ( @{ $s->{'entries'} } ) {
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   721
			my $dn  = $e->dn();
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   722
			my $rdn = $dn;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   723
			$rdn =~ s/,$base//i;  # remove base from display
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   724
			push @{ $self->{'cwd_entries'} }, $rdn;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   725
		}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   726
		$cache->{'timestamp'} = $now;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   727
		$cache->{'entries'} = $self->{'cwd_entries'};
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   728
	}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   729
	else {
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   730
		$self->debug("Using cached lookups for $base\n");
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   731
	}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   732
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   733
	$self->{'cwd_entries'} = $cache->{'entries'};
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   734
	return;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   735
}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   736
33
057fefab56b0 Repair broken path behavior, remove unneeded #path_to_dn 'relative'
Mahlon E. Smith <mahlon@martini.nu>
parents: 32
diff changeset
   737
# convert a given path to a DN: deal with '..', '.'
057fefab56b0 Repair broken path behavior, remove unneeded #path_to_dn 'relative'
Mahlon E. Smith <mahlon@martini.nu>
parents: 32
diff changeset
   738
# Synopsis: $dn = $self->path_to_dn( $path );
30
e4b4b0968107 add method path_to_dn() to convert a given "path" to a DN
Peter Marschall <peter@adpm.de>
parents: 29
diff changeset
   739
sub path_to_dn
e4b4b0968107 add method path_to_dn() to convert a given "path" to a DN
Peter Marschall <peter@adpm.de>
parents: 29
diff changeset
   740
{
33
057fefab56b0 Repair broken path behavior, remove unneeded #path_to_dn 'relative'
Mahlon E. Smith <mahlon@martini.nu>
parents: 32
diff changeset
   741
	my $self    = shift;
057fefab56b0 Repair broken path behavior, remove unneeded #path_to_dn 'relative'
Mahlon E. Smith <mahlon@martini.nu>
parents: 32
diff changeset
   742
	my $path    = shift;
057fefab56b0 Repair broken path behavior, remove unneeded #path_to_dn 'relative'
Mahlon E. Smith <mahlon@martini.nu>
parents: 32
diff changeset
   743
	my %flags   = @_;
057fefab56b0 Repair broken path behavior, remove unneeded #path_to_dn 'relative'
Mahlon E. Smith <mahlon@martini.nu>
parents: 32
diff changeset
   744
	my $curbase = $self->base();
30
e4b4b0968107 add method path_to_dn() to convert a given "path" to a DN
Peter Marschall <peter@adpm.de>
parents: 29
diff changeset
   745
e4b4b0968107 add method path_to_dn() to convert a given "path" to a DN
Peter Marschall <peter@adpm.de>
parents: 29
diff changeset
   746
	# return current base DN
33
057fefab56b0 Repair broken path behavior, remove unneeded #path_to_dn 'relative'
Mahlon E. Smith <mahlon@martini.nu>
parents: 32
diff changeset
   747
	return $curbase if $path eq '.';
057fefab56b0 Repair broken path behavior, remove unneeded #path_to_dn 'relative'
Mahlon E. Smith <mahlon@martini.nu>
parents: 32
diff changeset
   748
057fefab56b0 Repair broken path behavior, remove unneeded #path_to_dn 'relative'
Mahlon E. Smith <mahlon@martini.nu>
parents: 32
diff changeset
   749
	# support 'cd -'
057fefab56b0 Repair broken path behavior, remove unneeded #path_to_dn 'relative'
Mahlon E. Smith <mahlon@martini.nu>
parents: 32
diff changeset
   750
	return $self->{'previous_base'} if $path eq '-';
30
e4b4b0968107 add method path_to_dn() to convert a given "path" to a DN
Peter Marschall <peter@adpm.de>
parents: 29
diff changeset
   751
33
057fefab56b0 Repair broken path behavior, remove unneeded #path_to_dn 'relative'
Mahlon E. Smith <mahlon@martini.nu>
parents: 32
diff changeset
   752
	# support empty 'cd' or 'cd ~' going to root
057fefab56b0 Repair broken path behavior, remove unneeded #path_to_dn 'relative'
Mahlon E. Smith <mahlon@martini.nu>
parents: 32
diff changeset
   753
	return $conf->{'basedn'} if $path eq '~' || ! $path;
057fefab56b0 Repair broken path behavior, remove unneeded #path_to_dn 'relative'
Mahlon E. Smith <mahlon@martini.nu>
parents: 32
diff changeset
   754
057fefab56b0 Repair broken path behavior, remove unneeded #path_to_dn 'relative'
Mahlon E. Smith <mahlon@martini.nu>
parents: 32
diff changeset
   755
	# relative path, upwards
057fefab56b0 Repair broken path behavior, remove unneeded #path_to_dn 'relative'
Mahlon E. Smith <mahlon@martini.nu>
parents: 32
diff changeset
   756
	#
057fefab56b0 Repair broken path behavior, remove unneeded #path_to_dn 'relative'
Mahlon E. Smith <mahlon@martini.nu>
parents: 32
diff changeset
   757
	if ( $path =~ /^\.\./o ) {
30
e4b4b0968107 add method path_to_dn() to convert a given "path" to a DN
Peter Marschall <peter@adpm.de>
parents: 29
diff changeset
   758
		# support '..' (possibly iterated and as prefix to a DN)
33
057fefab56b0 Repair broken path behavior, remove unneeded #path_to_dn 'relative'
Mahlon E. Smith <mahlon@martini.nu>
parents: 32
diff changeset
   759
		my @base = @{ ldap_explode_dn($curbase, casefold => 'none') };
30
e4b4b0968107 add method path_to_dn() to convert a given "path" to a DN
Peter Marschall <peter@adpm.de>
parents: 29
diff changeset
   760
e4b4b0968107 add method path_to_dn() to convert a given "path" to a DN
Peter Marschall <peter@adpm.de>
parents: 29
diff changeset
   761
		# deal with leading ..,
33
057fefab56b0 Repair broken path behavior, remove unneeded #path_to_dn 'relative'
Mahlon E. Smith <mahlon@martini.nu>
parents: 32
diff changeset
   762
		while ( $path =~ /^\.\./ ) {
057fefab56b0 Repair broken path behavior, remove unneeded #path_to_dn 'relative'
Mahlon E. Smith <mahlon@martini.nu>
parents: 32
diff changeset
   763
			shift( @base ) if @base;
30
e4b4b0968107 add method path_to_dn() to convert a given "path" to a DN
Peter Marschall <peter@adpm.de>
parents: 29
diff changeset
   764
			$path =~ s/^\.\.//;
33
057fefab56b0 Repair broken path behavior, remove unneeded #path_to_dn 'relative'
Mahlon E. Smith <mahlon@martini.nu>
parents: 32
diff changeset
   765
			last if $path !~ /[,\/]\s*/;
057fefab56b0 Repair broken path behavior, remove unneeded #path_to_dn 'relative'
Mahlon E. Smith <mahlon@martini.nu>
parents: 32
diff changeset
   766
			$path =~ s/[,\/]\s*//;
30
e4b4b0968107 add method path_to_dn() to convert a given "path" to a DN
Peter Marschall <peter@adpm.de>
parents: 29
diff changeset
   767
		}
e4b4b0968107 add method path_to_dn() to convert a given "path" to a DN
Peter Marschall <peter@adpm.de>
parents: 29
diff changeset
   768
33
057fefab56b0 Repair broken path behavior, remove unneeded #path_to_dn 'relative'
Mahlon E. Smith <mahlon@martini.nu>
parents: 32
diff changeset
   769
		# append the new dn to the node if one was specified:
057fefab56b0 Repair broken path behavior, remove unneeded #path_to_dn 'relative'
Mahlon E. Smith <mahlon@martini.nu>
parents: 32
diff changeset
   770
		#    cd ../../cn=somewhere  vs
057fefab56b0 Repair broken path behavior, remove unneeded #path_to_dn 'relative'
Mahlon E. Smith <mahlon@martini.nu>
parents: 32
diff changeset
   771
		#    cd ../../
057fefab56b0 Repair broken path behavior, remove unneeded #path_to_dn 'relative'
Mahlon E. Smith <mahlon@martini.nu>
parents: 32
diff changeset
   772
		#
057fefab56b0 Repair broken path behavior, remove unneeded #path_to_dn 'relative'
Mahlon E. Smith <mahlon@martini.nu>
parents: 32
diff changeset
   773
		my $newbase_root = canonical_dn( \@base, casefold => 'none' );
057fefab56b0 Repair broken path behavior, remove unneeded #path_to_dn 'relative'
Mahlon E. Smith <mahlon@martini.nu>
parents: 32
diff changeset
   774
		$path = $path ? $path . ',' . $newbase_root : $newbase_root;
30
e4b4b0968107 add method path_to_dn() to convert a given "path" to a DN
Peter Marschall <peter@adpm.de>
parents: 29
diff changeset
   775
	}
e4b4b0968107 add method path_to_dn() to convert a given "path" to a DN
Peter Marschall <peter@adpm.de>
parents: 29
diff changeset
   776
33
057fefab56b0 Repair broken path behavior, remove unneeded #path_to_dn 'relative'
Mahlon E. Smith <mahlon@martini.nu>
parents: 32
diff changeset
   777
	# attach the base if it isn't already there (this takes care of
057fefab56b0 Repair broken path behavior, remove unneeded #path_to_dn 'relative'
Mahlon E. Smith <mahlon@martini.nu>
parents: 32
diff changeset
   778
	# deeper relative nodes and absolutes)
057fefab56b0 Repair broken path behavior, remove unneeded #path_to_dn 'relative'
Mahlon E. Smith <mahlon@martini.nu>
parents: 32
diff changeset
   779
	#
057fefab56b0 Repair broken path behavior, remove unneeded #path_to_dn 'relative'
Mahlon E. Smith <mahlon@martini.nu>
parents: 32
diff changeset
   780
	else {
057fefab56b0 Repair broken path behavior, remove unneeded #path_to_dn 'relative'
Mahlon E. Smith <mahlon@martini.nu>
parents: 32
diff changeset
   781
		$path = "$path," . $curbase unless $path =~ /$curbase/;
057fefab56b0 Repair broken path behavior, remove unneeded #path_to_dn 'relative'
Mahlon E. Smith <mahlon@martini.nu>
parents: 32
diff changeset
   782
	}
057fefab56b0 Repair broken path behavior, remove unneeded #path_to_dn 'relative'
Mahlon E. Smith <mahlon@martini.nu>
parents: 32
diff changeset
   783
057fefab56b0 Repair broken path behavior, remove unneeded #path_to_dn 'relative'
Mahlon E. Smith <mahlon@martini.nu>
parents: 32
diff changeset
   784
	return $path;
30
e4b4b0968107 add method path_to_dn() to convert a given "path" to a DN
Peter Marschall <peter@adpm.de>
parents: 29
diff changeset
   785
}
e4b4b0968107 add method path_to_dn() to convert a given "path" to a DN
Peter Marschall <peter@adpm.de>
parents: 29
diff changeset
   786
0
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   787
# given an array ref of shell-like globs, 
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   788
# make and return an LDAP filter object.
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   789
#
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   790
sub make_filter 
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   791
{
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   792
	my $self  = shift;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   793
	my $globs = shift or return;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   794
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   795
	return unless ref $globs eq 'ARRAY';
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   796
	return unless scalar @$globs;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   797
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   798
	my $filter;
28
d42bd1b087a1 make_filter: cope with filters that are already parenthesized
Peter Marschall <peter@adpm.de>
parents: 27
diff changeset
   799
	$filter = join('', map { (/^\(.*\)$/o) ? $_ : "($_)" } @$globs);
d42bd1b087a1 make_filter: cope with filters that are already parenthesized
Peter Marschall <peter@adpm.de>
parents: 27
diff changeset
   800
	$filter = '(|' . $filter . ')'  if (scalar(@$globs) > 1);
d42bd1b087a1 make_filter: cope with filters that are already parenthesized
Peter Marschall <peter@adpm.de>
parents: 27
diff changeset
   801
	$filter = Net::LDAP::Filter->new($filter);
0
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   802
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   803
	if ( $filter ) {
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   804
		$self->debug('Filter parsed as: ' . $filter->as_string() . "\n");
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   805
	}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   806
	else {
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   807
		print "Error parsing filter.\n";
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   808
		return;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   809
	}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   810
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   811
	return $filter;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   812
}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   813
27
7d170d1bc17b run_list: new argument syntax: [<options>] [<filter>] [<attributes>]
Peter Marschall <peter@adpm.de>
parents: 26
diff changeset
   814
7d170d1bc17b run_list: new argument syntax: [<options>] [<filter>] [<attributes>]
Peter Marschall <peter@adpm.de>
parents: 26
diff changeset
   815
# check whether a given string may be a filter
7d170d1bc17b run_list: new argument syntax: [<options>] [<filter>] [<attributes>]
Peter Marschall <peter@adpm.de>
parents: 26
diff changeset
   816
# Synopsis: $yesNo = $self->is_valid_filter($string);
34
40c3719c87d4 fix 'ls -R' output, minor style cleanup
Mahlon E. Smith <mahlon@martini.nu>
parents: 33
diff changeset
   817
#
27
7d170d1bc17b run_list: new argument syntax: [<options>] [<filter>] [<attributes>]
Peter Marschall <peter@adpm.de>
parents: 26
diff changeset
   818
sub is_valid_filter
7d170d1bc17b run_list: new argument syntax: [<options>] [<filter>] [<attributes>]
Peter Marschall <peter@adpm.de>
parents: 26
diff changeset
   819
{
34
40c3719c87d4 fix 'ls -R' output, minor style cleanup
Mahlon E. Smith <mahlon@martini.nu>
parents: 33
diff changeset
   820
	my $self   = shift;
27
7d170d1bc17b run_list: new argument syntax: [<options>] [<filter>] [<attributes>]
Peter Marschall <peter@adpm.de>
parents: 26
diff changeset
   821
	my $filter = shift or return;
7d170d1bc17b run_list: new argument syntax: [<options>] [<filter>] [<attributes>]
Peter Marschall <peter@adpm.de>
parents: 26
diff changeset
   822
34
40c3719c87d4 fix 'ls -R' output, minor style cleanup
Mahlon E. Smith <mahlon@martini.nu>
parents: 33
diff changeset
   823
	return Net::LDAP::Filter->new( $filter ) ? 1 : 0;
27
7d170d1bc17b run_list: new argument syntax: [<options>] [<filter>] [<attributes>]
Peter Marschall <peter@adpm.de>
parents: 26
diff changeset
   824
}
7d170d1bc17b run_list: new argument syntax: [<options>] [<filter>] [<attributes>]
Peter Marschall <peter@adpm.de>
parents: 26
diff changeset
   825
34
40c3719c87d4 fix 'ls -R' output, minor style cleanup
Mahlon E. Smith <mahlon@martini.nu>
parents: 33
diff changeset
   826
0
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   827
# little. yellow. different. better.
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   828
#
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   829
sub debug 
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   830
{
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   831
	my $self = shift;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   832
	return unless $conf->{'debug'};
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   833
	print "\e[33m";
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   834
	print shift();
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   835
	print "\e[0m";
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   836
	return;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   837
}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   838
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   839
# setup command autocompletes for
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   840
# all commands that have the same possible values
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   841
#
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   842
sub autocomplete_cwd
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   843
{
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   844
	my $self = shift;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   845
	my $word = $_[0];
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   846
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   847
	return sort @{ $self->{'cwd_entries'} };
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   848
}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   849
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   850
sub comp_setenv
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   851
{ 
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   852
	my $self = shift;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   853
	return @{ $self->{'env'} };
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   854
}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   855
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   856
sub comp_create
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   857
{
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   858
	my $self = shift;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   859
	return @{ $self->{'objectclasses'} } if $self->{'objectclasses'};
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   860
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   861
	my @oc_data = $self->{'schema'}->all_objectclasses();
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   862
	my @oc;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   863
	foreach my $o ( @oc_data ) {
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   864
		push @oc, $o->{'name'};
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   865
	}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   866
	@oc = sort @oc;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   867
	$self->{'objectclasses'} = \@oc;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   868
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   869
	return @oc;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   870
}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   871
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   872
{
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   873
	no warnings;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   874
	no strict 'refs';
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   875
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   876
	# command, alias
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   877
	my %cmd_map = (
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   878
		whoami => 'id',
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   879
		list   => 'ls',
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   880
		grep   => 'search',
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   881
		edit   => 'vi',
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   882
		delete => 'rm',
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   883
		copy   => 'cp',
3
0f815f3daaf7 Add options to support ssl key verification when connecting with TLS.
Mahlon E. Smith <mahlon@martini.nu>
parents: 1
diff changeset
   884
		cat    => 'read',
0
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   885
		move   => 'mv',
3
0f815f3daaf7 Add options to support ssl key verification when connecting with TLS.
Mahlon E. Smith <mahlon@martini.nu>
parents: 1
diff changeset
   886
		cd     => undef,
0
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   887
		passwd => undef
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   888
	);
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   889
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   890
	# setup autocompletes
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   891
	foreach ( %cmd_map ) {
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   892
		next unless $_;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   893
		my $sub = "comp_$_";
3
0f815f3daaf7 Add options to support ssl key verification when connecting with TLS.
Mahlon E. Smith <mahlon@martini.nu>
parents: 1
diff changeset
   894
		*$sub   = \&autocomplete_cwd;
0
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   895
	}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   896
	*comp_touch  = \&comp_create;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   897
	*comp_export = \&comp_setenv;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   898
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   899
	# setup alias subs
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   900
	#
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   901
	# Term::Shell has an alias_* feature, but
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   902
	# it seems to work about 90% of the time.
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   903
	# that last 10% is something of a mystery.
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   904
	#
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   905
	$cmd_map{'create'} = 'touch';
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   906
	foreach my $cmd ( keys %cmd_map ) {
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   907
		next unless defined $cmd_map{$cmd};
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   908
		my $alias_sub = 'run_' . $cmd_map{$cmd};
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   909
		my $real_sub  = 'run_' . $cmd;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   910
		*$alias_sub = \&$real_sub;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   911
	}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   912
}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   913
6
46dfe9d6f368 Update documentation, now that multiline edits work. Minor other
Mahlon E. Smith <mahlon@laika.com>
parents: 5
diff changeset
   914
46dfe9d6f368 Update documentation, now that multiline edits work. Minor other
Mahlon E. Smith <mahlon@laika.com>
parents: 5
diff changeset
   915
# Given an $arrayref, remove LDIF continuation wrapping,
46dfe9d6f368 Update documentation, now that multiline edits work. Minor other
Mahlon E. Smith <mahlon@laika.com>
parents: 5
diff changeset
   916
# effectively making each entry a single line.
46dfe9d6f368 Update documentation, now that multiline edits work. Minor other
Mahlon E. Smith <mahlon@laika.com>
parents: 5
diff changeset
   917
# 
5
78b2a48e07db Combine multiple lines into a single one before displaying LDIF. Patch
Mahlon E. Smith <mahlon@laika.com>
parents: 4
diff changeset
   918
sub unwrap {
78b2a48e07db Combine multiple lines into a single one before displaying LDIF. Patch
Mahlon E. Smith <mahlon@laika.com>
parents: 4
diff changeset
   919
	my $array = shift;
78b2a48e07db Combine multiple lines into a single one before displaying LDIF. Patch
Mahlon E. Smith <mahlon@laika.com>
parents: 4
diff changeset
   920
6
46dfe9d6f368 Update documentation, now that multiline edits work. Minor other
Mahlon E. Smith <mahlon@laika.com>
parents: 5
diff changeset
   921
	my $i = 1;
46dfe9d6f368 Update documentation, now that multiline edits work. Minor other
Mahlon E. Smith <mahlon@laika.com>
parents: 5
diff changeset
   922
	while ( $i < scalar(@$array) ) {
46dfe9d6f368 Update documentation, now that multiline edits work. Minor other
Mahlon E. Smith <mahlon@laika.com>
parents: 5
diff changeset
   923
		if ( $array->[$i] =~ /^\s/ ) {
46dfe9d6f368 Update documentation, now that multiline edits work. Minor other
Mahlon E. Smith <mahlon@laika.com>
parents: 5
diff changeset
   924
			$array->[ $i - 1 ] =~ s/\n$//;
46dfe9d6f368 Update documentation, now that multiline edits work. Minor other
Mahlon E. Smith <mahlon@laika.com>
parents: 5
diff changeset
   925
			$array->[ $i ] =~ s/^\s//;
46dfe9d6f368 Update documentation, now that multiline edits work. Minor other
Mahlon E. Smith <mahlon@laika.com>
parents: 5
diff changeset
   926
			splice( @$array, $i - 1, 2, $array->[$i - 1] . $array->[$i] );
46dfe9d6f368 Update documentation, now that multiline edits work. Minor other
Mahlon E. Smith <mahlon@laika.com>
parents: 5
diff changeset
   927
		}
46dfe9d6f368 Update documentation, now that multiline edits work. Minor other
Mahlon E. Smith <mahlon@laika.com>
parents: 5
diff changeset
   928
		else {
46dfe9d6f368 Update documentation, now that multiline edits work. Minor other
Mahlon E. Smith <mahlon@laika.com>
parents: 5
diff changeset
   929
			$i++;
5
78b2a48e07db Combine multiple lines into a single one before displaying LDIF. Patch
Mahlon E. Smith <mahlon@laika.com>
parents: 4
diff changeset
   930
		}
78b2a48e07db Combine multiple lines into a single one before displaying LDIF. Patch
Mahlon E. Smith <mahlon@laika.com>
parents: 4
diff changeset
   931
	}
78b2a48e07db Combine multiple lines into a single one before displaying LDIF. Patch
Mahlon E. Smith <mahlon@laika.com>
parents: 4
diff changeset
   932
}
78b2a48e07db Combine multiple lines into a single one before displaying LDIF. Patch
Mahlon E. Smith <mahlon@laika.com>
parents: 4
diff changeset
   933
6
46dfe9d6f368 Update documentation, now that multiline edits work. Minor other
Mahlon E. Smith <mahlon@laika.com>
parents: 5
diff changeset
   934
0
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   935
###############################################################
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   936
#
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   937
# SHELL METHODS
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   938
#
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   939
###############################################################
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   940
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   941
# don't die on a newline
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   942
#
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   943
sub run_ { return; }
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   944
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   945
# print shell debug actions
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   946
# 
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   947
sub precmd
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   948
{
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   949
	my $self = shift;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   950
	my ( $handler, $cmd, $args ) = @_;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   951
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   952
	my $term = $self->term();
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   953
	eval { $term->WriteHistory("$ENV{'HOME'}/.shelldap_history"); };
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   954
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   955
	return unless $conf->{'debug'};
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   956
	$self->debug( "$$cmd (" . ( join ' ', @$args ) . "), calling '$$handler'\n" );
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   957
	return;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   958
} 
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   959
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   960
sub run_cat 
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   961
{
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   962
	my $self  = shift;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   963
	my $dn    = shift;
21
cf8013cbfb58 slight cleanup: make more clear, it's an array
Peter Marschall <peter@adpm.de>
parents: 20
diff changeset
   964
	my @attrs = (@_) ? @_ : ('*');
0
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   965
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   966
	unless ( $dn ) {
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   967
		print "No dn provided.\n";
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   968
		return;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   969
	}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   970
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   971
	# support '.'
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   972
	$dn = $self->base() if $dn eq '.';
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   973
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   974
	# support globbing
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   975
	my $s;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   976
	if ( $dn eq '*' ) {
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   977
		$s = $self->search({
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   978
			scope  => 'one',
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   979
			vals   => 1,
21
cf8013cbfb58 slight cleanup: make more clear, it's an array
Peter Marschall <peter@adpm.de>
parents: 20
diff changeset
   980
			attrs  => \@attrs
0
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   981
		});
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   982
	}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   983
	elsif ( $dn =~ /\*/ ) {
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   984
		$s = $self->search({
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   985
			scope  => 'one',
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   986
			vals   => 1,
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   987
			filter => $dn,
21
cf8013cbfb58 slight cleanup: make more clear, it's an array
Peter Marschall <peter@adpm.de>
parents: 20
diff changeset
   988
			attrs  => \@attrs
0
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   989
		});
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   990
	}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   991
	else {
31
a3a710f720dd run_cat: convert to using path_to_dn()
Peter Marschall <peter@adpm.de>
parents: 30
diff changeset
   992
		# convert given path to DN
33
057fefab56b0 Repair broken path behavior, remove unneeded #path_to_dn 'relative'
Mahlon E. Smith <mahlon@martini.nu>
parents: 32
diff changeset
   993
		$dn = $self->path_to_dn( $dn );
0
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   994
		$s = $self->search({
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   995
			base   => $dn,
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   996
			vals   => 1,
21
cf8013cbfb58 slight cleanup: make more clear, it's an array
Peter Marschall <peter@adpm.de>
parents: 20
diff changeset
   997
			attrs  => \@attrs
0
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   998
		});
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
   999
	}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1000
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1001
	if ( $s->{'code'} ) {
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1002
		print $s->{'message'} . "\n";
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1003
		return;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1004
	}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1005
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1006
	foreach my $e ( @{ $s->{'entries'} } ) {
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1007
		$self->ldif->write_entry( $e );
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1008
		print "\n";
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1009
	}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1010
	return;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1011
}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1012
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1013
sub run_cd 
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1014
{
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1015
	my $self	= shift;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1016
	my $newbase = join ' ', @_;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1017
30
e4b4b0968107 add method path_to_dn() to convert a given "path" to a DN
Peter Marschall <peter@adpm.de>
parents: 29
diff changeset
  1018
	# convert given path to a DN
33
057fefab56b0 Repair broken path behavior, remove unneeded #path_to_dn 'relative'
Mahlon E. Smith <mahlon@martini.nu>
parents: 32
diff changeset
  1019
	$newbase = $self->path_to_dn( $newbase );
057fefab56b0 Repair broken path behavior, remove unneeded #path_to_dn 'relative'
Mahlon E. Smith <mahlon@martini.nu>
parents: 32
diff changeset
  1020
0
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1021
	unless ( $self->is_valid_dn( $newbase ) ) {
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1022
		print "No such object\n";
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1023
		return;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1024
	}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1025
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1026
	# store old base
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1027
	$self->{'previous_base'} = $self->base();
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1028
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1029
	# update new base
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1030
	$self->base( $newbase );
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1031
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1032
	# get new 'cwd' listing
26
68318d115f6c fix attribute lists for LDAP queries
Peter Marschall <peter@adpm.de>
parents: 25
diff changeset
  1033
	my $s = $self->search({ scope => 'one', attrs => [ '1.1' ] });
0
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1034
	if ( $s->{'code'} ) {
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1035
		print "$s->{'message'}\n";
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1036
		return;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1037
	}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1038
	$self->update_entries( search => $s );
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1039
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1040
	# reflect cwd change in prompt
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1041
	$self->update_prompt();
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1042
	return;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1043
}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1044
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1045
sub run_clear
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1046
{
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1047
	my $self = shift;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1048
	system('clear');
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1049
	return;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1050
}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1051
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1052
sub run_copy
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1053
{
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1054
	my $self = shift;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1055
	my ( $s_dn, $d_dn ) = @_;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1056
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1057
	unless ( $s_dn ) {
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1058
		print "No source dn provided.\n";
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1059
		return;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1060
	}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1061
	unless ( $d_dn ) {
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1062
		print "No destination dn provided.\n";
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1063
		return;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1064
	}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1065
31
a3a710f720dd run_cat: convert to using path_to_dn()
Peter Marschall <peter@adpm.de>
parents: 30
diff changeset
  1066
	# convert given source path to DN
33
057fefab56b0 Repair broken path behavior, remove unneeded #path_to_dn 'relative'
Mahlon E. Smith <mahlon@martini.nu>
parents: 32
diff changeset
  1067
	$s_dn = $self->path_to_dn( $s_dn );
31
a3a710f720dd run_cat: convert to using path_to_dn()
Peter Marschall <peter@adpm.de>
parents: 30
diff changeset
  1068
0
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1069
	my $s = $self->search({ base => $s_dn, vals => 1 });
16
a2e3faa3d2fc use symbolic LDAP error codes instead of numbers
Peter Marschall <peter@adpm.de>
parents: 15
diff changeset
  1070
	unless ( $s->{'code'} == LDAP_SUCCESS ) {
0
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1071
		print "No such object\n";
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1072
		return;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1073
	}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1074
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1075
	# see if we're copying the entry to a totally new path
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1076
	my ( $new_dn, $old_dn );
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1077
	( $d_dn, $new_dn ) = ( $1, $2 ) if $d_dn =~ /^([\w=]+),(.*)$/;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1078
	if ( $new_dn ) {
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1079
		unless ( $self->is_valid_dn( $new_dn ) ) {
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1080
			print "Invalid destination.\n";
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1081
			return;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1082
		}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1083
	}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1084
	else {
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1085
		$new_dn = $self->base();
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1086
	}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1087
	$old_dn = $1 if $s_dn =~ /^[\w=]+,(.*)$/;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1088
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1089
	# get the source object
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1090
	my $e = ${ $s->{'entries'} }[0];
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1091
	$e->dn( $s_dn );
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1092
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1093
	# add changes in new entry instead of modifying existing
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1094
	$e->changetype('add'); 
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1095
	$e->dn( "$d_dn,$new_dn" );
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1096
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1097
	# get the unique attribute from the dn for modification
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1098
	# perhaps there is a better way to do this...?
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1099
	#
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1100
	my ( $uniqkey, $uniqval ) = ( $1, $2 )
14
b8fae8fb7942 Allow '-' on RDN name when copying
Giacomo Tenaglia <Giacomo.Tenaglia@cern.ch>
parents: 12
diff changeset
  1101
	  if $d_dn =~ /^([\.\w\-]+)(?:\s+)?=(?:\s+)?([\.\-\s\w]+),?/;
0
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1102
	unless ( $uniqkey && $uniqval ) {
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1103
		print "Unable to parse unique values from rdn.\n";
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1104
		return;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1105
	}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1106
	$e->replace( $uniqkey => $uniqval );
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1107
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1108
	# update
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1109
	my $rv = $e->update( $self->ldap() );
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1110
	print $rv->error , "\n";
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1111
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1112
	# clear caches
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1113
	$self->{'cache'}->{ $new_dn } = {} if $new_dn;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1114
	$self->{'cache'}->{ $old_dn } = {} if $old_dn;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1115
	$self->update_entries( clearcache => 1 );
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1116
	return;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1117
}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1118
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1119
sub run_create
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1120
{
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1121
	my $self = shift;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1122
	my @ocs  = @_;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1123
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1124
	my ( $fh, $fname ) =
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1125
		File::Temp::tempfile( 'shelldap_XXXXXXXX', DIR => '/tmp', UNLINK => 1 );
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1126
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1127
	# first print out the dn and object classes.
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1128
	print $fh 'dn: ???,', $self->base(), "\n";
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1129
	foreach my $oc ( sort @ocs ) {
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1130
		print $fh "objectClass: $oc\n";
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1131
	}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1132
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1133
	# now gather attributes for requested objectClasses
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1134
	#
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1135
	my ( %seen, @must_attr, @may_attr );
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1136
	foreach my $oc ( sort @ocs ) {
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1137
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1138
		# required
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1139
		my @must = $self->{'schema'}->must( $oc );
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1140
		foreach my $attr ( sort { $a->{'name'} cmp $b->{'name'} } @must ) {
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1141
			next if $attr->{'name'} =~ /^objectclass$/i;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1142
			next if $seen{ $attr->{'name'} };
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1143
			push @must_attr, $attr->{'name'};
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1144
			$seen{ $attr->{'name'} }++;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1145
		}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1146
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1147
		# optional
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1148
		my @may  = $self->{'schema'}->may( $oc );
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1149
		foreach my $attr ( sort { $a->{'name'} cmp $b->{'name'} } @may ) {
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1150
			next if $attr->{'name'} =~ /^objectclass$/i;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1151
			next if $seen{ $attr->{'name'} };
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1152
			push @may_attr, $attr->{'name'};
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1153
			$seen{ $attr->{'name'} }++;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1154
		}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1155
	}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1156
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1157
	# print attributes
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1158
	print $fh "$_: \n"   foreach @must_attr;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1159
	print $fh "# $_: \n" foreach @may_attr;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1160
	close $fh;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1161
	my $hash_a = $self->chksum( $fname );
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1162
	system( $self->{'editor'}, $fname ) && die "Unable to launch editor: $!\n";
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1163
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1164
	# hash compare
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1165
	my $hash_b = $self->chksum( $fname );
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1166
	if ( $hash_a eq $hash_b ) {
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1167
		print "Entry not modified.\n";
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1168
		unlink $fname;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1169
		return;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1170
	}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1171
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1172
	# load in LDIF
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1173
	my $ldif = Net::LDAP::LDIF->new( $fname, 'r', onerror => 'warn' );
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1174
	my $e	= $ldif->read_entry();
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1175
	unless ( $e ) {
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1176
		print "Unable to parse LDIF.\n";
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1177
		unlink $fname;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1178
		return;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1179
	}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1180
	$e->changetype('add');
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1181
	my $rv = $e->update( $self->ldap() );
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1182
	print $rv->error(), "\n";
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1183
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1184
	$self->update_entries( clearcache => 1 ) unless $rv->code();
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1185
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1186
	unlink $fname;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1187
	return;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1188
}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1189
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1190
sub run_delete
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1191
{
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1192
	my $self = shift;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1193
	my @DNs  = @_;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1194
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1195
	unless ( scalar @DNs ) {
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1196
		print "No dn specified.\n";
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1197
		return;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1198
	}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1199
6
46dfe9d6f368 Update documentation, now that multiline edits work. Minor other
Mahlon E. Smith <mahlon@laika.com>
parents: 5
diff changeset
  1200
	my $filter;
46dfe9d6f368 Update documentation, now that multiline edits work. Minor other
Mahlon E. Smith <mahlon@laika.com>
parents: 5
diff changeset
  1201
	unless ( $DNs[0] eq '*' ) {
46dfe9d6f368 Update documentation, now that multiline edits work. Minor other
Mahlon E. Smith <mahlon@laika.com>
parents: 5
diff changeset
  1202
		$filter = $self->make_filter( \@DNs ) or return;
46dfe9d6f368 Update documentation, now that multiline edits work. Minor other
Mahlon E. Smith <mahlon@laika.com>
parents: 5
diff changeset
  1203
	}
0
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1204
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1205
	my $s = $self->search({ scope => 'one', filter => $filter });
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1206
	if ( $s->{'code'} ) {
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1207
		print "$s->{'message'}\n";
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1208
		return;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1209
	}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1210
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1211
	print "Are you sure? [N/y]: ";
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1212
	chomp( my $resp = <STDIN> );
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1213
	return unless $resp =~ /^y/i;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1214
   
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1215
	foreach my $e ( @{ $s->{'entries'} } ) {
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1216
		my $dn = $e->dn();
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1217
		my $rv = $self->ldap->delete( $dn );
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1218
		print "$dn: ", $rv->error(), "\n";
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1219
	}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1220
   
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1221
	$self->update_entries( clearcache => 1 );
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1222
	return;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1223
}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1224
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1225
sub run_edit
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1226
{
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1227
	my $self = shift;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1228
	my $dn   = join ' ', @_;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1229
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1230
	unless ( $dn ) {
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1231
		print "No dn provided.\n";
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1232
		return;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1233
	}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1234
31
a3a710f720dd run_cat: convert to using path_to_dn()
Peter Marschall <peter@adpm.de>
parents: 30
diff changeset
  1235
	# convert given path to DN
33
057fefab56b0 Repair broken path behavior, remove unneeded #path_to_dn 'relative'
Mahlon E. Smith <mahlon@martini.nu>
parents: 32
diff changeset
  1236
	$dn = $self->path_to_dn( $dn );
0
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1237
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1238
	my $s = $self->search({ base => $dn, vals => 1 });
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1239
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1240
	if ( $s->{'code'} ) {
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1241
		print $s->{'message'} . "\n";
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1242
		return;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1243
	}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1244
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1245
	# fetch entry and write it out to disk
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1246
	my $e = ${ $s->{'entries'} }[0];
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1247
	my $ldif = $self->ldif(1);
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1248
	$ldif->write_entry( $e );
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1249
	$ldif->done();  # force sync
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1250
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1251
	# load it into an array for potential comparison
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1252
	open LDIF, "$self->{'ldif_fname'}" or return;
6
46dfe9d6f368 Update documentation, now that multiline edits work. Minor other
Mahlon E. Smith <mahlon@laika.com>
parents: 5
diff changeset
  1253
	my @orig_ldif = <LDIF>;
0
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1254
	close LDIF;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1255
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1256
	# checksum it, then open it in an editor
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1257
	my $hash_a = $self->chksum( $self->{'ldif_fname'} );
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1258
	system( "$self->{'editor'} $self->{'ldif_fname'}" ) &&
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1259
		die "Unable to launch editor: $!\n";
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1260
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1261
	# detect a total lack of change
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1262
	my $hash_b = $self->chksum( $self->{'ldif_fname'} );
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1263
	if ( $hash_a eq $hash_b ) {
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1264
		print "Entry not modified.\n";
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1265
		unlink $self->{'ldif_fname'};
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1266
		return;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1267
	}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1268
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1269
	# check changes for basic LDIF validity
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1270
	my $new_e = $self->load_ldif( $self->{'ldif_fname'} );
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1271
	unless ( $new_e ) {
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1272
		print "Unable to parse LDIF.\n";
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1273
		unlink $self->{'ldif_fname'};
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1274
		return;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1275
	}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1276
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1277
	# load changes into a new array for comparison
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1278
	open LDIF, "$self->{'ldif_fname'}" or return;
6
46dfe9d6f368 Update documentation, now that multiline edits work. Minor other
Mahlon E. Smith <mahlon@laika.com>
parents: 5
diff changeset
  1279
	my @new_ldif = <LDIF>;
0
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1280
	close LDIF;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1281
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1282
	$e->changetype('modify');
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1283
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1284
	my $parse = sub {
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1285
		my $line = shift || $_;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1286
		return if $line	 =~ /^\#/; # ignore comments
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1287
		my ( $attr, $val ) = ( $1, $2 ) if $line =~ /^(.+?): (.*)$/;
6
46dfe9d6f368 Update documentation, now that multiline edits work. Minor other
Mahlon E. Smith <mahlon@laika.com>
parents: 5
diff changeset
  1288
		return unless $attr;
0
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1289
		return if index($attr, ':') != -1;  # ignore base64
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1290
		return ( $attr, $val );
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1291
	};
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1292
6
46dfe9d6f368 Update documentation, now that multiline edits work. Minor other
Mahlon E. Smith <mahlon@laika.com>
parents: 5
diff changeset
  1293
	unwrap( \@orig_ldif );
46dfe9d6f368 Update documentation, now that multiline edits work. Minor other
Mahlon E. Smith <mahlon@laika.com>
parents: 5
diff changeset
  1294
	unwrap( \@new_ldif );
5
78b2a48e07db Combine multiple lines into a single one before displaying LDIF. Patch
Mahlon E. Smith <mahlon@laika.com>
parents: 4
diff changeset
  1295
0
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1296
	my $diff = Algorithm::Diff->new( \@orig_ldif, \@new_ldif );
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1297
	HUNK:
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1298
	while ( $diff->Next() ) {
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1299
		next if $diff->Same();
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1300
		my $diff_bit = $diff->Diff();
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1301
		my %seen_attr;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1302
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1303
		# total deletions
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1304
		if ( $diff_bit == 1 ) {
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1305
			foreach ( $diff->Items(1) ) {
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1306
				$self->debug("DELETE: $_");
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1307
				my ( $attr, $val ) = $parse->( $_ ) or next;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1308
				$e->delete( $attr => [ $val ] );
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1309
			}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1310
		}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1311
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1312
		# new insertions
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1313
		if ( $diff_bit == 2 ) {
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1314
			foreach ( $diff->Items(2) ) {
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1315
				$self->debug("INSERT: $_");
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1316
				my ( $attr, $val ) = $parse->( $_ ) or next;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1317
				$e->add( $attr => $val );
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1318
			}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1319
		}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1320
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1321
		# replacements
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1322
		if ( $diff_bit == 3 ) {
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1323
			foreach ( $diff->Items(2) ) {
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1324
				$self->debug("MODIFY: $_");
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1325
				my ( $attr, $val ) = $parse->( $_ ) or next;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1326
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1327
				my $cur_vals = $e->get_value( $attr, asref => 1 ) || [];
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1328
				my $cur_valcount = scalar @$cur_vals;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1329
				next if $cur_valcount == 0; # should have been an 'add'
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1330
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1331
				# replace immediately 
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1332
				#
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1333
				if ( $cur_valcount == 1 ) {
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1334
					$e->replace( $attr => $val );
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1335
				}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1336
				else {
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1337
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1338
					# make sure the replace doesn't squash
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1339
					# other attributes listed with the same name
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1340
					#
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1341
					next if $seen_attr{ $attr };
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1342
					my @new_vals;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1343
					foreach my $line ( @new_ldif ) {
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1344
						my ( $new_attr, $new_val ) = $parse->( $line ) or next;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1345
						next unless $new_attr eq $attr;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1346
						$seen_attr{ $attr }++;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1347
						push @new_vals, $new_val;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1348
					}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1349
					$e->replace( $attr => \@new_vals );
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1350
				}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1351
			}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1352
		}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1353
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1354
	}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1355
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1356
	unlink $self->{'ldif_fname'};
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1357
	my $rv = $e->update( $self->ldap );
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1358
	print $rv->error(), "\n";
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1359
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1360
	return;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1361
}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1362
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1363
sub run_env
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1364
{
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1365
	my $self = shift;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1366
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1367
	foreach ( sort @{ $self->{'env'} } ) {
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1368
		print "$_: ";
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1369
		print $conf->{$_} ? $conf->{$_} : 0; 
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1370
		print "\n"
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1371
	}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1372
}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1373
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1374
sub run_grep
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1375
{
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1376
	my $self = shift;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1377
	my ( $recurse, $filter, $base ) = @_;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1378
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1379
	# set 'recursion'
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1380
	unless ( $recurse && $recurse =~ /\-r|recurse/ ) {
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1381
		# shift args to the left
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1382
		( $recurse, $filter, $base ) = ( undef, $recurse, $filter );
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1383
	}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1384
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1385
	$filter = Net::LDAP::Filter->new( $filter );
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1386
	unless ( $filter ) {
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1387
		print "Invalid search filter.\n";
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1388
		return;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1389
	}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1390
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1391
	# support '*'
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1392
	$base = $self->base() if ! $base or $base eq '*';
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1393
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1394
	unless ( $base ) {
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1395
		print "No search base specified.\n";
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1396
		return;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1397
	}
33
057fefab56b0 Repair broken path behavior, remove unneeded #path_to_dn 'relative'
Mahlon E. Smith <mahlon@martini.nu>
parents: 32
diff changeset
  1398
31
a3a710f720dd run_cat: convert to using path_to_dn()
Peter Marschall <peter@adpm.de>
parents: 30
diff changeset
  1399
	# convert base path to DN
33
057fefab56b0 Repair broken path behavior, remove unneeded #path_to_dn 'relative'
Mahlon E. Smith <mahlon@martini.nu>
parents: 32
diff changeset
  1400
	$base = $self->path_to_dn( $base );
0
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1401
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1402
	$self->debug("Filter parsed as: " . $filter->as_string() . "\n");
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1403
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1404
	my $s = $self->search(
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1405
		{
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1406
			scope  => $recurse ? 'sub' : 'one',
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1407
			base   => $base,
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1408
			filter => $filter
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1409
		}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1410
	);
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1411
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1412
	foreach my $e ( @{ $s->{'entries'} } ) {
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1413
		my $dn = $e->dn();
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1414
		print "$dn\n";
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1415
	}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1416
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1417
	return;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1418
}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1419
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1420
# override internal help functions
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1421
# with pod2usage
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1422
#
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1423
sub run_help 
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1424
{
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1425
	return Pod::Usage::pod2usage(
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1426
		-exitval  => 'NOEXIT',
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1427
		-verbose  => 99,
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1428
		-sections => 'SHELL COMMANDS'
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1429
	);
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1430
}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1431
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1432
sub run_list
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1433
{
34
40c3719c87d4 fix 'ls -R' output, minor style cleanup
Mahlon E. Smith <mahlon@martini.nu>
parents: 33
diff changeset
  1434
	my $self  = shift;
40c3719c87d4 fix 'ls -R' output, minor style cleanup
Mahlon E. Smith <mahlon@martini.nu>
parents: 33
diff changeset
  1435
	my @args  = @_;
27
7d170d1bc17b run_list: new argument syntax: [<options>] [<filter>] [<attributes>]
Peter Marschall <peter@adpm.de>
parents: 26
diff changeset
  1436
	my @attrs = ();
34
40c3719c87d4 fix 'ls -R' output, minor style cleanup
Mahlon E. Smith <mahlon@martini.nu>
parents: 33
diff changeset
  1437
	my $filter;
40c3719c87d4 fix 'ls -R' output, minor style cleanup
Mahlon E. Smith <mahlon@martini.nu>
parents: 33
diff changeset
  1438
40c3719c87d4 fix 'ls -R' output, minor style cleanup
Mahlon E. Smith <mahlon@martini.nu>
parents: 33
diff changeset
  1439
	# flag booleans
40c3719c87d4 fix 'ls -R' output, minor style cleanup
Mahlon E. Smith <mahlon@martini.nu>
parents: 33
diff changeset
  1440
	my ( $recurse, $long );
27
7d170d1bc17b run_list: new argument syntax: [<options>] [<filter>] [<attributes>]
Peter Marschall <peter@adpm.de>
parents: 26
diff changeset
  1441
7d170d1bc17b run_list: new argument syntax: [<options>] [<filter>] [<attributes>]
Peter Marschall <peter@adpm.de>
parents: 26
diff changeset
  1442
	# parse arguments: [ <option> ...] [<filter> ...] [<attribute> ...]
34
40c3719c87d4 fix 'ls -R' output, minor style cleanup
Mahlon E. Smith <mahlon@martini.nu>
parents: 33
diff changeset
  1443
	if ( scalar @args ) {
27
7d170d1bc17b run_list: new argument syntax: [<options>] [<filter>] [<attributes>]
Peter Marschall <peter@adpm.de>
parents: 26
diff changeset
  1444
		# options: support '-l' or '-R' listings
34
40c3719c87d4 fix 'ls -R' output, minor style cleanup
Mahlon E. Smith <mahlon@martini.nu>
parents: 33
diff changeset
  1445
		if ( $args[0] =~ /^\-(\w+)/o ) {
40c3719c87d4 fix 'ls -R' output, minor style cleanup
Mahlon E. Smith <mahlon@martini.nu>
parents: 33
diff changeset
  1446
			my $flags = $1;
40c3719c87d4 fix 'ls -R' output, minor style cleanup
Mahlon E. Smith <mahlon@martini.nu>
parents: 33
diff changeset
  1447
			$recurse  = $flags =~ /R/;
40c3719c87d4 fix 'ls -R' output, minor style cleanup
Mahlon E. Smith <mahlon@martini.nu>
parents: 33
diff changeset
  1448
			$long	  = $flags =~ /l/;
40c3719c87d4 fix 'ls -R' output, minor style cleanup
Mahlon E. Smith <mahlon@martini.nu>
parents: 33
diff changeset
  1449
			shift( @args );
27
7d170d1bc17b run_list: new argument syntax: [<options>] [<filter>] [<attributes>]
Peter Marschall <peter@adpm.de>
parents: 26
diff changeset
  1450
		}
0
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1451
27
7d170d1bc17b run_list: new argument syntax: [<options>] [<filter>] [<attributes>]
Peter Marschall <peter@adpm.de>
parents: 26
diff changeset
  1452
		my @filters;
7d170d1bc17b run_list: new argument syntax: [<options>] [<filter>] [<attributes>]
Peter Marschall <peter@adpm.de>
parents: 26
diff changeset
  1453
7d170d1bc17b run_list: new argument syntax: [<options>] [<filter>] [<attributes>]
Peter Marschall <peter@adpm.de>
parents: 26
diff changeset
  1454
		# get filter elements from argument list
34
40c3719c87d4 fix 'ls -R' output, minor style cleanup
Mahlon E. Smith <mahlon@martini.nu>
parents: 33
diff changeset
  1455
		while ( @args && $self->is_valid_filter($args[0]) ) {
40c3719c87d4 fix 'ls -R' output, minor style cleanup
Mahlon E. Smith <mahlon@martini.nu>
parents: 33
diff changeset
  1456
			push( @filters, shift(@args) );
0
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1457
		}
27
7d170d1bc17b run_list: new argument syntax: [<options>] [<filter>] [<attributes>]
Peter Marschall <peter@adpm.de>
parents: 26
diff changeset
  1458
34
40c3719c87d4 fix 'ls -R' output, minor style cleanup
Mahlon E. Smith <mahlon@martini.nu>
parents: 33
diff changeset
  1459
		push( @filters, '(objectClass=*)' ) unless scalar @filters;
0
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1460
		
27
7d170d1bc17b run_list: new argument syntax: [<options>] [<filter>] [<attributes>]
Peter Marschall <peter@adpm.de>
parents: 26
diff changeset
  1461
		# construct OR'ed filter from filter elements
0
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1462
		$filter = $self->make_filter( \@filters );
27
7d170d1bc17b run_list: new argument syntax: [<options>] [<filter>] [<attributes>]
Peter Marschall <peter@adpm.de>
parents: 26
diff changeset
  1463
7d170d1bc17b run_list: new argument syntax: [<options>] [<filter>] [<attributes>]
Peter Marschall <peter@adpm.de>
parents: 26
diff changeset
  1464
		# remaining arguments must be attributes
34
40c3719c87d4 fix 'ls -R' output, minor style cleanup
Mahlon E. Smith <mahlon@martini.nu>
parents: 33
diff changeset
  1465
		push( @attrs, @args );
0
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1466
	}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1467
34
40c3719c87d4 fix 'ls -R' output, minor style cleanup
Mahlon E. Smith <mahlon@martini.nu>
parents: 33
diff changeset
  1468
	# Get all attributes if none are specified, and we're in long-list mode.
40c3719c87d4 fix 'ls -R' output, minor style cleanup
Mahlon E. Smith <mahlon@martini.nu>
parents: 33
diff changeset
  1469
	push( @attrs, '*' )  if $long && ! scalar @attrs;
0
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1470
4
5a65bc849363 Append a trailing slash to entries that contain other entries. Thanks
Mahlon E. Smith <mahlon@martini.nu>
parents: 3
diff changeset
  1471
	my $s = $self->search({
5a65bc849363 Append a trailing slash to entries that contain other entries. Thanks
Mahlon E. Smith <mahlon@martini.nu>
parents: 3
diff changeset
  1472
		scope  => $recurse ? 'sub' : 'one',
5a65bc849363 Append a trailing slash to entries that contain other entries. Thanks
Mahlon E. Smith <mahlon@martini.nu>
parents: 3
diff changeset
  1473
		vals   => 1,
5a65bc849363 Append a trailing slash to entries that contain other entries. Thanks
Mahlon E. Smith <mahlon@martini.nu>
parents: 3
diff changeset
  1474
		filter => $filter,
27
7d170d1bc17b run_list: new argument syntax: [<options>] [<filter>] [<attributes>]
Peter Marschall <peter@adpm.de>
parents: 26
diff changeset
  1475
		attrs  => [ @attrs, 'hasSubordinates' ]
4
5a65bc849363 Append a trailing slash to entries that contain other entries. Thanks
Mahlon E. Smith <mahlon@martini.nu>
parents: 3
diff changeset
  1476
	});
0
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1477
	if ( $s->{'code'} ) {
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1478
		print "$s->{'message'}\n";
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1479
		return;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1480
	}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1481
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1482
	# if an entry doesn't have a description field,
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1483
	# try and show some nice defaults for ls -l !
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1484
	# 
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1485
	# objectClass -> Attribute to show
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1486
	#
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1487
	my %descs = %{
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1488
		$conf->{'descmaps'}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1489
		  || {
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1490
			posixAccount => 'gecos',
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1491
			posixGroup   => 'gidNumber',
4
5a65bc849363 Append a trailing slash to entries that contain other entries. Thanks
Mahlon E. Smith <mahlon@martini.nu>
parents: 3
diff changeset
  1492
			ipHost	     => 'ipHostNumber',
0
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1493
		  }
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1494
	  };
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1495
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1496
	# iterate and print
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1497
	#
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1498
	my $dn_count = 0;
34
40c3719c87d4 fix 'ls -R' output, minor style cleanup
Mahlon E. Smith <mahlon@martini.nu>
parents: 33
diff changeset
  1499
	my $base = $self->base();
0
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1500
	foreach my $e ( sort { $a->dn() cmp $b->dn() } @{ $s->{'entries'} } ) {
27
7d170d1bc17b run_list: new argument syntax: [<options>] [<filter>] [<attributes>]
Peter Marschall <peter@adpm.de>
parents: 26
diff changeset
  1501
		my $dn = $e->dn();
34
40c3719c87d4 fix 'ls -R' output, minor style cleanup
Mahlon E. Smith <mahlon@martini.nu>
parents: 33
diff changeset
  1502
		next if lc( $dn ) eq lc( $base );
27
7d170d1bc17b run_list: new argument syntax: [<options>] [<filter>] [<attributes>]
Peter Marschall <peter@adpm.de>
parents: 26
diff changeset
  1503
34
40c3719c87d4 fix 'ls -R' output, minor style cleanup
Mahlon E. Smith <mahlon@martini.nu>
parents: 33
diff changeset
  1504
		if ( ! $long ) {
40c3719c87d4 fix 'ls -R' output, minor style cleanup
Mahlon E. Smith <mahlon@martini.nu>
parents: 33
diff changeset
  1505
			# strip the current base from the dn, if we're recursing and not in long mode
40c3719c87d4 fix 'ls -R' output, minor style cleanup
Mahlon E. Smith <mahlon@martini.nu>
parents: 33
diff changeset
  1506
			if ( $recurse ) {
40c3719c87d4 fix 'ls -R' output, minor style cleanup
Mahlon E. Smith <mahlon@martini.nu>
parents: 33
diff changeset
  1507
				$dn =~ s/,$base//oi;
40c3719c87d4 fix 'ls -R' output, minor style cleanup
Mahlon E. Smith <mahlon@martini.nu>
parents: 33
diff changeset
  1508
			}
40c3719c87d4 fix 'ls -R' output, minor style cleanup
Mahlon E. Smith <mahlon@martini.nu>
parents: 33
diff changeset
  1509
40c3719c87d4 fix 'ls -R' output, minor style cleanup
Mahlon E. Smith <mahlon@martini.nu>
parents: 33
diff changeset
  1510
			# only show RDN unless -l was given
40c3719c87d4 fix 'ls -R' output, minor style cleanup
Mahlon E. Smith <mahlon@martini.nu>
parents: 33
diff changeset
  1511
			else {
40c3719c87d4 fix 'ls -R' output, minor style cleanup
Mahlon E. Smith <mahlon@martini.nu>
parents: 33
diff changeset
  1512
				$dn = canonical_dn( [shift(@{ldap_explode_dn($dn, casefold => 'none')})], casefold => 'none' )
40c3719c87d4 fix 'ls -R' output, minor style cleanup
Mahlon E. Smith <mahlon@martini.nu>
parents: 33
diff changeset
  1513
			}
40c3719c87d4 fix 'ls -R' output, minor style cleanup
Mahlon E. Smith <mahlon@martini.nu>
parents: 33
diff changeset
  1514
		}
4
5a65bc849363 Append a trailing slash to entries that contain other entries. Thanks
Mahlon E. Smith <mahlon@martini.nu>
parents: 3
diff changeset
  1515
5a65bc849363 Append a trailing slash to entries that contain other entries. Thanks
Mahlon E. Smith <mahlon@martini.nu>
parents: 3
diff changeset
  1516
		# if this entry is a container for other entries, append a
5a65bc849363 Append a trailing slash to entries that contain other entries. Thanks
Mahlon E. Smith <mahlon@martini.nu>
parents: 3
diff changeset
  1517
		# trailing slash.
35
3e5572aeee55 Make sure the hasSubordinates attribute is defined before checking its
Mahlon E. Smith <mahlon@martini.nu>
parents: 34
diff changeset
  1518
		$dn .= '/'  if $e->get_value('hasSubordinates') &&
3e5572aeee55 Make sure the hasSubordinates attribute is defined before checking its
Mahlon E. Smith <mahlon@martini.nu>
parents: 34
diff changeset
  1519
			$e->get_value('hasSubordinates') eq 'TRUE';
0
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1520
34
40c3719c87d4 fix 'ls -R' output, minor style cleanup
Mahlon E. Smith <mahlon@martini.nu>
parents: 33
diff changeset
  1521
		# additional arguments/attributes were given; show their values
40c3719c87d4 fix 'ls -R' output, minor style cleanup
Mahlon E. Smith <mahlon@martini.nu>
parents: 33
diff changeset
  1522
		#
40c3719c87d4 fix 'ls -R' output, minor style cleanup
Mahlon E. Smith <mahlon@martini.nu>
parents: 33
diff changeset
  1523
		if ( scalar @args ) {
27
7d170d1bc17b run_list: new argument syntax: [<options>] [<filter>] [<attributes>]
Peter Marschall <peter@adpm.de>
parents: 26
diff changeset
  1524
			my @elements = ( $dn );
0
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1525
34
40c3719c87d4 fix 'ls -R' output, minor style cleanup
Mahlon E. Smith <mahlon@martini.nu>
parents: 33
diff changeset
  1526
			foreach my $attr ( @args ) {
40c3719c87d4 fix 'ls -R' output, minor style cleanup
Mahlon E. Smith <mahlon@martini.nu>
parents: 33
diff changeset
  1527
				my @vals = $e->get_value( $attr );
40c3719c87d4 fix 'ls -R' output, minor style cleanup
Mahlon E. Smith <mahlon@martini.nu>
parents: 33
diff changeset
  1528
				push( @elements, join(',', @vals) );
27
7d170d1bc17b run_list: new argument syntax: [<options>] [<filter>] [<attributes>]
Peter Marschall <peter@adpm.de>
parents: 26
diff changeset
  1529
			}
0
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1530
34
40c3719c87d4 fix 'ls -R' output, minor style cleanup
Mahlon E. Smith <mahlon@martini.nu>
parents: 33
diff changeset
  1531
			print join( "\t", @elements )."\n";
27
7d170d1bc17b run_list: new argument syntax: [<options>] [<filter>] [<attributes>]
Peter Marschall <peter@adpm.de>
parents: 26
diff changeset
  1532
		}
0
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1533
		else {
27
7d170d1bc17b run_list: new argument syntax: [<options>] [<filter>] [<attributes>]
Peter Marschall <peter@adpm.de>
parents: 26
diff changeset
  1534
			# show descriptions
34
40c3719c87d4 fix 'ls -R' output, minor style cleanup
Mahlon E. Smith <mahlon@martini.nu>
parents: 33
diff changeset
  1535
			my $desc = $e->get_value( 'description' );
27
7d170d1bc17b run_list: new argument syntax: [<options>] [<filter>] [<attributes>]
Peter Marschall <peter@adpm.de>
parents: 26
diff changeset
  1536
			if ( $desc ) {
7d170d1bc17b run_list: new argument syntax: [<options>] [<filter>] [<attributes>]
Peter Marschall <peter@adpm.de>
parents: 26
diff changeset
  1537
				$desc =~ s/\n.*//s; # 1st line only
7d170d1bc17b run_list: new argument syntax: [<options>] [<filter>] [<attributes>]
Peter Marschall <peter@adpm.de>
parents: 26
diff changeset
  1538
				$dn .= " ($desc)";
7d170d1bc17b run_list: new argument syntax: [<options>] [<filter>] [<attributes>]
Peter Marschall <peter@adpm.de>
parents: 26
diff changeset
  1539
			}
0
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1540
27
7d170d1bc17b run_list: new argument syntax: [<options>] [<filter>] [<attributes>]
Peter Marschall <peter@adpm.de>
parents: 26
diff changeset
  1541
			# no desc?  Try and infer something useful
7d170d1bc17b run_list: new argument syntax: [<options>] [<filter>] [<attributes>]
Peter Marschall <peter@adpm.de>
parents: 26
diff changeset
  1542
			# to display.
7d170d1bc17b run_list: new argument syntax: [<options>] [<filter>] [<attributes>]
Peter Marschall <peter@adpm.de>
parents: 26
diff changeset
  1543
			else {
0
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1544
27
7d170d1bc17b run_list: new argument syntax: [<options>] [<filter>] [<attributes>]
Peter Marschall <peter@adpm.de>
parents: 26
diff changeset
  1545
				# pull objectClasses, hash for lookup speed
34
40c3719c87d4 fix 'ls -R' output, minor style cleanup
Mahlon E. Smith <mahlon@martini.nu>
parents: 33
diff changeset
  1546
				my @oc   = $e->get_value( 'objectClass' );
27
7d170d1bc17b run_list: new argument syntax: [<options>] [<filter>] [<attributes>]
Peter Marschall <peter@adpm.de>
parents: 26
diff changeset
  1547
				my %ochash;
7d170d1bc17b run_list: new argument syntax: [<options>] [<filter>] [<attributes>]
Peter Marschall <peter@adpm.de>
parents: 26
diff changeset
  1548
				map { $ochash{$_} = 1 } @oc;
7d170d1bc17b run_list: new argument syntax: [<options>] [<filter>] [<attributes>]
Peter Marschall <peter@adpm.de>
parents: 26
diff changeset
  1549
7d170d1bc17b run_list: new argument syntax: [<options>] [<filter>] [<attributes>]
Peter Marschall <peter@adpm.de>
parents: 26
diff changeset
  1550
				foreach my $d_listing ( sort keys %descs ) {
7d170d1bc17b run_list: new argument syntax: [<options>] [<filter>] [<attributes>]
Peter Marschall <peter@adpm.de>
parents: 26
diff changeset
  1551
					if ( exists $ochash{ $d_listing } ) {
7d170d1bc17b run_list: new argument syntax: [<options>] [<filter>] [<attributes>]
Peter Marschall <peter@adpm.de>
parents: 26
diff changeset
  1552
						my $str = $e->get_value( $descs{ $d_listing }, asref => 1 );
7d170d1bc17b run_list: new argument syntax: [<options>] [<filter>] [<attributes>]
Peter Marschall <peter@adpm.de>
parents: 26
diff changeset
  1553
						$dn .= ' (' . (join ', ', @$str) . ')' if $str && scalar @$str;
7d170d1bc17b run_list: new argument syntax: [<options>] [<filter>] [<attributes>]
Peter Marschall <peter@adpm.de>
parents: 26
diff changeset
  1554
					}
7d170d1bc17b run_list: new argument syntax: [<options>] [<filter>] [<attributes>]
Peter Marschall <peter@adpm.de>
parents: 26
diff changeset
  1555
					next;
0
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1556
				}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1557
			}
27
7d170d1bc17b run_list: new argument syntax: [<options>] [<filter>] [<attributes>]
Peter Marschall <peter@adpm.de>
parents: 26
diff changeset
  1558
			print "$dn\n";
0
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1559
		}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1560
		$dn_count++;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1561
	}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1562
	
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1563
	print "\n$dn_count " .
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1564
		( $dn_count == 1 ? 'object.' : 'objects.') .
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1565
		"\n" if $long;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1566
	return;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1567
}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1568
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1569
sub run_mkdir
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1570
{
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1571
	my $self = shift;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1572
	my $dir  = join ' ', @_;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1573
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1574
	unless ( $dir ) {
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1575
		print "No 'directory' provided.\n";
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1576
		return;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1577
	}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1578
38
12f279ef4f9d Backout the additional objectClasses patch for mkdir: same behavior can
Mahlon E. Smith <mahlon@martini.nu>
parents: 37
diff changeset
  1579
	# normalize name, if it is not yet a legal DN
12f279ef4f9d Backout the additional objectClasses patch for mkdir: same behavior can
Mahlon E. Smith <mahlon@martini.nu>
parents: 37
diff changeset
  1580
	$dir = 'ou=' . $dir unless canonical_dn( $dir );
0
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1581
38
12f279ef4f9d Backout the additional objectClasses patch for mkdir: same behavior can
Mahlon E. Smith <mahlon@martini.nu>
parents: 37
diff changeset
  1582
	# convert given path to full DN
12f279ef4f9d Backout the additional objectClasses patch for mkdir: same behavior can
Mahlon E. Smith <mahlon@martini.nu>
parents: 37
diff changeset
  1583
	$dir = $self->path_to_dn( $dir );
29
bd95c3aea253 mkdir: support more objectclasses
Peter Marschall <peter@adpm.de>
parents: 28
diff changeset
  1584
bd95c3aea253 mkdir: support more objectclasses
Peter Marschall <peter@adpm.de>
parents: 28
diff changeset
  1585
	# get RDN: naming attributes (lower-case) and their values
38
12f279ef4f9d Backout the additional objectClasses patch for mkdir: same behavior can
Mahlon E. Smith <mahlon@martini.nu>
parents: 37
diff changeset
  1586
	my %rdn = %{ shift(@{ ldap_explode_dn($dir, casefold => 'lower') }) };
0
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1587
38
12f279ef4f9d Backout the additional objectClasses patch for mkdir: same behavior can
Mahlon E. Smith <mahlon@martini.nu>
parents: 37
diff changeset
  1588
	# add
12f279ef4f9d Backout the additional objectClasses patch for mkdir: same behavior can
Mahlon E. Smith <mahlon@martini.nu>
parents: 37
diff changeset
  1589
	my $r = $self->ldap()->add( $dir, attr => [
12f279ef4f9d Backout the additional objectClasses patch for mkdir: same behavior can
Mahlon E. Smith <mahlon@martini.nu>
parents: 37
diff changeset
  1590
		objectClass => [ 'top', 'organizationalUnit' ], %rdn
12f279ef4f9d Backout the additional objectClasses patch for mkdir: same behavior can
Mahlon E. Smith <mahlon@martini.nu>
parents: 37
diff changeset
  1591
	]);
0
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1592
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1593
	print $r->error(), "\n";
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1594
	$self->update_entries( clearcache => 1 );
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1595
	return;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1596
}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1597
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1598
sub run_move
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1599
{
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1600
	my $self = shift;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1601
	my ( $s_dn, $d_dn ) = @_;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1602
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1603
	unless ( $s_dn ) {
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1604
		print "No source dn provided.\n";
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1605
		return;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1606
	}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1607
	unless ( $d_dn ) {
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1608
		print "No destination dn provided.\n";
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1609
		return;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1610
	}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1611
31
a3a710f720dd run_cat: convert to using path_to_dn()
Peter Marschall <peter@adpm.de>
parents: 30
diff changeset
  1612
	# convert given source path to DN
33
057fefab56b0 Repair broken path behavior, remove unneeded #path_to_dn 'relative'
Mahlon E. Smith <mahlon@martini.nu>
parents: 32
diff changeset
  1613
	$s_dn = $self->path_to_dn( $s_dn );
31
a3a710f720dd run_cat: convert to using path_to_dn()
Peter Marschall <peter@adpm.de>
parents: 30
diff changeset
  1614
0
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1615
	unless ( $self->is_valid_dn( $s_dn ) ) {
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1616
		print "No such object\n";
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1617
		return;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1618
	}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1619
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1620
	# see if we're moving the entry to a totally new path
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1621
	my ( $new_dn, $old_dn );
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1622
	( $d_dn, $new_dn ) = ( $1, $2 ) if $d_dn =~ /^([\w=]+),(.*)$/;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1623
	$old_dn = $1 if $s_dn =~ /^[\w=]+,(.*)$/;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1624
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1625
	my $rv = $self->ldap()->moddn(
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1626
		$s_dn,
3
0f815f3daaf7 Add options to support ssl key verification when connecting with TLS.
Mahlon E. Smith <mahlon@martini.nu>
parents: 1
diff changeset
  1627
		newrdn	     => $d_dn,
0
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1628
		deleteoldrdn => 1,
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1629
		newsuperior  => $new_dn
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1630
	);
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1631
	print $rv->error(), "\n";
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1632
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1633
	# clear caches
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1634
	$self->{'cache'}->{ $new_dn } = {} if $new_dn;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1635
	$self->{'cache'}->{ $old_dn } = {} if $old_dn;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1636
	$self->update_entries( clearcache => 1 );
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1637
	return;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1638
}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1639
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1640
sub run_passwd 
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1641
{
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1642
	my $self = shift;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1643
	my $dn   = shift || $self->base();
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1644
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1645
	$self->{'root_dse'} ||= $self->ldap->root_dse();
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1646
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1647
	my $pw_extension = '1.3.6.1.4.1.4203.1.11.1';
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1648
	unless ( $self->{'root_dse'}->supported_extension( $pw_extension ) ) {
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1649
		print "Sorry, password changes not supported by LDAP server.\n";
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1650
		return;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1651
	}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1652
31
a3a710f720dd run_cat: convert to using path_to_dn()
Peter Marschall <peter@adpm.de>
parents: 30
diff changeset
  1653
	# convert given path to DN
33
057fefab56b0 Repair broken path behavior, remove unneeded #path_to_dn 'relative'
Mahlon E. Smith <mahlon@martini.nu>
parents: 32
diff changeset
  1654
	$self->path_to_dn( $dn );
0
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1655
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1656
	my $s = $self->search( { base => $dn, scope => 'base' } );
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1657
	if ( $s->{'code'} ) {
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1658
		print $s->{'message'}, "\n";
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1659
		return;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1660
	}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1661
	my $e = ${ $s->{'entries'} }[0];
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1662
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1663
	unless ( $e->exists('userPassword') ) {
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1664
		print "No userPassword attribute for $dn\n";
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1665
		return;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1666
	}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1667
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1668
	print "Changing password for $dn\n";
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1669
	Term::ReadKey::ReadMode 2;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1670
	print "Enter new password: ";
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1671
	chomp( my $pw  = <STDIN> );
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1672
	print "\nRetype new password: ";
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1673
	chomp( my $pw2 = <STDIN> );
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1674
	print "\n";
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1675
	Term::ReadKey::ReadMode 0;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1676
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1677
	if ( $pw ne $pw2 ) {
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1678
		print "Sorry, passwords do not match.\n";
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1679
		return;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1680
	}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1681
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1682
	my $rv = $self->ldap->set_password(
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1683
		user	  => $dn,
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1684
		newpasswd => $pw
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1685
	);
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1686
16
a2e3faa3d2fc use symbolic LDAP error codes instead of numbers
Peter Marschall <peter@adpm.de>
parents: 15
diff changeset
  1687
	if ( $rv->code() == LDAP_SUCCESS ) {
0
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1688
		print "Password updated successfully.\n";
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1689
	} else {
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1690
		print "Password error: " . $rv->error() . "\n";
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1691
	}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1692
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1693
	return;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1694
}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1695
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1696
sub run_pwd 
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1697
{
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1698
	my $self = shift;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1699
	print $self->base() . "\n";
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1700
	return;   
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1701
}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1702
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1703
sub run_setenv
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1704
{
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1705
	my $self = shift;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1706
	my ( $key, $val ) = @_;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1707
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1708
	( $key, $val ) = split /=/, $key if $key && ! defined $val;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1709
	return unless $key && defined $val;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1710
	$key = lc $key;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1711
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1712
	$conf->{$key} = $val;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1713
	return;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1714
}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1715
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1716
sub run_whoami
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1717
{
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1718
	my $self = shift;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1719
	print $conf->{'binddn'} || 'anonymous bind';
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1720
	print "\n";
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1721
	return;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1722
}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1723
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1724
###############################################################
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1725
#
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1726
# MAIN
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1727
#
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1728
###############################################################
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1729
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1730
package main;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1731
use strict;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1732
use warnings;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1733
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1734
$0 = 'shelldap';
37
7a8855e7cfb8 Add a --version flag.
Mahlon E. Smith <mahlon@martini.nu>
parents: 36
diff changeset
  1735
my $VERSION = '0.5';
0
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1736
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1737
use Getopt::Long;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1738
use YAML::Syck;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1739
use Pod::Usage;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1740
eval 'use Term::ReadLine::Gnu';
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1741
warn qq{Term::ReadLine::Gnu not installed.
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1742
Continuing, but shelldap is of limited usefulness without it.\n\n} if $@;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1743
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1744
# get config - rc file first, command line overrides
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1745
use vars '$conf';
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1746
$conf = load_config() || {};
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1747
Getopt::Long::GetOptions(
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1748
	$conf, 
18
db47ba64ebda accept short option names for some options
Peter Marschall <peter@adpm.de>
parents: 17
diff changeset
  1749
	'server|H=s',
db47ba64ebda accept short option names for some options
Peter Marschall <peter@adpm.de>
parents: 17
diff changeset
  1750
	'binddn|D=s',
db47ba64ebda accept short option names for some options
Peter Marschall <peter@adpm.de>
parents: 17
diff changeset
  1751
	'basedn|b=s',
0
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1752
	'cacheage=i',
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1753
	'timeout=i',
3
0f815f3daaf7 Add options to support ssl key verification when connecting with TLS.
Mahlon E. Smith <mahlon@martini.nu>
parents: 1
diff changeset
  1754
	'tls_cacert=s',
0f815f3daaf7 Add options to support ssl key verification when connecting with TLS.
Mahlon E. Smith <mahlon@martini.nu>
parents: 1
diff changeset
  1755
	'tls_cert=s',
0f815f3daaf7 Add options to support ssl key verification when connecting with TLS.
Mahlon E. Smith <mahlon@martini.nu>
parents: 1
diff changeset
  1756
	'tls_key=s',
37
7a8855e7cfb8 Add a --version flag.
Mahlon E. Smith <mahlon@martini.nu>
parents: 36
diff changeset
  1757
	'tls', 'debug', 'version',
0
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1758
	 help => sub {
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1759
		Pod::Usage::pod2usage(
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1760
			-verbose => 1,
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1761
			-message => "\n$0 command line flags\n" . '-' x 65
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1762
		);
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1763
	}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1764
);
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1765
37
7a8855e7cfb8 Add a --version flag.
Mahlon E. Smith <mahlon@martini.nu>
parents: 36
diff changeset
  1766
# show version
7a8855e7cfb8 Add a --version flag.
Mahlon E. Smith <mahlon@martini.nu>
parents: 36
diff changeset
  1767
if ( $conf->{'version'} ) {
7a8855e7cfb8 Add a --version flag.
Mahlon E. Smith <mahlon@martini.nu>
parents: 36
diff changeset
  1768
	print "$VERSION\n";
7a8855e7cfb8 Add a --version flag.
Mahlon E. Smith <mahlon@martini.nu>
parents: 36
diff changeset
  1769
	exit( 0 );
7a8855e7cfb8 Add a --version flag.
Mahlon E. Smith <mahlon@martini.nu>
parents: 36
diff changeset
  1770
}
7a8855e7cfb8 Add a --version flag.
Mahlon E. Smith <mahlon@martini.nu>
parents: 36
diff changeset
  1771
0
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1772
# defaults
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1773
$conf->{'confpath'} = "$ENV{'HOME'}/.shelldap.rc";
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1774
$conf->{'cacheage'} ||= 300;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1775
$conf->{'timeout'}  ||= 10;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1776
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1777
# create and enter shell loop
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1778
my $shell = LDAP::Shell->new();
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1779
$shell->cmdloop();
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1780
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1781
# load YAML config into global conf.
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1782
#
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1783
sub load_config
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1784
{
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1785
	my ( $d, $data );
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1786
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1787
	my $confpath;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1788
	my @confs = (
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1789
		"$ENV{'HOME'}/.shelldap.rc",
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1790
		'/usr/local/etc/shelldap.conf',
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1791
		'/etc/shelldap.conf',
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1792
	);
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1793
	foreach ( @confs ) {
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1794
		if ( -e $_ ) {
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1795
			$confpath = $_;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1796
			last;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1797
		}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1798
	}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1799
	$confpath or return undef;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1800
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1801
	open YAML, $confpath or return undef;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1802
	do {
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1803
		local $/ = undef;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1804
		$data = <YAML>;  # slurp!
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1805
	};
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1806
	close YAML;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1807
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1808
	eval { $conf = YAML::Syck::Load( $data ) };
3
0f815f3daaf7 Add options to support ssl key verification when connecting with TLS.
Mahlon E. Smith <mahlon@martini.nu>
parents: 1
diff changeset
  1809
	die "Invalid YAML in $confpath\n" if $@;
0
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1810
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1811
	return $conf;
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1812
}
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1813
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1814
## EOF
f7990a76e217 Restructure for tags/branches.
mahlon
parents:
diff changeset
  1815