ldapsh-cvs — Send notification on CVS commits

[LDAPsh-cvs] ldapsh ldapsh,1.17,1.18

[<j-d...@us...>]

Update of /cvsroot/ldapsh/ldapsh
In directory sc8-pr-cvs1:/tmp/cvs-serv27967

Modified Files:
	ldapsh 
Log Message:
Auto-quote arguments for "which" (same as for "help").


Index: ldapsh
===================================================================
RCS file: /cvsroot/ldapsh/ldapsh/ldapsh,v
retrieving revision 1.17
retrieving revision 1.18
diff -C2 -d -r1.17 -r1.18
*** ldapsh	27 Jul 2003 05:20:40 -0000	1.17
--- ldapsh	27 Jul 2003 06:30:55 -0000	1.18
***************
*** 2083,2087 ****
  	# complaining that "ou=Users" it's an illegal variable set, and
  	# that uses a bareword....
! 	s/^(cd|acd|setdn|pushd|lcd|help)\s+((?:[^'"].*)?[^'"])$/$1 "$2"/;
  
  	# The line below will quote some barewords such as "-l", "-a" etc...
--- 2083,2087 ----
  	# complaining that "ou=Users" it's an illegal variable set, and
  	# that uses a bareword....
! 	s/^(cd|acd|setdn|pushd|lcd|help|which)\s+((?:[^'"].*)?[^'"])$/$1 "$2"/;
  
  	# The line below will quote some barewords such as "-l", "-a" etc...

[LDAPsh-cvs] ldapsh ldapsh,1.17,1.17.6.1

[<j-d...@us...>]

Update of /cvsroot/ldapsh/ldapsh
In directory sc8-pr-cvs1:/tmp/cvs-serv27818

Modified Files:
      Tag: PATCH-778347
	ldapsh 
Log Message:
Accept command-line arguments (patch 778347).


Index: ldapsh
===================================================================
RCS file: /cvsroot/ldapsh/ldapsh/ldapsh,v
retrieving revision 1.17
retrieving revision 1.17.6.1
diff -C2 -d -r1.17 -r1.17.6.1
*** ldapsh	27 Jul 2003 05:20:40 -0000	1.17
--- ldapsh	27 Jul 2003 06:30:03 -0000	1.17.6.1
***************
*** 18,22 ****
  =head1 SYNOPSIS
  
! ldapsh
  
  =head1 EXAMPLE
--- 18,22 ----
  =head1 SYNOPSIS
  
! ldapsh [expression]
  
  =head1 EXAMPLE
***************
*** 1911,1914 ****
--- 1911,1916 ----
  
  So, in your shell you can type "ads" and get connected to a specific server.
+ Additionally, you could invoke B<ldapsh> as C<ldapsh ads> to call the function
+ straight away.
  
  Remember: you put in this file Perl code. So you can do whatever you want!!!
***************
*** 2066,2074 ****
  _Init();
  
  while (1) {
- 	my $APP = $Globals->{_APPENDRESULTS}{VALUE} ? '** ' : '';
- 	my $P = eval('return("' . $Globals->{PROMPT}{VALUE} . '")');
- 	print $@ unless defined $P;
- 	$_ = $Term->readline($P);
  	last unless defined($_);
  	s/^\s+//;
--- 2068,2077 ----
  _Init();
  
+ $_ = "@ARGV";
+ 
+ # Note: this loop will be executed once before the prompt is shown.
+ # This is to support command-line arguments and will occur whether
+ # or not any were given.
  while (1) {
  	last unless defined($_);
  	s/^\s+//;
***************
*** 2096,2099 ****
--- 2099,2107 ----
  	eval() || print STDERR $@;
  	redir if ($redir);
+ 
+ 	my $APP = $Globals->{_APPENDRESULTS}{VALUE} ? '** ' : '';
+ 	my $P = eval('return("' . $Globals->{PROMPT}{VALUE} . '")');
+ 	print $@ unless defined $P;
+ 	$_ = $Term->readline($P);
  }
  

[LDAPsh-cvs] ldapsh ldapsh,1.17,1.17.4.1

[<j-d...@us...>]

Update of /cvsroot/ldapsh/ldapsh
In directory sc8-pr-cvs1:/tmp/cvs-serv26568

Modified Files:
      Tag: PATCH-778345
	ldapsh 
Log Message:
If `cd` or `pushd` is invoked without arguments, the CWD is unchanged
and no error results. In this case, `pushd` will push the CWD onto the
directory stack.


Index: ldapsh
===================================================================
RCS file: /cvsroot/ldapsh/ldapsh/ldapsh,v
retrieving revision 1.17
retrieving revision 1.17.4.1
diff -C2 -d -r1.17 -r1.17.4.1
*** ldapsh	27 Jul 2003 05:20:40 -0000	1.17
--- ldapsh	27 Jul 2003 06:20:31 -0000	1.17.4.1
***************
*** 1109,1115 ****
  =head3 cd
  
! B<Synopsis>: C<cd 'E<lt>RDNE<gt>'>
  
  Change the I<current working directory> to the specified RDN. You can specify multiple RDNs separated by commas (in the reverse order of the DN, to allow completion). You can also specify ".." to go to the parent DN.
  
  See also the L<acd|acd>, L<setdn|setdn>, L<pushd|pushd> and L<popd|popd> commands.
--- 1109,1116 ----
  =head3 cd
  
! B<Synopsis>: C<cd ['E<lt>RDNE<gt>']>
  
  Change the I<current working directory> to the specified RDN. You can specify multiple RDNs separated by commas (in the reverse order of the DN, to allow completion). You can also specify ".." to go to the parent DN.
+ If no RDN is specified, the I<current working directory> is not changed.
  
  See also the L<acd|acd>, L<setdn|setdn>, L<pushd|pushd> and L<popd|popd> commands.
***************
*** 1121,1124 ****
--- 1122,1126 ----
  
  	my $SubPath = shift();
+ 	$SubPath = "" unless defined($SubPath);
  	$SubPath =~ s/\s*,\s*$//;
  	$SubPath = join(',', reverse(split(/\s*,\s*/, $SubPath)));
***************
*** 1202,1205 ****
--- 1204,1209 ----
  
  Perform the same action as the L<cd|cd> command. If the action succeeds, the old working directory is stored on a stack (which can be shown using L<dirs|dirs>). It can be restored using L<popd|popd>.
+ 
+ If no RDN is given, the I<current working directory> will be pushed onto the stack.
  
  =cut

[LDAPsh-cvs] ldapsh ldapsh,1.17,1.17.2.1

[<j-d...@us...>]

Update of /cvsroot/ldapsh/ldapsh
In directory sc8-pr-cvs1:/tmp/cvs-serv25191

Modified Files:
      Tag: PATCH-778341
	ldapsh 
Log Message:
Honour the environment variables $VISUAL and $EDITOR for
the "vi" command (patch 778341).


Index: ldapsh
===================================================================
RCS file: /cvsroot/ldapsh/ldapsh/ldapsh,v
retrieving revision 1.17
retrieving revision 1.17.2.1
diff -C2 -d -r1.17 -r1.17.2.1
*** ldapsh	27 Jul 2003 05:20:40 -0000	1.17
--- ldapsh	27 Jul 2003 06:10:00 -0000	1.17.2.1
***************
*** 219,223 ****
  	ENTRIES              => {VALUE => [], RIGHTS => 'RW'},
  	PROMPT               => {VALUE => '${APP}\[LDAP @ $CONNPARAMS->{SERVER}] $CWD > ', RIGHTS => 'RWL'},
! 	EDITOR               => {VALUE => 'vi', RIGHTS => 'RWL'},
  	G                    => {VALUE => undef, RIGHTS => 'RWL'},
  	_APPENDRESULTS       => {VALUE => 0, RIGHTS => ''},
--- 219,223 ----
  	ENTRIES              => {VALUE => [], RIGHTS => 'RW'},
  	PROMPT               => {VALUE => '${APP}\[LDAP @ $CONNPARAMS->{SERVER}] $CWD > ', RIGHTS => 'RWL'},
! 	EDITOR               => {VALUE => $ENV{VISUAL} ? $ENV{VISUAL} : ($ENV{EDITOR} ? $ENV{EDITOR} : 'vi'), RIGHTS => 'RWL'},
  	G                    => {VALUE => undef, RIGHTS => 'RWL'},
  	_APPENDRESULTS       => {VALUE => 0, RIGHTS => ''},
***************
*** 1979,1983 ****
  =head2 $EDITOR
  
! The default editor used when the L<vi|vi> command is called. By default this is "vi".
  
  =head2 $G
--- 1979,1984 ----
  =head2 $EDITOR
  
! The default editor used when the L<vi|vi> command is called. By default, this is obtained
! from the environment variable $VISUAL (if set) or $EDITOR (if set) or otherwise "vi".
  
  =head2 $G

[LDAPsh-cvs] ldapsh ldapsh,1.16,1.17

[<j-d...@us...>]

Update of /cvsroot/ldapsh/ldapsh
In directory sc8-pr-cvs1:/tmp/cvs-serv18499

Modified Files:
	ldapsh 
Log Message:
1) Updated documentation: using uniform terminology and punctuation,
   using <rcorvalan @ users.sourceforge.net> as the standard mailing
   address, using the word 'synonym' instead of alias (in case an
   'alias' function is defined in a future version of this file).

2) Moved local filesystem commands so they now appear immediately after
   CWD commands.

3) Added 'which' as a synonym for 'help'.


Index: ldapsh
===================================================================
RCS file: /cvsroot/ldapsh/ldapsh/ldapsh,v
retrieving revision 1.16
retrieving revision 1.17
diff -C2 -d -r1.16 -r1.17
*** ldapsh	27 Jul 2003 04:27:52 -0000	1.16
--- ldapsh	27 Jul 2003 05:20:40 -0000	1.17
***************
*** 4,12 ****
  
  #####################################################################
! # Copyright (c) 2002 Rafael Corvalan <raf...@ne...>
  # All rights reserved.
  # This program is free software; you can redistribute it and/or
  # modify it under the same terms as Perl itself.
! # Please submit comments/bugs to raf...@ne...
  #####################################################################
  
--- 4,12 ----
[...1127 lines suppressed...]
  =over 8
  
! =item * The excellent B<Net::LDAP> Perl module written by Graham Barr (see E<lt>http://perl-ldap.sourceforge.net/E<gt>).
  
! =item * The B<Term::ReadLine::Gnu> module (see E<lt>http://cnswww.cns.cwru.edu/php/chet/readline/rltop.htmlE<gt>).
  
  =back
***************
*** 1940,1944 ****
  =head1 AUTHOR
  
! Rafael Corvalan (raf...@ne...). Please report any bugs, or post any suggestions directly to my e-mail address.
  
  
--- 2007,2011 ----
  =head1 AUTHOR
  
! Rafael Corvalan (e-mail E<lt>rco...@us...E<gt>). Please report any bugs, or post any suggestions directly to my e-mail address.
  
  

[LDAPsh-cvs] ldapsh ldapsh,1.15,1.16

[<j-d...@us...>]

Update of /cvsroot/ldapsh/ldapsh
In directory sc8-pr-cvs1:/tmp/cvs-serv12471

Modified Files:
	ldapsh 
Log Message:
1) Revised indentation of code lines.

2) Added <pre> around HTML example lines.


Index: ldapsh
===================================================================
RCS file: /cvsroot/ldapsh/ldapsh/ldapsh,v
retrieving revision 1.15
retrieving revision 1.16
diff -C2 -d -r1.15 -r1.16
*** ldapsh	27 May 2003 12:08:28 -0000	1.15
--- ldapsh	27 Jul 2003 04:27:52 -0000	1.16
***************
*** 1,5 ****
  #!/usr/bin/perl -w
  
! # vim:ts=8:sts=4:ai:
  
  #####################################################################
--- 1,5 ----
  #!/usr/bin/perl -w
  
! # vim:ts=4:sw=4:noet:ai:
  
[...2739 lines suppressed...]
  
! 	# The line below will quote everything following some commands.
! 	# Purpose: type "cd ou=Users" without a Perl Compiler warning
! 	# complaining that "ou=Users" it's an illegal variable set, and
! 	# that uses a bareword....
! 	s/^(cd|acd|setdn|pushd|lcd|help)\s+((?:[^'"].*)?[^'"])$/$1 "$2"/;
  
! 	# The line below will quote some barewords such as "-l", "-a" etc...
! 	# It's not perfect, but simple
! 	while (s/([\s,])(-\w)([\s,]|$)/$1'$2'$3/g) {};
  
! 	my $redir;
! 	if ($redir = s/;\s*([|>][\s\w\d_\/.-]+)//) {
! 		redir($1);
! 	}
  
! 	eval() || print STDERR $@;
! 	redir if ($redir);
  }
  

[LDAPsh-cvs] ldapsh ldapsh,1.14,1.15

[<po...@us...>]

Update of /cvsroot/ldapsh/ldapsh
In directory sc8-pr-cvs1:/tmp/cvs-serv22160

Modified Files:
	ldapsh 
Log Message:
Add helper routines to ask user for text or boolean values (patch 629799)

Index: ldapsh
===================================================================
RCS file: /cvsroot/ldapsh/ldapsh/ldapsh,v
retrieving revision 1.14
retrieving revision 1.15
diff -C2 -d -r1.14 -r1.15
*** ldapsh	27 May 2003 12:06:32 -0000	1.14
--- ldapsh	27 May 2003 12:08:28 -0000	1.15
***************
*** 253,256 ****
--- 253,288 ----
  }
  
+ sub _askText($) {
+     my ($prompt) = @_;
+     my $oldMinLine = $Term->MinLine(undef);
+     my $response = $Term->readline($prompt);
+     $Term->MinLine($oldMinLine);
+     return $response || "";
+ }
+ 
+ sub _askBool($$) {
+     my ($prompt, $default) = @_;
+     my $choice;
+     my $retval;
+     if ($default) {
+ 	$choice = " [Y/n] ";
+     } else {
+ 	$choice = " [y/N] ";
+     }
+     my $oldMinLine = $Term->MinLine(undef);
+     my $response = $Term->readline($prompt.$choice);
+     $Term->MinLine($oldMinLine);
+     $response ||= "";
+     if ($response =~ /^y/i) {
+ 	$retval = 1;
+     } elsif ($response =~ /^n/i) {
+ 	$retval = 0;
+     } else {
+ 	$retval = $default || 0;
+     }
+ 
+     return $retval;
+ }
+ 
  sub _debug(@) {
      printf STDERR "\nvvvvvvvvvvvvvvvv\n" . join('', map {"'$_'\n"} @_) . "^^^^^^^^^^^^^^^^\n";

[LDAPsh-cvs] ldapsh ldapsh,1.13,1.14

[<po...@us...>]

Update of /cvsroot/ldapsh/ldapsh
In directory sc8-pr-cvs1:/tmp/cvs-serv21409

Modified Files:
	ldapsh 
Log Message:
Extend cp operation to copy multiple entries between subtrees (patch 606653)

Index: ldapsh
===================================================================
RCS file: /cvsroot/ldapsh/ldapsh/ldapsh,v
retrieving revision 1.13
retrieving revision 1.14
diff -C2 -d -r1.13 -r1.14
*** ldapsh	27 May 2003 12:04:19 -0000	1.13
--- ldapsh	27 May 2003 12:06:32 -0000	1.14
***************
*** 506,510 ****
      $line2 =~ s/^\s+//;
      my ($cmd, $rest) = split(/\s+/, $line2, 2);
!     if ($cmd =~ /^(cd|acd|setdn|pushd|cat|vi|ls|list|dump|ldif|search)$/) {
          return _cdCommandCompletion(@_);
      } else {
--- 506,510 ----
      $line2 =~ s/^\s+//;
      my ($cmd, $rest) = split(/\s+/, $line2, 2);
!     if ($cmd =~ /^(cd|acd|setdn|pushd|cat|vi|ls|list|dump|ldif|search|cp)$/) {
          return _cdCommandCompletion(@_);
      } else {
***************
*** 1624,1631 ****
  =head3 cp
  
! B<Synopsis>: C<cp E<lt>from-rdnE<gt> E<lt>to-rdnE<gt>>
  
! Copy an entry to a new dn.  Only 1:1 within same level in the LDAP
! tree.  From and to must be RDNs.
  
  =cut
--- 1624,1646 ----
  =head3 cp
  
! B<Synopsis>: C<cp E<lt>from-expansion|*E<gt> E<lt>toE<gt>>
  
! Copy an entry to a new dn or copy a set of entries to new locations in the
! LDAP tree.
! 
! "from-expansion" will be expanded in the usual way 
! (see L<Expansion|expansion>), with the addition that "*" corresponds to 
! the filter "(objectclass=*)".
! 
! If "to" is an B<RDN>, a single object will be copied to a new B<RDN> within 
! the same level of the LDAP tree, and you will get an error if "from-expansion"
! expands to more than one object.
! 
! If "to" is a B<DN>, all the objects from "from-expansion" will be be copied to
! the new location, using "to" as a base-dn and retaining their old B<RDN>s.
! This makes it convenient to copy many objects.
! 
! B<TODO>: With "to" a B<DN>, we may want to copy entire subtrees.  Currently we 
! only copy objects as leaves.
  
  =cut
***************
*** 1633,1653 ****
  sub cp($$) {
      my ($from, $to) = @_;
      my $entries = _entriesExpander undef, $from;
!     if (scalar(@$entries) != 1) {
  	print STDERR "$from does not exist or is ambiguous.\n";
  	return undef;
      }
-     my $entry = @$entries[0];
  
      my ($oldrdn, $oldpath) = splitdn($entry->dn, 2);
      my ($old_rdn_attr, $old_rdn_attr_val) = split("=", $oldrdn, 2);
!     my ($new_rdn_attr, $new_rdn_attr_val) = split("=", $to, 2);
!     if ($entry->exists($old_rdn_attr)) {
! 	$entry->delete($old_rdn_attr)
      }
  
-     my $newdn = "$to,$oldpath";
      $entry->dn($newdn);
      $entry->add($new_rdn_attr => $new_rdn_attr_val);
  
      my $result = $Globals->{LDAPCONN}{VALUE}->add($entry);
--- 1648,1681 ----
  sub cp($$) {
      my ($from, $to) = @_;
+     $from = undef if ($from eq "*");
+     my $localcopy = (scalar(splitdn($to,2)) == 1);  #I.e $to is an RDN.
      my $entries = _entriesExpander undef, $from;
!     if (scalar(@$entries) != 1 &&
!         $localcopy) {
  	print STDERR "$from does not exist or is ambiguous.\n";
  	return undef;
      }
  
+     foreach my $entry (@$entries) {
      my ($oldrdn, $oldpath) = splitdn($entry->dn, 2);
+ 	my ($newrdn) = splitdn($to, 2);
      my ($old_rdn_attr, $old_rdn_attr_val) = split("=", $oldrdn, 2);
! 	my ($new_rdn_attr, $new_rdn_attr_val) = split("=", $newrdn, 2);
! 
! 	my $newdn;
! 	if ($localcopy) {
! 	    $newdn = "$newrdn,$oldpath";
! 	} else {
! 	    $newdn = "$oldrdn,$to";
      }
  
      $entry->dn($newdn);
+ 
+ 	if ($localcopy) {
+ 	    if ($entry->exists($old_rdn_attr)) {
+ 		$entry->delete($old_rdn_attr)
+ 	    }
      $entry->add($new_rdn_attr => $new_rdn_attr_val);
+ 	}
  
      my $result = $Globals->{LDAPCONN}{VALUE}->add($entry);
***************
*** 1658,1661 ****
--- 1686,1690 ----
      }
      $Globals->{ENTRIES}{VALUE} = [];
+     }
  }
  

[LDAPsh-cvs] ldapsh ldapsh,1.12,1.13

[<po...@us...>]

Update of /cvsroot/ldapsh/ldapsh
In directory sc8-pr-cvs1:/tmp/cvs-serv20680

Modified Files:
	ldapsh 
Log Message:
Look for help in rc files as well (patch 629878)

Index: ldapsh
===================================================================
RCS file: /cvsroot/ldapsh/ldapsh/ldapsh,v
retrieving revision 1.12
retrieving revision 1.13
diff -C2 -d -r1.12 -r1.13
*** ldapsh	27 May 2003 12:02:08 -0000	1.12
--- ldapsh	27 May 2003 12:04:19 -0000	1.13
***************
*** 663,666 ****
--- 663,671 ----
  	require File::Temp;
  	my (undef, $podfile) = File::Temp::tempfile(UNLINK=>1);
+ 	my @docfiles = ($0);
+ 	my $found = 0;
+ 	push(@docfiles, $Opts->{GlobalRCFile}) if (-r $Opts->{GlobalRCFile});
+ 	push(@docfiles, $Opts->{RCFile}) if (-r $Opts->{RCFile});
+ 	foreach my $file (@docfiles) {
  	Pod::Select::podselect(
  	    {
***************
*** 671,680 ****
  				    "COMMANDS/.*/${cmd}"
  				]
! 	    }, $0);
  	if (-s $podfile) {
  	    print STDERR "\n------------------------------\n";
  	    $parser->parse_from_file($podfile, \*STDERR);
  	    print STDERR "\n------------------------------\n";
! 	} else {
  	    print STDERR "No help found on '$cmd'\n\n";
  	}
--- 676,689 ----
  				    "COMMANDS/.*/${cmd}"
  				]
! 		}, $file);
  	if (-s $podfile) {
  	    print STDERR "\n------------------------------\n";
  	    $parser->parse_from_file($podfile, \*STDERR);
  	    print STDERR "\n------------------------------\n";
! 		$found = 1;
! 		last;
! 	    }
! 	}
! 	if (! $found) {
  	    print STDERR "No help found on '$cmd'\n\n";
  	}

[LDAPsh-cvs] ldapsh ldapsh,1.11,1.12

[<po...@us...>]

Update of /cvsroot/ldapsh/ldapsh
In directory sc8-pr-cvs1:/tmp/cvs-serv19974

Modified Files:
	ldapsh 
Log Message:
Fix redirection regexp (patch 629812)

Index: ldapsh
===================================================================
RCS file: /cvsroot/ldapsh/ldapsh/ldapsh,v
retrieving revision 1.11
retrieving revision 1.12
diff -C2 -d -r1.11 -r1.12
*** ldapsh	27 May 2003 12:00:38 -0000	1.11
--- ldapsh	27 May 2003 12:02:08 -0000	1.12
***************
*** 1945,1949 ****
  
      my $redir;
!     if ($redir = s/([|>][\s\w\d_\/.-]+)//) {
  	redir($1);
      }
--- 1945,1949 ----
  
      my $redir;
!     if ($redir = s/;\s*([|>][\s\w\d_\/.-]+)//) {
  	redir($1);
      }

[LDAPsh-cvs] ldapsh ldapsh,1.10,1.11

[<po...@us...>]

Update of /cvsroot/ldapsh/ldapsh
In directory sc8-pr-cvs1:/tmp/cvs-serv19418

Modified Files:
	ldapsh 
Log Message:
Fix for readline-issues (patch 643018)

Index: ldapsh
===================================================================
RCS file: /cvsroot/ldapsh/ldapsh/ldapsh,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -d -r1.10 -r1.11
*** ldapsh	13 Sep 2002 11:53:54 -0000	1.10
--- ldapsh	27 May 2003 12:00:38 -0000	1.11
***************
*** 207,220 ****
      _InitReadLine();
  
!     $SIG{INT} = \&_resetTermRealine;
  }
  
! sub _resetTermRealine() {
      if (_isGnuReadLine()) {
- 	$Term->crlf;
  	$Term->free_line_state();
  	$Term->cleanup_after_signal();
- 	$Term->reset_after_signal();
- 	$Term->forced_update_display();
      }
  }
--- 207,218 ----
      _InitReadLine();
  
!     $SIG{INT} = 'IGNORE';
!     $SIG{__DIE__} = \&_resetTermReadline;
  }
  
! sub _resetTermReadline() {
      if (_isGnuReadLine()) {
  	$Term->free_line_state();
  	$Term->cleanup_after_signal();
      }
  }
***************
*** 257,261 ****
  sub _debug(@) {
      printf STDERR "\nvvvvvvvvvvvvvvvv\n" . join('', map {"'$_'\n"} @_) . "^^^^^^^^^^^^^^^^\n";
-     _resetTermRealine();
  }
  
--- 255,258 ----
***************
*** 286,290 ****
  	print STDERR "Binding...\n";
  	bind;
- 	_resetTermRealine;
      }
      return 1 if defined($Globals->{_EFFECTIVECONNPARAMS}{VALUE}{BINDDN});
--- 283,286 ----
***************
*** 401,405 ****
      if ($substr =~ /^\s*$/) {
  	help();
- 	_resetTermRealine;
  	return 1;
      }
--- 397,400 ----
***************
*** 414,418 ****
  	my $cmd = reverse($1);
  	help($cmd);
- 	_resetTermRealine;
  	return 1;
      } else {
--- 409,412 ----
***************
*** 842,846 ****
      if ($result->is_error) {
          warn $result->error;
- 	_resetTermRealine;
          return 1;
      }
--- 836,839 ----
***************
*** 982,986 ****
  
  sub reset {
!     _resetTermRealine();
      $Term->crlf if _isGnuReadLine();
  }
--- 975,979 ----
  
  sub reset {
!     _resetTermReadline();
      $Term->crlf if _isGnuReadLine();
  }

[LDAPsh-cvs] ldapsh ldapsh,1.9,1.10

[<rco...@us...>]

Update of /cvsroot/ldapsh/ldapsh
In directory usw-pr-cvs1:/tmp/cvs-serv5496

Modified Files:
	ldapsh 
Log Message:
1) Now loads to_utf8() and from_utf8() functions from Unicode::MapUFT8
   when start, so these functions can be used by the user

