Reorganización de directorios

[config.git] / djavu-asus / emacs / elpa / jabber-20230715.456 / jabber-httpupload.elc

;ELC\1c\0\0\0
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\305\306\307\310\311\304%\210\312\313\314\315\316DD\317\311\306\320\315&\a\210\312\321\314\315\322DD\323\311\306\320\315&\a\207" [require seq fsm mailcap jabber custom-declare-group jabber-httpupload nil "Jabber HTTP Upload Settings." :group custom-declare-variable jabber-httpupload-upload-function funcall function #[0 "\300\207" [jabber-httpupload-put-file-curl] 1 #1=""] "The function used to upload the file.\n  Some functions calls external programs such as Curl and wget, please check their\n  documentation for more information." :type jabber-httpupload-record-command #[0 "\300\207" ["sox -d -t ogg $(filename).ogg"] 1 #1#] "What is the command used to record audio?\nUse $(filename) where the temporal filename should be."] 8)
#@281 Alist of Jabber connections and the node with HTTP Upload support.
This is filled by the `jabber-httpupload-test-all-connections-suport'.
Each element are of the form (jabber-connection . string/nil).  If the value is
a string, it is the upload item IRI, if nil means no support.\1f
(defvar jabber-httpupload-support nil (#$ . 884))
#@169 Test all connections in `jabber-connections' for HTTP Upload support.
Store the results at `jabber-httpupload-support'.
If the connection is already tested, ignore it.\1f
(defalias 'jabber-httpupload-test-all-connections-support #[0 "\302\b\303\304	\"\"\211\211\205\19\0\211@\305\ 1!\210\ 1A\266\202\202\b\0\207" [jabber-connections jabber-httpupload-support seq-difference mapcar car jabber-httpupload-test-connection-support] 5 (#$ . 1221)])
#@211 Test if HTTP Upload is supported on the JC connection's server.
If it is supported, store the item IRI at `jabber-httpupload-support'.

This function is asynchronous, thus it won't return any results.

