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