2) Added a few words in some in-line documentation (such as what is
   returned by a function)

3) The ldif() and vi() functions now return $entries instead of 1.

4) Now vi() uses the $EDITOR variable instead of using "vi". By default
   this variable is set to "vi"

5) Now, the redir() function returns a handler to the old file descriptor

6) Added a cp() function. Many thanks to Peder O. Klingenberg

7) Now simple pipes and file redirections can be done without having
   to use redir().
   Example: ls | grep external
   Example: ls > entries.list
   Warning: The parsing is very very simple, to avoig going into troubles
            and have to recognize if a pipe is or not inside a filter, for
            example.
            Only | and > are implemented, and Cafter them you can put only
            spaces, alphanumeric, ".", "_" or "-"


Index: ldapsh
===================================================================
RCS file: /cvsroot/ldapsh/ldapsh/ldapsh,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -d -r1.9 -r1.10
*** ldapsh	31 Jul 2002 09:54:33 -0000	1.9
--- ldapsh	13 Sep 2002 11:53:54 -0000	1.10
***************
*** 136,139 ****
--- 136,140 ----
  use Term::ReadLine;
  use Data::Dumper qw(Dumper);
+ use Unicode::MapUTF8 qw(to_utf8 from_utf8);
  use subs qw(connect bind dump exit reset);
  
