| | 1 | ;ELC\1c\0\0\0 |
| | 2 | ;;; Compiled |
| | 3 | ;;; in Emacs version 28.2 |
| | 4 | ;;; with all optimizations. |
| | 5 | |
| | 6 | |
| | 7 | |
| | 8 | (byte-code "\300\301!\210\300\302!\210\303\304!\204\12\0\300\304!\210\300\207" [require jabber-xml jabber-util fboundp sha1] 2) |
| | 9 | #@104 Send IQ get request in namespace "jabber:iq:auth". |
| | 10 | JC is the Jabber connection. |
| | 11 | |
| | 12 | (fn JC TO SESSION-ID)\1f |
| | 13 | (defalias 'jabber-get-auth #[771 "\300\ 3\ 3\301\302\303\304\305\306\307\ 6\f!\310\"EE\311\ 6\ 6\312\313&\b\207" [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"] 14 (#$ . 210)]) |
| | 14 | #@198 Send username and password in logon attempt. |
| | 15 | |
| | 16 | JC is the Jabber connection. |
| | 17 | XML-DATA is the parsed tree data from the stream (stanzas) |
| | 18 | obtained from `xml-parse-region'. |
| | 19 | |
| | 20 | (fn JC XML-DATA SESSION-ID)\1f |
| | 21 | (defalias 'jabber-do-logon #[771 "\300\301\ 3!\302\"\211\204\19\0\303\304\ 5!\305\"\204\19\0\306\307!\205'\0\303\304\ 5!\310\"\206'\0\311\312\ 5!!\313\ 1\2042\0\314\ 6\ 6\315\"\207\ 2\203D\0\302\313\316\ 6\ 6\ 5P!E\262\ 1\202J\0\317\313\ 3E\262\ 1\303\304\ 6\a!\320\"\204]\0\321\304\ 6\a!\320\322#\210\323\ 6\ 6\303\304\ 6 !\324\"\325\326\327\330\313\303\304\ 6\ f!\331\"E\ 6\a\332\313\303\304\ 6\11!\320\"E\257\ 5\333\ 6\a\333\313&\b\207" [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] 19 (#$ . 626)]) |
| | 22 | #@276 Receive login success or failure, and request roster. |
| | 23 | CLOSURE-DATA should be the password on success and nil on failure. |
| | 24 | |
| | 25 | JC is the Jabber connection. |
| | 26 | XML-DATA is the parsed tree data from the stream (stanzas) |
| | 27 | obtained from `xml-parse-region'. |
| | 28 | |
| | 29 | (fn JC XML-DATA CLOSURE-DATA)\1f |
| | 30 | (defalias 'jabber-process-logon #[771 "\211\203\v\0\300\ 3\301\ 3B\"\207\302\ 3\ 3\303#\210\300\ 3\304\"\207" [fsm-send :authentication-success jabber-report-success "Logon" :authentication-failure] 7 (#$ . 1648)]) |
| | 31 | (provide 'jabber-logon) |
projects / config.git / blame_incremental