end
server = TCPServer.new(address, 0)
puts(\"#{server.addr[3].split(/\\./).collect{|c| c.to_i}.pack('CCCC').unpack('N')[0]} #{server.addr[1]}\")
+$stdout.flush
session = server.accept
if session
total = 0
:type 'list
:group 'riece-rdcc)
+(defcustom riece-rdcc-save-directory nil
+ "Default directory where received files are saved in."
+ :type 'directory
+ :group 'riece-rdcc)
+
(defvar riece-rdcc-requests nil)
(defvar riece-rdcc-request-user nil)
(defun riece-command-dcc-send (user file)
(interactive
(let ((completion-ignore-case t))
- (list (completing-read
+ (list (riece-completing-read-identity
"User: "
- (mapcar #'list (riece-get-users-on-server)))
+ (riece-get-users-on-server (riece-current-server-name)))
(expand-file-name (read-file-name "File: ")))))
- (let ((process
- (start-process "DCC" (generate-new-buffer " *DCC*")
- "ruby" "-rsocket")))
+ (let* ((process-connection-type nil)
+ (process (start-process "DCC" (generate-new-buffer " *DCC*")
+ "ruby" "-rsocket")))
(process-send-string process
(apply #'concat
(riece-rdcc-substitute-variables
(progn
(goto-char (point-min))
(not (looking-at "\\([0-9]+\\) \\([0-9]+\\)"))))
- (accept-process-output))
+ (accept-process-output process))
(if (eq (process-status process) 'run)
(let ((address (match-string 1))
(port (match-string 2)))
(set-process-sentinel process #'riece-rdcc-server-sentinel)
(riece-send-string
(format "PRIVMSG %s :\1DCC SEND %s %s %s %d\1\r\n"
- user (file-name-nondirectory file)
+ (riece-identity-prefix user)
+ (file-name-nondirectory file)
address port
riece-rdcc-request-size)))))))
(error "Invalid number"))
(nth (1- number) riece-rdcc-requests))))
(default-name (expand-file-name
- (nth 1 request) default-directory)))
+ (nth 1 request) (or riece-rdcc-save-directory
+ default-directory))))
(list request
(expand-file-name
(read-file-name
(port (string-to-number (match-string 3 message)))
(size (string-to-number (match-string 4 message)))
(buffer (if (riece-channel-p target)
- (riece-channel-buffer-name
- (riece-make-identity target riece-server-name))))
+ (riece-channel-buffer (riece-make-identity
+ target riece-server-name))))
(user (riece-prefix-nickname prefix)))
(setq riece-rdcc-requests
(cons (list user file address port size)