Merge support for sending files

Patches applied:

 * mange@freemail.hu--2004/emacs-jabber--send-files--0--base-0
   tag of mange@freemail.hu--2004/emacs-jabber--cvs-head--0--patch-24

 * mange@freemail.hu--2004/emacs-jabber--send-files--0--patch-1
   Start working on file sending support

 * mange@freemail.hu--2004/emacs-jabber--send-files--0--patch-2
   Roughly shape socks5 client parts

 * mange@freemail.hu--2004/emacs-jabber--send-files--0--patch-3
   Merge date function

 * mange@freemail.hu--2004/emacs-jabber--send-files--0--patch-4
   Add file transfer client

 * mange@freemail.hu--2004/emacs-jabber--send-files--0--patch-5
   (provide 'jabber-ft-client) in jabber-ft-client.el

 * mange@freemail.hu--2004/emacs-jabber--send-files--0--patch-6
   Work on SOCKS5 proxy list

 * mange@freemail.hu--2004/emacs-jabber--send-files--0--patch-7
   Work on file transfer

 * mange@freemail.hu--2004/emacs-jabber--send-files--0--patch-8
   Update README, add filetransfer.txt

1 files changed, 54 insertions, 0 deletions

diff --git a/jabber-ft-client.el b/jabber-ft-client.el
new file mode 100644
index 0000000..7253507
--- /dev/null
+++ b/jabber-ft-client.el
@@ -0,0 +1,54 @@
+;; jabber-si-client.el - send file transfer requests, by JEP-0096
+
+;; Copyright (C) 2004 - Magnus Henoch - mange@freemail.hu
+
+;; This file is a part of jabber.el.
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 2 of the License, or
+;; (at your option) any later version.
+
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with this program; if not, write to the Free Software
+;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+
+(require 'jabber-si-client)
+(require 'jabber-util)
+
+(defun jabber-ft-send (jid filename desc)
+  "Attempt to send FILENAME to JID."
+  (interactive (list (jabber-read-jid-completing "Send file to: ")
+		     (read-file-name "Send which file: " nil nil t)
+		     (jabber-read-with-input-method "Description (optional): ")))
+  (if (zerop (length desc)) (setq desc nil))
+  (setq filename (expand-file-name filename))
+  (access-file filename "Couldn't open file")
+
+  (let* ((attributes (file-attributes filename))
+	 (size (nth 7 attributes))
+	 (date (nth 5 attributes)))
+    (jabber-si-initiate jid "http://jabber.org/protocol/si/profile/file-transfer"
+			`(file ((xmlns . "http://jabber.org/protocol/si/profile/file-transfer")
+				(name . ,(file-name-nondirectory filename))
+				(size . ,size)
+				(date . ,(jabber-encode-time date)))
+			       (desc () ,desc))
+			`(lambda (jid sid send-data-function)
+			   (jabber-ft-do-send jid sid send-data-function ,filename)))))
+
+(defun jabber-ft-do-send (jid sid send-data-function filename)
+  (with-temp-buffer
+    (insert-file-contents-literally filename)
+
+    ;; Ever heard of buffering?
+    (funcall send-data-function (buffer-string))
+    (message "File transfer completed")))
+
+(provide 'jabber-ft-client)
+;;; arch-tag: fba686d5-37b5-4165-86c5-49b76fa0ea6e