[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);
  }