***************
*** 1180,1183 ****
--- 1181,1186 ----
  The result entries go to the L<$ENTRIES|"$ENTRIES"> array reference.
  
+ Returns a reference to an array containing the Net::LDAP::Entry objects found.
+ 
  =cut
  
***************
*** 1213,1218 ****
  B<Synopsis>: C<search E<lt>expansionE<gt>>
  
! Search the entries returned by the expansion (see L<Expansion|expansion>). Does not dump the entries themselves, only a summary
! of the search results.
  
  =cut
--- 1216,1223 ----
  B<Synopsis>: C<search E<lt>expansionE<gt>>
  
! Search the entries returned by the expansion (see L<Expansion|expansion>).
! Does not dump the entries themselves, only a summary of the search results.
! 
! Returns a reference to an array containing the Net::LDAP::Entry objects found.
  
  =cut
***************
*** 1240,1243 ****
--- 1245,1250 ----
  Print the entries returned by the expansion (see L<Expansion|expansion>) in an LDIF format.
  
+ Returns a reference to an array containing the Net::LDAP::Entry objects found.
+ 
  =cut
  
***************
*** 1248,1252 ****
      require Net::LDAP::LDIF;
      Net::LDAP::LDIF->new(\*STDOUT,"w")->write(@$entries);
!     return 1;
  }
  
