570 |
(if (looking-at "usage") |
(if (looking-at "usage") |
571 |
(error "Incorrect ldapsearch invocation") |
(error "Incorrect ldapsearch invocation") |
572 |
(message "Parsing results... ") |
(message "Parsing results... ") |
573 |
|
;; Skip error message when retrieving attribute list |
574 |
|
(if (looking-at "Size limit exceeded") |
575 |
|
(forward-line 1)) |
576 |
(while (progn |
(while (progn |
577 |
(skip-chars-forward " \t\n") |
(skip-chars-forward " \t\n") |
578 |
(not (eobp))) |
(not (eobp))) |
583 |
(while (looking-at "^\\(\\w*\\)[=:\t ]+\\(<[\t ]*file://\\)?\\(.*\\)$") |
(while (looking-at "^\\(\\w*\\)[=:\t ]+\\(<[\t ]*file://\\)?\\(.*\\)$") |
584 |
(setq name (match-string 1) |
(setq name (match-string 1) |
585 |
value (match-string 3)) |
value (match-string 3)) |
586 |
(save-excursion |
;; Do not try to open non-existent files |
587 |
(set-buffer bufval) |
(if (equal value "") |
588 |
(erase-buffer) |
(setq value " ") |
589 |
(set-buffer-multibyte nil) |
(save-excursion |
590 |
(insert-file-contents-literally value) |
(set-buffer bufval) |
591 |
(delete-file value) |
(erase-buffer) |
592 |
(setq value (buffer-string))) |
(set-buffer-multibyte nil) |
593 |
|
(insert-file-contents-literally value) |
594 |
|
(delete-file value) |
595 |
|
(setq value (buffer-string)))) |
596 |
(setq record (cons (list name value) |
(setq record (cons (list name value) |
597 |
record)) |
record)) |
598 |
(forward-line 1)) |
(forward-line 1)) |