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