;ELC ;;; Compiled by proclus@darwintel on Tue Jan 1 13:53:25 2008 ;;; from file /mnt/gmirror/ports/databases/bbdb/work/bbdb-2.34/lisp/bbdb-whois.el ;;; in Emacs version 21.2.1 ;;; with bytecomp version 1.1.1.4 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`bbdb-whois.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (require 'bbdb-com) (defalias 'bbdb-add-to-field '(macro . #[(record field text) "\305\306\307!P!\305\310\307!P!\311\312\n DD\304\fDD\313\314 \315BBEE*\207" [field set get record text intern "bbdb-record-" symbol-name "bbdb-record-set-" let old or (member text old) ((nconc old (list text)))] 7])) #@36 *Server for \[bbdb-whois] lookups. (custom-declare-variable 'bbdb-whois-server '(or (and (boundp 'whois-server) whois-server) "whois.geektools.com") '(#$ . -940) :group 'bbdb-utilities :type 'string) #@45 Used to store the name during a whois call. (defvar bbdb-whois-name nil (#$ . 1146)) (make-variable-buffer-local 'bbdb-whois-name) #@47 Used to store the record during a whois call. (defvar bbdb-whois-record nil (#$ . 1283)) (make-variable-buffer-local 'bbdb-whois-record) (defalias 'bbdb-whois #[(the-record &optional server) "\204 \n\306H\204\n\307H\205J\212\310\311!q\210 \nL\210\f\312\n\313\"\203-\314\312\n\313\"P\2025\n\306H\315\n\307HQL\210\316\317p\320$\321 \322\"\210\323 \f\324P\"*\207" [server bbdb-whois-server the-record bbdb-whois-record bbdb-whois-name proc 1 0 generate-new-buffer " *bbdb-whois*" bbdb-record-getprop nic "!" ", " open-network-stream "whois" 43 set-process-sentinel bbdb-whois-sentinel process-send-string " \n"] 5 nil (list (bbdb-get-record "BBDB Whois: ") (and current-prefix-arg (read-string "Query whois server: " bbdb-whois-server)))]) (defalias 'bbdb-whois-sentinel #[(proc status) "\212\306\307 !q\210\n\310b\210\311\312d\313#\204=\311\314d\313#\203%\315\316 \"\210\202I\311\317d\313#\2035\315\320\f\"\210\202I\315\321 \"\210\202I\322\323\324\"\210\310b\210\311\325\326 \"\203Y\327\330 \310\306O!\331Q\202^\330 !\332P\333P\306\313#\203D\334\224\205q\334\224\334\225{\227\310\224\310\225{\306\211<\203\234\335H<=>=>\235\204\233\335>=C\244I\210*\336\337#\210\310y\210\340 \210`\306\210`{\341H>?>\204\304\341?I\210\202\323>?\230\204\323\336\342?#\210*\310y\210\343\344!\204\354\340 \210`\306\210`{ B\202\324 @\203/ @\310\306@AB\325\345B\"\203\346@B\347\310\225OC\"@B\310\225T\306OB\202\373\346@BC\"@\350\351@\"\210 A+ @\203\324\352C\306\"\353\211\211\211DEFGH\325\354 @\"\203V @D A\325\355 @\"\203| @\310\224\310\225OG @\334\224\334\225OF @\341\224\341\225OE AH\347\356I\210H\334G\206\213\353I\210H\341F\206\226\353I\210H\357E\206\241\353I\210H\360D\206\254\353I\210 \237H\310 I\210\360HH=>=>\235\204\322\360>=C\244I\210.\306\310y\210\340 \210\343\361!\204\343\362!\203\n\335H\310\224\310\225{=>=>\235\204\335>=C\244I\210*\202\326`\306\210`{ B\202\326 \203%\336\363\364\365 \237\324##\210\311\366\306\313#\2037\336\367\310\224\310\225{#\210\212Iq\210\370!\210,\202I\315\371 \"\210\372 !\210\373p!*\207" [rec proc bbdb-whois-record bbdb-whois-name bbdb-whois-server lines nil process-buffer 1 re-search-forward "Record last updated" t "No match" message "Can not find a whois record for `%s'" "Access Limit Exceeded" "Per-day access limit to %s exceeded." "%s is ambiguous to whois; try a different name" replace-string " \n" "\n" string-match "^!" "(\\(" regexp-quote "\\))" ".*(\\([A-Z0-9]+\\))" "\\s *\\(\\S +@\\S +\\)?$" 2 6 bbdb-record-putprop nic back-to-indentation 3 nic-organization looking-at "^$" "^\\(.+\\) \\+" append 0 mapcar #[(p) "\306 \307H\"?\205,\310\311\312\n\"\" \307H \f \235\204& \307 \fC\244I\210*\nT\211)\207" [p rec n p-n text old bbdb-find-phone 4 vector format "nic-phone-%d"] 4] make-vector "" "^[A-Z][A-Z]$" "\\([^,]+\\),\\s *\\(\\S +\\)\\s *\\(.+\\)" "nic-address" 4 5 "$\\|Record last updated on" "Alternate mailbox: \\(\\S +\\)$" nic-notes mapconcat identity "Record last updated on \\(\\S *\\)\\." nic-updated bbdb-redisplay-one-record "No whois information for %s" delete-process kill-buffer net text old company phone-numbers n phones bbdb-address-length country zip state city addr bbdb-buffer-name] 8]) #@71 Return the vector entry if STRING is a phone number listed in RECORD. (defalias 'bbdb-find-phone #[(string record) "\304\211\n\203 \204 \n@ \305 !\230\203 \nA\211\204*\207" [done phone record string nil bbdb-phone-string] 4 (#$ . 4580)]) (provide 'bbdb-whois)