;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\303\304!\204\300\304!\210\300\207" [require jabber-xml jabber-util fboundp sha1] 2) #@52 Send IQ get request in namespace "jabber:iq:auth". (defalias 'jabber-get-auth #[(jc to session-id) "\303 \304\305\306\307\310\311\312!\313\"EE\314\n\315\316&\207" [jc to session-id jabber-send-iq "get" query ((xmlns . "jabber:iq:auth")) username nil plist-get fsm-get-state-data :username jabber-do-logon jabber-report-success "Impossible error - auth field request"] 11 (#$ . 212)]) #@45 send username and password in logon attempt (defalias 'jabber-do-logon #[(jc xml-data session-id) "\306\307!\310\"\211\204\311\312\n!\313\"\204\314\315!\205(\311\312\n!\316\"\206(\317\320\n!!\321 \2046\322\n\323\"\202\202 \203F\310\321\324 P!E\202K\325\321 E\311\312\n!\326\"\204\\\327\312\n!\326\330#\210\331\n\311\312\n!\332\"\333\334\335\336\321\311\312\n!\337\"E\f\340\321\311\312\n!\326\"E\257\341 \341\321&+\207" [xml-data digest-allowed jc passwd auth session-id jabber-xml-get-children jabber-iq-query digest plist-get fsm-get-state-data :encrypted yes-or-no-p "Jabber server only allows cleartext password transmission! Continue? " :password jabber-read-password jabber-connection-bare-jid nil fsm-send :authentication-failure sha1 password :resource plist-put "emacs-jabber" jabber-send-iq :server "set" query ((xmlns . "jabber:iq:auth")) username :username resource jabber-process-logon] 14 (#$ . 605)]) #@122 receive login success or failure, and request roster. CLOSURE-DATA should be the password on success and nil on failure. (defalias 'jabber-process-logon #[(jc xml-data closure-data) "\203 \303 \304B\"\207\305 \n\306#\210\303 \307\"\207" [closure-data jc xml-data fsm-send :authentication-success jabber-report-success "Logon" :authentication-failure] 4 (#$ . 1548)]) (provide 'jabber-logon)