[LDAPsh-cvs] ldapsh ldapsh,1.48,1.49

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

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

Modified Files:
	ldapsh 
Log Message:
* An attempt at escaping some LDAP filter characters
  (currently only available with psh support).


Index: ldapsh
===================================================================
RCS file: /cvsroot/ldapsh/ldapsh/ldapsh,v
retrieving revision 1.48
retrieving revision 1.49
diff -C2 -d -r1.48 -r1.49
*** ldapsh	11 Feb 2004 00:09:45 -0000	1.48
--- ldapsh	24 Feb 2004 05:19:12 -0000	1.49
***************
*** 787,790 ****
--- 787,791 ----
  	my $text = shift;
  	$text =~ s/(?<!\\)([ ])/\\$1/g;
+ 	$text =~ s/(?<!\\)([*()])/\\\\$1/g;
  	return $text;
  }
***************
*** 793,797 ****
  	#return Psh::Parser::remove_backslash(shift);
  	my $text = shift;
! 	$text =~ s/\\([ ])/$1/g;
  	return $text;
  }
--- 794,798 ----
  	#return Psh::Parser::remove_backslash(shift);
  	my $text = shift;
! 	$text =~ s/\\([ *()])/$1/g;
  	return $text;
  }