Re: [gnu.emacs] EUDC and ldapsearch "-t" option and file open errors.

Re: [gnu.emacs] EUDC and ldapsearch "-t" option and file open errors.

[Bruce S. Skinner]

Hello Dan,

Many thanks to you and Andreas, I have it running now.

Dan Katz <dkatz@profitlogic.com> writes:

> On 14 Jan 2004, Bruce S. Skinner wrote:
> 
> This has been seen before -- a search of Google groups using the
> search terms "LDAP EUDC" will lead you to the right place.

I saw that thread <Blush> and discounted it as it was 2 years old.  It
was really late and I should have gone to bed earlier. 

regards :-)
BruceS

> That said, this is what I used to patch ldap.el to get it to work.
> (Credit for the solution goes to Andreas Ames.)  I keep promising
> myself that I'll go into ldap.el and figure out a better way to handle
> this, but somehow I never quite get the time... :-(
> 
> Dan
> 
> 
> 
> 
> --------------------------- Begin Patch --------------------------------
> 
> *** ldap.el	Fri Feb  7 12:43:17 2003
> --- ldap.el.orig	Fri May 31 14:37:41 2002
> ***************
> *** 568,575 ****
>   			   buf
>   			   nil	  
>   			   ,@arglist
> ! ;;			   "-t"		; Write values to temp files
> ! 			   "-LLL"	
>   			   ,@ldap-ldapsearch-args
>   			   ,@filter))
>         (insert "\n")
> --- 568,574 ----
>   			   buf
>   			   nil	  
>   			   ,@arglist
> ! 			   "-t"		; Write values to temp files
>   			   ,@ldap-ldapsearch-args
>   			   ,@filter))
>         (insert "\n")
> ***************
> *** 588,606 ****
>   	  (while (looking-at "^\\(\\w*\\)[=:\t ]+\\(<[\t ]*file://\\)?\\(.*\\)$")
>   	    (setq name (match-string 1)
>   		  value (match-string 3))
> ! ;;	    (save-excursion
> ! ;; 	      (set-buffer bufval)
> ! ;; 	      (erase-buffer)
> ! ;; 	      (insert-file-contents-literally value)
> ! ;; 	      (delete-file value)
> ! ;; 	      (setq value (buffer-substring (point-min) (point-max))))
> !             (if (string-match "^< file:///\\(.*\\)$" value)
> !                 (save-excursion
> !                   (set-buffer bufval)
> !                   (erase-buffer)
> !                   (insert-file-contents-literally value)
> !                   (delete-file value)
> !                   (setq value (buffer-substring (point-min) (point-max)))))
>   	    (setq record (cons (list name value)
>   			       record))
>   	    (forward-line 1))
> --- 587,598 ----
>   	  (while (looking-at "^\\(\\w*\\)[=:\t ]+\\(<[\t ]*file://\\)?\\(.*\\)$")
>   	    (setq name (match-string 1)
>   		  value (match-string 3))
> ! 	    (save-excursion
> ! 	      (set-buffer bufval)
> ! 	      (erase-buffer)
> ! 	      (insert-file-contents-literally value)
> ! 	      (delete-file value)
> ! 	      (setq value (buffer-substring (point-min) (point-max))))
>   	    (setq record (cons (list name value)
>   			       record))
>   	    (forward-line 1))
> 
> --------------------------END PATCH---------------------------------------

-- 

Bruce S. Skinner
Defence R&D Canada - Atlantic
9 Grove St.              <mailto:Bruce.Skinner@drdc-rddc.gc.ca>
P.O. Box 1012            <http://www.drdc-rddc.dnd.ca>
Dartmouth  NS
CANADA                    tel: (902) 426-3100 x205
B2Y 3Z7                   fax: (902) 426-9654