(fn JC)\1f
(defalias 'jabber-httpupload-test-connection-support #[257 "\300\ 1\301\"\207" [jabber-httpupload-apply-to-items #[514 "\300\ 2\ 2\301\234\"\207" [jabber-httpupload-test-item-support 1] 6 "\n\n(fn JC RESULT)"]] 4 (#$ . 1659)])
#@242 Test if the IRI Disco item supports HTTP Upload.
Get the Disco Info from the provided IRI at the current JC jabber connection,
if the HTTP Upload namespace feature is in the answer, store the IRI
in `jabber-httpupload-support'.

(fn JC IRI)\1f
(defalias 'jabber-httpupload-test-item-support #[514 "\300\ 2\ 2\301\302\303\ 6\ 6\"\301%\207" [jabber-disco-get-info nil make-closure #[771 "\302\ 1A@\235\205\ f\0\ 2\300B	B\211\11\207" [V0 jabber-httpupload-support "urn:xmpp:http:upload"] 5 "\n\n(fn JC DATA RESULT)"]] 9 (#$ . 2097)])
#@224 Retrieve al Disco IRIs from the server connected in JC.
Return a list of IRI strings.

JC is a jabber connection.
CALLBACK is a function that receives two arguments: Jabber connection and
the item vector.

(fn JC CALLBACK)\1f
(defalias 'jabber-httpupload-apply-to-items #[514 "\300\301\ 3!\302\"\303\ 3\ 2\304\305\306\ 6\a\"\304%\207" [plist-get fsm-get-state-data :server jabber-disco-get-items nil make-closure #[771 "\211\211\205\18\0\211@\301\302\ 2\"\210\300\ 5\ 2\"\210\ 1A\266\202\202\ 1\0\207" [V0 message "item: %S"] 8 "\n\n(fn JC DATA RESULT)"]] 10 (#$ . 2615)])
#@478 Check if the server has HTTP Upload support.
Return the tuple (jabber-connection . upload-url) when there is support from
the server.  Return nil when the server does not support HTTP Upload.

If the server is not in `jabber-httpupload-support', then it is considered as
it is not supported.  It SHOULD be tested on-line with
`jabber-httpupload-test-connection-support' as soon as the connection and
authentication is established.

JC is the Jabber Connection to use.

(fn JC)\1f
(defalias 'jabber-httpupload-server-has-support #[257 "\301\302\303\ 3\"\b\"\207" [jabber-httpupload-support seq-find make-closure #[257 "\300\ 1@\232\205	\0\211A\207" [V0] 3 "\n\n(fn TUPLE)"]] 5 (#$ . 3169)])
#@221 Retrieve the slot data from the XML-DATA information.
The XML-DATA is the stanza receive from the Jabber Connection after requesting
the slot for a file.
The returned list has the PUT URL and the GET URL.

(fn XML-DATA)\1f
(defalias 'jabber-httpupload-parse-slot-answer #[257 "\300\ 1\301\"\302\ 1:\205\ e\0\303\ 2\ 2\"\266\202\300\ 2\304\"\302\ 1:\205\1e\0\303\ 2\ 2\"\266\202D\207" [jabber-xml-path (slot put) url xml-get-attribute-or-nil (slot get)] 7 (#$ . 3857)])
#@483 Callback function used when the slot request succeeded.
XML-DATA is the received XML from the server.
DATA is a triple (filedata success-callback success-args) where:
  FILEDATA is a triple (filename size content-type)
  SUCCESS-CALLBACK is a function to call after parsing and requesting the
    upload.
  It should accept following arguments: JC XML-DATA FILEDATA PUT-GET-URLS
    and SUCCESS-ARGS.
  SUCCESS-ARGS is a list to pass to the SUCCESS-CALLBACK.

(fn JC XML-DATA DATA)\1f
(defalias 'jabber-httpupload--request-slot-successful #[771 "\300\ 2!\ 1@\ 2A@\301\ 48\ 1\ 6\a\ 6\a\ 5\ 6\a\ 5%\207" [jabber-httpupload-parse-slot-answer 2] 13 (#$ . 4308)])
#@391 Callback function used when the slot request failed.

DATA is a list (filedata error-callback error-args) where:
  FILEDATA is a triple (filename size content-type)
  ERROR-CALLBACK is a function to call.  If no error-callback is provided, then
  `error' is used.  Its arguments are JC XML-DATA FILEDATA ERROR-ARGS.
  ERROR-ARGS is list passed to the ERROR-CALLBACK.

(fn JC XML-DATA DATA)\1f
(defalias 'jabber-httpupload--request-slot-failed #[771 "\211@\ 1A@\300\ 38\ 1\203\15\0\ 1\ 6\ 6\ 6\ 6\ 5\ 4$\207\301\302\303\ 6\ 6@\ 6\b#!\207" [2 error format "The file %s cannot be uploaded: SLOT rejected. %S"] 11 (#$ . 4948)])
#@578 Request a slot for HTTP Upload to the server's connection.
JC is an active Jabber Connection.
FILEDATA is a list with (filename size content-type).
SUCCESS-CALLBACK is a function name to call when the slot is received.  Its
  arguments should be: jc xml-data data and put-get-URLs.
SUCCESS-ARGS is a list of arguments used by the SUCCESS-CALLBACK
ERROR-CALLBACK is a function to call on failure.  Its arguments should be:
  jc xml-data.
ERROR-ARGS is a list with arguments for ERROR-CALLBACK.

(fn JC FILEDATA SUCCESS-CALLBACK SUCCESS-ARGS &optional ERROR-CALLBACK ERROR-ARGS)\1f
(defalias 'jabber-httpupload-request-slot #[1540 "\300\ 5@!\ 5A@\301\ 6\a8\302\ 6	\303\ 6\v!A\304\305\306\307\ 6	B\310\ 6	B\311\ 6	BFD\312\ 6\r\ 6\r\ 6\rE\313\ 6\ f\ 6\r\ 6\rE&\b\207" [file-name-nondirectory 2 jabber-send-iq jabber-httpupload-server-has-support "get" request (xmlns . "urn:xmpp:http:upload:0") filename size content-type jabber-httpupload--request-slot-successful jabber-httpupload--request-slot-failed] 20 (#$ . 5546)])
#@253 Should the SSL/TLS certificates be ignore from JC connection?
Check if JC URL is in the variable `jabber-invalid-certificate-servers', if it
is the XMPP and HTTPs connection should be established regarding their
certificate validation status.

(fn JC)\1f
(defalias 'jabber-httpupload-ignore-certificate #[257 "\301\302\ 2!\303\"\b\235\207" [jabber-invalid-certificate-servers plist-get fsm-get-state-data :server] 4 (#$ . 6530)])
#@501 Update the given file at FILEPATH to the provided PUT-URL.
The CONTENT-TYPE (MIME type) of the file must match the one provided
to the Jabber Connection with `jabber-httpupload-request-slot'.
IGNORE-CERT-PROBLEMS allows to connect with HTTPS servers with invalid or
non-trusted SSL/TLS certificates.
When the process ends, a callback function is called using the following
code: (funcall CALLBACK CALLBACK-ARG)

(fn FILEPATH CONTENT-TYPE PUT-URL CALLBACK CALLBACK-ARG &optional IGNORE-CERT-PROBLEMS)\1f
(defalias 'jabber-httpupload-upload-file #[1541 "\b\ 6\ 6\ 6\ 6\ 6\ 6\ 6\ 6\ 6\ 6\ 6\ 6&\ 6?\205\16\0\301\302!\207" [jabber-httpupload-upload-function error "The upload function failed to PUT the file to the server. Try other function or install the required program"] 13 (#$ . 6961)])
#@233 Alist of running processes uploading the file to the server.
List of running processes uploading the file to the server
associated with their callback and arguments. Each element has
the following format: (process . (callback arg))\1f
(defvar jabber-httpupload-upload-processes nil (#$ . 7724))
#@209 What to do when an upload process ends.
PROCESS is the process that ended.
First remove the process from `jabber-httpupload-upload-processes',
then call its callback with the provided argument.

(fn PROCESS)\1f
(defalias 'jabber-httpupload-process-ended #[257 "\211\b\236\211A@\ 1AA@\301\ 4\b\"\10\ 1\ 1!\207" [jabber-httpupload-upload-processes assq-delete-all] 7 (#$ . 8023)])
#@260 Detect when Curl ends and act accordingly.
PROCESS is the asynchronous Curl call.
EVENT is a string describing the reason the sentinel were called.

When EVENT is "finished
", then the function
`jabber-httpupload-process-ended' is called.

(fn PROCESS EVENT)\1f
(defalias 'jabber-httpupload-curl-sentinel #[514 "r\301\ 2!q\210\302\18db\210\303\304\ 2\"c\210*\211\305\230\205\e\0\306\ 2!\207" [inhibit-read-only process-buffer t format "Sentinel: %S event received." "finished\n" jabber-httpupload-process-ended] 5 (#$ . 8394)])
#@621 Use the curl command to put the file at FILEPATH into the PUT-URL.
Send the SIZE and CONTENT-TYPE MIME as headers.
IGNORE-CERT-PROBLEMS enable the use of HTTPS connections with invalid or
non-trusted SSL/TLS certificates.  If nil, curl will validate the certificate
provided by the HTTP/S Web server.
When the process ends, the function CALLBACK is called like the following
call: (funcall CALLBACK CALLBACK-ARG).
The process is registered at `jabber-httpupload-upload-processes' AList with
the provided CALLBACK and CALLBACK-ARG.

(fn FILEPATH CONTENT-TYPE PUT-URL CALLBACK CALLBACK-ARG &optional IGNORE-CERT-PROBLEMS)\1f
(defalias 'jabber-httpupload-put-file-curl #[1541 "\303\304!\18\305\306\b\ 3\203\ f\0\307\202\10\0\310\ 6	\ 6	\ 6	&\ 6\b\205I\0r\311\312!q\210\313\19db\210\305\314\315 \ 6\a\ 4$c\210\316\317p\ 3#\211\ 5\ 5DB\nB\12\320\ 1\321\"\266\ 2\322c\210*\313)\207" [exec-path inhibit-read-only jabber-httpupload-upload-processes executable-find "curl" format "%s %s --upload-file '%s' -H \"content-type: %s\" '%s'" "--insecure" "" get-buffer-create "*jabber-httpupload-put-file-curl*" t "%s Uploading to %s with curl:\n$ %s" current-time-string start-process-shell-command "jabber-httpupload-put-file-curl" set-process-sentinel jabber-httpupload-curl-sentinel "-- done --"] 13 (#$ . 8916)])
#@164 Send the GET URL address to the JID user.
The message requiers the GET-URL of the slot file, the receiver's JID
and the JC Jabber Connection.

(fn JC JID GET-URL)\1f
(defalias 'jabber-httpupload-send-file-url #[771 "\301\ 3!\302\ 3\b\"\203\ e\0\303\202\ f\0\304\305\ 5\306\307\ 6\aB\310\ 6\ 6B\311\ 6\ 6BE\312\313\ 6\bE\314\315\316\313\ 6\vEEF\"\207" [*jabber-active-groupchats* jabber-connection-original-jid assoc "groupchat" "chat" jabber-send-sexp message to from type body nil x ((xmlns . "jabber:x:oob")) url] 15 (#$ . 10183)])
#@116 Send the file at FILEPATH to the user JID.
JC is the Jabber Connection to send the file URL.

(fn JC JID FILEPATH)\1f
(defalias 'jabber-httpupload-send-file #[771 "\300\ 3!\204\n\0\301\302!\210\303\ 1!\304\ 18\262\ 1\305\306\ 3!!\ 2\ 2\ 2E\307\ 6\ 6\ 2\310\ 6\bC$\207" [jabber-httpupload-server-has-support error "The Jabber Connection provided has no HTTP Upload support" file-attributes 7 mailcap-extension-to-mime file-name-extension jabber-httpupload-request-slot jabber-httpupload--slot-reserved] 11 (#$ . 10691) (byte-code "\300 \301\302\303\211\211\304\305&\ 6\306\307!E\207" [jabber-read-account jabber-read-jid-completing "Send file to: " nil full t read-file-name "File to send:"] 8)])
#@496 Callback function used when the upload is done.
When the upload process finished, a callback function is called with an
argument.
This function is expected to be used as the CALLBACK argument for the function
`jabber-httpupload-upload-file', DATA is its CALLBACK-ARG argument.
Also, see `jabber-httpupload-process-ended' for more information.
DATA is expected to have the following foramt: (jc jid get-url).
After the upload is done, send the get-url to the destined Jabber user JID.

(fn DATA)\1f
(defalias 'jabber-httpupload--upload-done #[257 "\211@\ 1A@\300\ 38\3011\13\0\302\ 3\ 3\ 3#0\207\207" [2 (error) jabber-httpupload-send-file-url] 8 (#$ . 11363)])
#@299 Callback function used when the slot request succeeded.
JC is the current Jabber Connection.
XML-DATA is the received XML from the server.
FILEDATA is a triple `(filepath size content-type).
URLS is a tuple `(put-url get-url).
EXTRA-DATA is a list `(jid)

(fn JC XML-DATA FILEDATA URLS EXTRA-DATA)\1f
(defalias 'jabber-httpupload--slot-reserved #[1285 "\ 2@\300\ 48\ 2@\ 4A@\ 5@\301\302\ 6\b\"\210\3031-\0\304\305\ 6\ 6!\ 5\ 3\306\ 6\ e\ 6\b\ 6\bE\307\ 6\10!&\ 60\207\207" [2 message "jabber-httpupload: slot PUT and GET URLs: %S" (error) jabber-httpupload-upload-file expand-file-name jabber-httpupload--upload-done jabber-httpupload-ignore-certificate] 18 (#$ . 12015)])
#@72 Create a new audio record and save the file into a temporal directory.\1f
(defalias 'jabber-httpupload--record-audio #[0 "\301\302p\303\304\305\b##\306\ 1\307\"\207" [jabber-httpupload-record-command start-process-shell-command "jabber-httpupload-record-audio" replace-string "$(filename" "/tmp/jabber-httpupload-record" set-process-sentinel jabber-httpupload-record-sentinel] 7 (#$ . 12653)])
(byte-code "\300\301\302\"\210\303\304!\207" [add-hook jabber-post-connect-hooks jabber-httpupload-test-connection-support provide jabber-httpupload] 3)