[LDAPsh-cvs] ldapsh ldapsh,1.52,1.53

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

Update of /cvsroot/ldapsh/ldapsh
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv21779

Modified Files:
	ldapsh 
Log Message:
* Resolve subroutine synonyms when using _LDAPShellCommandHelp.


Index: ldapsh
===================================================================
RCS file: /cvsroot/ldapsh/ldapsh/ldapsh,v
retrieving revision 1.52
retrieving revision 1.53
diff -C2 -d -r1.52 -r1.53
*** ldapsh	25 Feb 2004 02:09:31 -0000	1.52
--- ldapsh	13 Mar 2004 10:56:56 -0000	1.53
***************
*** 382,385 ****
--- 382,400 ----
  };
  
+ my $Synonyms = {
+ 	'which' => 'help',
+ 	'quit' => 'exit',
+ 	'disconnect' => 'unbind',
+ 	'source' => 'loadrc',
+ 	'cat' => 'ldif',
+ 	'sink' => 'redir',
+ 	'nosink' => 'noredir',
+ 	'new' => 'create',
+ 	'mkdir' => 'create',
+ 	'rm' => 'remove',
+ 	'mv' => 'rename',
+ 	'change' => 'apply',
+ };
+ 
  our ($COLUMNS, $CONNPARAMS, $CWD, $DNSEP, $EDITOR, $ENTRIES, $G, $LDAPCONN, $OLDWD, $PROMPT, $LASTFILE);
  our ($LDAPSH_PARSER, $PERL_RL); # read-only values
***************
*** 684,687 ****
--- 699,703 ----
  	if (defined($1)) {
  		my $cmd = reverse($1);
+ 		$cmd = $Synonyms->{$cmd} if defined $Synonyms->{$cmd};
  		print "...";
  		help($cmd);