--- 1255,1259 ----
      require Net::LDAP::LDIF;
      Net::LDAP::LDIF->new(\*STDOUT,"w")->write(@$entries);
!     return $entries;
  }
  
***************
*** 1281,1287 ****
      my (undef, $tempfile) = File::Temp::tempfile('LDAPShell_vi_XXXXXXXXXX', SUFFIX => '.ldif');
      Net::LDAP::LDIF->new($tempfile,"w")->write(@$entries);
!     system("vi $tempfile");
!     unlink "$tempfile";
!     return 1;
  }
  
--- 1288,1294 ----
      my (undef, $tempfile) = File::Temp::tempfile('LDAPShell_vi_XXXXXXXXXX', SUFFIX => '.ldif');
      Net::LDAP::LDIF->new($tempfile,"w")->write(@$entries);
!     system($Globals->{EDITOR}{VALUE}, $tempfile);
!     unlink $tempfile;
!     return $entries;
  }
  
***************
*** 1443,1448 ****
--- 1450,1457 ----
  sub redir {
      my $out = shift || ">&STDOUTBCK";
+     open(tmpSTDOUTBCK, '>&STDOUT');
      open STDOUT, $out || return 0;
      select STDOUT; $|=1;
+     return(\*tmpSTDOUTBCK);
  }
  
***************
*** 1574,1579 ****
  }
  
- 
- 
  =head3 commit
  
--- 1583,1586 ----
***************
*** 1613,1616 ****
--- 1620,1662 ----
  
  
+ =head3 cp
+ 
+ B<Synopsis>: C<cp E<lt>from-rdnE<gt> E<lt>to-rdnE<gt>>
+ 
+ Copy an entry to a new dn.  Only 1:1 within same level in the LDAP
+ tree.  From and to must be RDNs.
+ 
+ =cut
+ 
+ sub cp($$) {
+     my ($from, $to) = @_;
+     my $entries = _entriesExpander undef, $from;
+     if (scalar(@$entries) != 1) {
+ 	print STDERR "$from does not exist or is ambiguous.\n";
+ 	return undef;
+     }
+     my $entry = @$entries[0];
+ 
+     my ($oldrdn, $oldpath) = splitdn($entry->dn, 2);
+     my ($old_rdn_attr, $old_rdn_attr_val) = split("=", $oldrdn, 2);
+     my ($new_rdn_attr, $new_rdn_attr_val) = split("=", $to, 2);
+     if ($entry->exists($old_rdn_attr)) {
+ 	$entry->delete($old_rdn_attr)
+     }
+ 
+     my $newdn = "$to,$oldpath";
+     $entry->dn($newdn);
+     $entry->add($new_rdn_attr => $new_rdn_attr_val);
+ 
+     my $result = $Globals->{LDAPCONN}{VALUE}->add($entry);
+     if ($result->is_error) {
+ 	printf STDERR qq{LDAP Error updating entry '%s'. Code:%s. Message:%s\n},
+ 	  $entry->dn, $result->code, $result->error;
+ 	return undef;
+     }
+     $Globals->{ENTRIES}{VALUE} = [];
+ }
+ 
+ 
  =head2 $ENTRIES manipulation
  
***************
*** 1901,1909 ****
      s/^(cd|acd|setdn|pushd|lcd|help)\s+((?:[^'"].*)?[^'"])$/$1 "$2"/;
  
!     # The line below will quote some barewords like "-l", "-a" etc...
      # It's not perfect, but simple
      while (s/([\s,])(-\w)([\s,]|$)/$1'$2'$3/g) {};
  
      eval() || print STDERR $@;
  }
  
--- 1947,1961 ----
      s/^(cd|acd|setdn|pushd|lcd|help)\s+((?:[^'"].*)?[^'"])$/$1 "$2"/;
  
!     # The line below will quote some barewords such as "-l", "-a" etc...
      # It's not perfect, but simple
      while (s/([\s,])(-\w)([\s,]|$)/$1'$2'$3/g) {};
  
+     my $redir;
+     if ($redir = s/([|>][\s\w\d_\/.-]+)//) {
+ 	redir($1);
+     }
+ 
      eval() || print STDERR $@;
+     redir if ($redir);
  }
  

[LDAPsh-cvs] website index.html,NONE,1.1 links.html,NONE,1.1 main.html,NONE,1.1 perl_id_bw_sm_bu.gif,NONE,1.1 top.html,NONE,1.1

[<rco...@us...>]

Update of /cvsroot/ldapsh/website
In directory usw-pr-cvs1:/tmp/cvs-serv24990

Added Files:
	index.html links.html main.html perl_id_bw_sm_bu.gif top.html 
Log Message:
First version


--- NEW FILE: index.html ---
<html>

<head>
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>The LDAP Shell</title>
</head>

<frameset rows="123,*">
  <frame name="banner" scrolling="no" noresize target="contents" src="top.html">
  <frameset cols="150,*">
    <frame name="contents" target="main" src="links.html">
    <frame name="main" src="main.html" scrolling="auto">
  </frameset>
  <noframes>
  <body>

  <p>This page uses frames, but your browser doesn't support them.</p>

  </body>
  </noframes>
</frameset>

</html>
--- NEW FILE: links.html ---
<html>

<head>
<meta http-equiv="Content-Language" content="fr-ch">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Main links</title>
<base target="main">
</head>

<body bgcolor="#F0F0FF">

<p align="center"><font size="4" color="#000080"><b>LDAPsh links</b></font></p>
<p><a href="main.html">Home page</a><br>
<a href="http://sourceforge.net/projects/ldapsh">Project page</a><br>
<a href="http://sourceforge.net/project/showfiles.php?group_id=54115">Releases</a><br>
<a href="http://sourceforge.net/news/?group_id=54115">News</a><br>
<a href="http://sourceforge.net/docman/display_doc.php?docid=11405&group_id=54115">
Documentation</a><br>
<a href="http://sourceforge.net/tracker/?group_id=54115&atid=472731">Bugs</a><br>
<a href="http://sourceforge.net/mail/?group_id=54115">Mailing lists</a><br>
<a href="http://sourceforge.net/forum/?group_id=54115">Forums</a><br>
<a href="http://sourceforge.net/tracker/?atid=472734&group_id=54115&func=browse">
Feature requests</a></p>
<hr>
<p align="center"><font size="4" color="#000080"><b>Other links</b></font></p>
<p><a href="http://www.perl.com">Perl</a><br>
<a href="http://perl-ldap.sourceforge.net/">Perl-LDAP</a></p>

<hr>
<p><a href="http://sourceforge.net/sendmessage.php?touser=551514">Message to the 
author</a></p>

</body>

</html>
--- NEW FILE: main.html ---
<html>

<head>
<meta http-equiv="Content-Language" content="en-us">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>LDAP</title>
<style>
<!--
span.package { font-family: Courier New; color: #008888; font-size: 95% }
span.perlcode { font-family: Courier New; color: #800000; font-size: 95% }
-->
</style>
</head>

<body bgcolor="#F0F0FF">

<p>This is the home page of the LDAP shell (<b>ldapsh</b>), a command line 
utility to easy administration of LDAP directories content.</p>
<p>This tool is entirely written in perl, based on the excellent module
<span class="package">Net::LDAP</span>. It has been tested 
on Linux/RedHat and on Windows 2000/ActiveState.</p>
<p>You will need:</p>
<ul>
  <li>Perl 5</li>
  <li><span class="package"><font face="Courier New">Net::LDAP</font></span></li>
  <li><span class="package">Devel::Symdump</span><i> (for command completion)</i></li>
  <li><span class="package">Pod::Select</span></li>
  <li><span class="package">File::Temp</span></li>
</ul>
<p>Optional Perl packages:</p>
<ul>
  <li><span class="package">IO::Socket::SSL</span><i> (if you want to use SSL)</i></li>
  <li><span class="package">Pod::Text::Termcap</span><i> (for niver help 
  formatting)</i></li>
  <li><span class="package">Term::ReadLine::Gnu</span><i> (if you want great command line editor)</i></li>
</ul>
<p>It's somewhat well documented (POD embedded documentation) but it's not yet 
well packaged (some volunteers?). 
To use it, you should have a good knowledge in Perl, and for advanced features 
(the <i>change</i> command for example), a good knowledge in 
<span class="package">Net::LDAP</span>.</p>
<p>With it, you can do things such as (remember, it's a shell):</p>

<table cellspacing="0" cellpadding="6" style="border:medium inset; border-collapse:collapse" bordercolordark="#000080" bordercolor="#111111" bordercolorlight="#FFFFFF">
  <tr>
    <td><span class="perlcode">cd ou=Users<br>
    search 'profilepath=*'<br>
    change {$_-&gt;delete('profilepath') if $_-&gt;get_value('department') =~ /(Old|New) NAME/i}<br>
    changes<br>
    commit</span></td>
  </tr>
</table>
<p>This will:</p>

<div style="margin-left:2em; border-left-style: outset">
<ol>
  <li>Change the &quot;working directory&quot; to &quot;<span class="perlcode">OU=Users</span>&quot;</li>
  <li>Search all the entries with an<i> existing </i>attribute &quot;<span class="perlcode">profilepath</span>&quot;</li>
  <li>Delete the &quot;<span class="perlcode">profilepath</span>&quot; attribute for all entries where the &quot;department&quot; 
matches <span class="perlcode"> /(Old|New) Name/i</span></li>
  <li>Show the changes done</li>
  <li>Commit the changes to the server (<span class="perlcode">Net::LDAP::Entry-&gt;update</span>)<br>
  </li>
</ol>
</div>

<p>You can also do &quot;<span class="perlcode">ls</span>&quot;, &quot;<span class="perlcode">cd</span>&quot;...<br>
You can ask for help with &quot;<span class="perlcode">help</span>&quot;, or typing &quot;&lt;<span class="perlcode">CTRL&gt;-t</span>&quot; after a command (&quot;<span class="perlcode">bind
&lt;CTRL&gt;-t</span>&quot;) (provided you have <span class="package">Term::ReadLine::Gnu</span> installed). </p>
<p>And a lot of more cool things. </p>
<p>See the HTML documentation (or type <span class="perlcode"> perlpod ldapsh</span>).</p>
<p>The distribution have 3 files:</p>
<ol>
  <li><b><span class="perlcode">ldapsh</span></b>: The shell itself. Runs under Unix/Windows provided you have Net::LDAP 
(and preferably <span class="package">Term::ReadLine::Gnu</span>)</li>
  <li><b><span class="perlcode">ldapsh.html</span></b>: The code generated with pod2html</li>
  <li>A sample of <b><span class="perlcode">.ldapshrc</span></b> (rename it from 
  <span class="perlcode">ldapshrc</span> to <span class="perlcode">.ldapshrc</span>, edit it and put 
it on your home directory).</li>
</ol>
<p>Feel free to send comments, suggestions, bug reports, using the SourceForge 
web forms (see <a href="http://sourceforge.net/projects/ldapsh">
http://sourceforge.net/projects/ldapsh</a>) or sending an e-mail to rcorvalan at 
users.sourceforge.net.</p>

<hr><i>Rafael Corvalan &lt;<a href="http://sourceforge.net/sendmessage.php?touser=551514">rcorvalan at 
users.sourceforge.net</a>&gt;</i></body></html>
--- NEW FILE: perl_id_bw_sm_bu.gif ---
(This appears to be a binary file; contents omitted.)

--- NEW FILE: top.html ---
<html>

<head>
<meta http-equiv="Content-Language" content="fr-ch">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>LDAPsh</title>
<base target="contents">
</head>

<body bgcolor="#F0F0FF">

<table border="0" cellspacing="1" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1">
  <tr>
    <td width="33%"><a href="http://www.perl.com">
    <img border="0" src="perl_id_bw_sm_bu.gif" width="90" height="90"></a></td>
    <td align="center" width="33%"><b><i>
    <font face="Century Gothic" size="7" color="#000080">LDAPsh</font></i></b></td>
    <td align="right" width="33%">

<a href="http://sourceforge.net"><img 
src="http://sourceforge.net/sflogo.php?group_id=54115&type=4" 
width="125" height="37" border="0" alt="SourceForge.net Logo"></a></td>
  </tr>
</table>

</body>

</html>

[LDAPsh-cvs] build-rel/template ldapsh.css,NONE,1.1

[<rco...@us...>]

Update of /cvsroot/ldapsh/build-rel/template
In directory usw-pr-cvs1:/tmp/cvs-serv22654

Added Files:
	ldapsh.css 
Log Message:
First version


--- NEW FILE: ldapsh.css ---
/* Created using Style Master from Western Civilisation CSS1 { -23 -4 897 722 } */

/* standard elements */

body {
background-color: #FFFFFF;
font-family: Verdana, Arial, Helvetica, sans-serif;
font-weight: normal;
}

td {
font-size: 12px;
font-family: Verdana, Arial, Helvetica, sans-serif;
font-weight: normal;
text-decoration: none;
}

td.block {
padding-top: .4em;
padding-bottom: .4em;
}

input {
font-size: 12px;
}

select {
font-size: 12px;
}

p {
color: #000000;
font-size: 11px;
font-family: Verdana, Arial, Helvetica, sans-serif;
font-weight: normal;
}

blockquote {
color: #000000;
font-size: 11px;
font-family: Verdana, Arial, Helvetica, sans-serif;
font-weight: normal;
}

dl {
color: #000000;
font-size: 11px;
font-family: Verdana, Arial, Helvetica, sans-serif;
font-weight: normal;
}

dt {
color: #000000;
font-size: 11px;
font-family: Verdana, Arial, Helvetica, sans-serif;
font-weight: normal;
}

ul {
color: #000000;
font-size: 11px;
font-family: Verdana, Arial, Helvetica, sans-serif;
font-weight: normal;
list-style-type: disc;
}

ul ul ul li {
margin-top: -.2em;
}

ol {
color: #000000;
font-size: 11px;
font-family: Verdana, Arial, Helvetica, sans-serif;
font-weight: normal;
}

h1 {
font-family: Verdana, Arial, Helvetica, sans-serif;
font-size: 18px;
font-weight: bold;
color: #B82619;
border-top: 1px #d5ccb7 solid;
border-bottom: 1px #d5ccb7 solid;
padding-top: .2em;
padding-bottom: .2em;
background-color: #f4e7dd;
}

h2 {
font-family: Verdana, Arial, Helvetica, sans-serif;
font-size: 13px;
font-weight: bold;
color: #B82619;
background-color: #EAE2BB;
margin-right: 40%;
padding-top: .2em;
padding-bottom: .2em;
}

h3 {
font-family: Verdana, Arial, Helvetica, sans-serif;
font-size: 12px;
font-weight: bold;
color: #B82619;
background-color: #f4eaff;
margin-right: 60%;
padding-top: .2em;
padding-bottom: .2em;
}

h4 {
font-family: Verdana, Arial, Helvetica, sans-serif;
font-size: 11px;
font-weight: bold;
color: #B82619;
}

/* default links */

a:link {
color: #B82619;
text-decoration: underline;
}

a:visited {
color: #80764F;
text-decoration: underline;
}

a:hover {
color: #000000;
text-decoration: underline;
}

a:active {
color: #B82619;
text-decoration: underline;
}

/* documentation link formatting */

a.doc:link {
color: #B82619;
text-decoration: underline;
font-size: 13px;
}

a.doc:visited {
color: #80764F;
text-decoration: underline;
font-size: 13px;
}

a.doc:hover {
color: #000000;
text-decoration: underline;
font-size: 13px;
}

a.doc:active {
color: #B82619;
text-decoration: underline;
font-size: 13px;
}

/* general styles */

.heading {
font-family: Verdana, Arial, Helvetica, sans-serif;
font-size: 18px;
font-weight: bold;
color: #B82619;
}

.headingwhite {
font-family: Verdana, Arial, Helvetica, sans-serif;
font-size: 18px;
font-weight: bold;
color: #FFFFFF;
}

.subheading {
font-family: Verdana, Arial, Helvetica, sans-serif;
font-size: 12px;
font-weight: bold;
color: #B82619;
}

.subheadingsmall {
font-family: Verdana, Arial, Helvetica, sans-serif;
font-size: 11px;
font-weight: bold;
color: #B82619;
}

.subheadingblack {
font-family: Verdana, Arial, Helvetica, sans-serif;
font-size: 12px;
font-weight: bold;
color: #000000;
}

.subheadingwhite {
font-family: Verdana, Arial, Helvetica, sans-serif;
font-size: 12px;
font-weight: bold;
color: #FFFFFF;
}

.docsubheading {
font-family: Verdana, Arial, Helvetica, sans-serif;
font-size: 13px;
font-weight: bold;
color: #B82619;
background-color: #EAE2BB;
}

.docsubheadinggrey {
font-family: Verdana, Arial, Helvetica, sans-serif;
font-size: 13px;
font-weight: bold;
color: #B82619;
background-color: #cccccc;
}

.error {
color: #B82619;
}

.err {
color: #B82619;
}

/* deco */

.lineColour {
background-color: #999999;
}

/* unordered list without bullets */

ul.sans {
list-style-type: none;
}

/* user options */

td.userOptions {
background-color: #FFFFFF;
font-size: 11px;
font-family: Verdana, Arial, Helvetica, sans-serif;
font-weight: bold;
text-decoration: none;
}

td.userOptions a:link {
color: #B82619;
text-decoration: underline;
}

td.userOptions a:visited {
color: #B82619;
text-decoration: underline;
}

/* primary navigation selected */

td.navSel {
background-color: #EAE2BB;
font-size: 12px;
font-family: Verdana, Arial, Helvetica, sans-serif;
font-weight: bold;
}

td.navSel a:link {
color: #000000;
text-decoration: none;
}

td.navSel a:hover {
color: #B82619;
text-decoration: underline;
}

td.navSel a:active {
color: #B82619;
text-decoration: underline;
}

td.navSel a:visited {
color: #000000;
text-decoration: none;
}

/* primary navigation not selected */

td.navunSel {
background-color: #B82619;
font-size: 12px;
font-family: Verdana, Arial, Helvetica, sans-serif;
font-weight: bold;
text-decoration: none;
}

td.navunSel a:link {
color: #FFFFFF;
text-decoration: none;
}

td.navunSel a:hover {
color: #FFFFFF;
text-decoration: underline;
}

td.navunSel a:active {
color: #FFFFFF;
text-decoration: underline;
}

td.navunSel a:visited {
color: #FFFFFF;
text-decoration: none;
}

/* secondary nav */

td.navSecondary {
background-color: #EAE2BB;
color: #000000;
font-size: 11px;
font-family: Verdana, Arial, Helvetica, sans-serif;
font-weight: bold;
}

td.navSecondary a:link {
color: #000000;
text-decoration: none;
}

td.navSecondary a:hover {
color: #B82619;
text-decoration: underline;
}

td.navSecondary a:active {
color: #B82619;
text-decoration: underline;
}

td.navSecondary a:visited {
color: #000000;
text-decoration: none;
}

/* categories */

p.cat {
line-height : 5px;
}

p.cat a:link {
color: #B82619;
}

p.cat a:hover {
color: #000000;
}

p.cat a:active {
color: #B82619;
}

p.cat a:visited {
color: #B82619;
}

/* not currently used a.cat1 { font-size: 12px; font-family: Verdana, Arial, Helvetica, sans-serif; font-weight: normal; } a.cat1:link { color: #B82619; } a.cat1:hover { color: #000000; } a.cat1:active { color: #B82619; } a.cat1:visited { color: #80764F; } a.cat2 { font-size: 11px; font-family: Verdana, Arial, Helvetica, sans-serif; font-weight: normal; text-indent: 5px; } a.cat2:link { color: #B82619; } a.cat2:hover { color: #000000; } a.cat2:active { color: #B82619; } a.cat2:visited { color: #80764F; } */

/* path */

td.path {
font-family: Verdana, Arial, Helvetica, sans-serif;
font-size: 11px;
font-weight: normal;
color: #000000;
text-decoration: none;
}

/* footer */

td.footer {
font-family: Verdana, Arial, Helvetica, sans-serif;
font-size: 11px;
color: #000000;
text-decoration: none;
}

td.formRequired {
font-size: 12px;
font-family: Verdana, Arial, Helvetica, sans-serif;
font-weight: bold;
}

/* search */

td.searchResults {
background-color: #FFFFFF;
font-size: 12px;
font-family: Verdana, Arial, Helvetica, sans-serif;
font-weight: normal;
text-decoration: none;
}

td.previousNext {
background-color: #FFFFFF;
font-size: 11px;
font-family: Verdana, Arial, Helvetica, sans-serif;
font-weight: normal;
}

td.previousNextRef {
background-color: #EEEEEE;
font-size: 11px;
font-family: Verdana, Arial, Helvetica, sans-serif;
font-weight: normal;
}

td.treeRefMain {
background-color: #FFFFFF;
font-size: 12px;
font-family: Verdana, Arial, Helvetica, sans-serif;
font-weight: normal;
}

td.treeRefMain a:link {
color: #000000;
text-decoration: none;
}

td.treeRefMain a:visited {
color: #666666;
text-decoration: none;
}

td.treeRefMain a:hover {
color: #B82619;
text-decoration: underline;
}

td.treeRefMain a:active {
color: #B82619;
text-decoration: underline;
}

td.treeRef {
background-color: #FFFFFF;
font-size: 11px;
font-family: Verdana, Arial, Helvetica, sans-serif;
font-weight: normal;
}

td.treeRef a:link {
color: #000000;
text-decoration: none;
}

td.treeRef a:visited {
color: #666666;
text-decoration: none;
}

td.treeRef a:hover {
color: #B82619;
text-decoration: underline;
}

td.treeRef a:active {
color: #B82619;
text-decoration: underline;
}

td.downloads {
background-color: #FFFFFF;
font-size: 11px;
font-family: Verdana, Arial, Helvetica, sans-serif;
font-weight: normal;
}

td.downloads a:link {
color: #B82619;
}

td.downloads a:visited {
color: #B82619;
}

td.downloadsBeta {
background-color: #EEEEEE;
font-size: 11px;
font-family: Verdana, Arial, Helvetica, sans-serif;
font-weight: normal;
}

td.downloadsBeta a:link {
color: #B82619;
}

td.downloadsBeta a:visited {
color: #B82619;
}

p.downloadsMain {
background-color: #FFFFFF;
font-size: 12px;
font-family: Verdana, Arial, Helvetica, sans-serif;
font-weight: bold;
}

p.downloadsMain a:link {
font-size: 11px;
font-weight: normal;
}

p.downloadsMain a:hover {
font-size: 11px;
font-weight: normal;
}

p.downloadsMain a:active {
font-size: 11px;
font-weight: normal;
}

p.downloadsMain a:visited {
font-size: 11px;
color: #B82619;
font-weight: normal;
}

p.downloadsMain a.downloadName:link {
font-size: 11px;
color: #000000;
font-weight: bold;
}

p.downloadsMain a.downloadName:hover {
font-size: 11px;
color: #000000;
font-weight: bold;
}

p.downloadsMain a.downloadName:active {
font-size: 11px;
color: #000000;
font-weight: bold;
}

p.downloadsMain a.downloadName:visited {
font-size: 11px;
color: #000000;
font-weight: bold;
}

td.quote {
color: #666666;
font-size: 11px;
}

/* stuff for cookbook coloring */

.syntaxstring {
color: #23238e;
}

.syntaxtext {
color: #000000;
}

.syntaxcomment {
color: #696969;
}

.syntaxname {
color: #000000;
}

.syntaxerror {
color: #e63c3c;
}

.syntaxkeyword {
color: #871f78;
}

/* end stuff */

/* shopping cart */

td.SCheader {
background-color: #C2B266;
font-size: 12px;
font-family: Verdana, Arial, Helvetica, sans-serif;
font-weight : bold;
text-align : center;
}

td.SCshade {
background-color: #EAE2BB;
font-size: 12px;
font-family: Verdana, Arial, Helvetica, sans-serif;
}

/* used on popup */

a.windowClose:link {
font-size: 10px;
font-weight: bold;
color: #FFFFFF;
}

a.windowClose:visited {
font-size: 10px;
font-weight: bold;
color: #FFFFFF;
}

a.windowClose:hover {
font-size: 10px;
font-weight: bold;
color: #FFFFFF;
}

a.windowClose:active {
font-size: 10px;
font-weight: bold;
color: #FFFFFF;
}

[LDAPsh-cvs] build-rel FILELIST,NONE,1.1 build,NONE,1.1

[<rco...@us...>]

Update of /cvsroot/ldapsh/build-rel
In directory usw-pr-cvs1:/tmp/cvs-serv21726

Added Files:
	FILELIST build 
Log Message:
First version


--- NEW FILE: FILELIST ---
GEN	ldapsh/ldapsh.html
TMPL	ldapsh/ldapsh.css
CVS	ldapsh/README
CVS	ldapsh/ldapsh
CVS	ldapsh/ldapshrc
CVS	ldapsh/CHANGES

--- NEW FILE: build ---
#!/bin/sh

CVS_FILELIST=$(sed -n 's/^CVS	//p' FILELIST)
ALL_FILELIST=$(sed -n 's/^[a-zA-Z0-9_-]*	//p' FILELIST)

rm -fr ldapsh || exit
cp -r template ldapsh || exit

(cd ../; tar fc - $CVS_FILELIST) | tar fx -

VERSION=$1

FILERELEASE=$(sed -n 's/^my \$RELEASE = .\([0-9.-]*\).;/\1/p' ldapsh/ldapsh)

if [ "$VERSION" != "$FILERELEASE" ]
then
	echo "Release in the file is $FILERELEASE !!!"
	echo "Aborted"
	exit
fi

pod2html -backlink 'Back to Top' -header -css ldapsh.css ldapsh/ldapsh > ldapsh/ldapsh.html
rm pod2htm[id].x~~

DIR="Release-$VERSION"

mkdir $DIR || exit

tar -c --gzip -f $DIR/ldapsh-${VERSION}.tar.gz  $ALL_FILELIST
tar -c --bzip -f $DIR/ldapsh-${VERSION}.tar.bz2 $ALL_FILELIST
zip -q           $DIR/ldapsh-${VERSION}.zip     $ALL_FILELIST

[LDAPsh-cvs] build-rel/template - New directory

[<rco...@us...>]

Update of /cvsroot/ldapsh/build-rel/template
In directory usw-pr-cvs1:/tmp/cvs-serv22016/template

Log Message:
Directory /cvsroot/ldapsh/build-rel/template added to the repository

[LDAPsh-cvs] website - New directory

[<rco...@us...>]

Update of /cvsroot/ldapsh/website
In directory usw-pr-cvs1:/tmp/cvs-serv18243/website

Log Message:
Directory /cvsroot/ldapsh/website added to the repository

[LDAPsh-cvs] build-rel - New directory

[<rco...@us...>]

Update of /cvsroot/ldapsh/build-rel
In directory usw-pr-cvs1:/tmp/cvs-serv18243/build-rel

Log Message:
Directory /cvsroot/ldapsh/build-rel added to the repository

[LDAPsh-cvs] ldapsh,1.8,1.9 ldapshrc,1.2,1.3

[<rco...@us...>]

Update of /cvsroot/ldapsh
In directory usw-pr-cvs1:/tmp/cvs-serv11031

Modified Files:
	ldapsh ldapshrc 
Log Message:
Contributed by Peder O. Klingenberg (pok):

====== START ======
Bring SSL in line with standards
According to the documentation for Net::LDAPS, usage of
Net::LDAPS is discouraged. The correct way of doing
things is by using Net::LDAP with its method start_tls.

This is controlled through setting $CONNPARAMS->{SSL} to
'ssl' or 'tls'. 'ssl' will connect with SSL encapsulation
(usually port 636). 'tls' will send a start_tls message, so
usually the port is the standard LDAP port (389)
====== END ======


Index: ldapshrc
===================================================================
RCS file: /cvsroot/ldapsh/ldapshrc,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** ldapshrc	6 Jun 2002 16:14:05 -0000	1.2
--- ldapshrc	31 Jul 2002 09:54:33 -0000	1.3
***************
*** 12,16 ****
  sub unixldap {
  	$CONNPARAMS->{SERVER}	= 'ldap-2';
! 	$CONNPARAMS->{SSL}	= 1;
  	$CONNPARAMS->{PORT}	= 636;
  	$CONNPARAMS->{BINDDN}	= '';
--- 12,16 ----
  sub unixldap {
  	$CONNPARAMS->{SERVER}	= 'ldap-2';
! 	$CONNPARAMS->{SSL}	= 'ssl';
  	$CONNPARAMS->{PORT}	= 636;
  	$CONNPARAMS->{BINDDN}	= '';