-(defcustom riece-async-server-program
- '("\
-require 'io/nonblock'
-
-socket = TCPSocket.new(" host ", " service ")
-$stdout.write(\"NOTICE CONNECTED #{$$}\r\n\")
-$stdout.flush
-
-$stdout.nonblock = true
-trap('STOP', 'IGNORE')
-trap('TSTP', 'IGNORE')
-wfds_in = []
-buf = ''
-loop do
- rfds, wfds, = select([socket, $stdin], wfds_in)
- unless wfds.empty?
- begin
- until buf.empty?
- len = $stdout.syswrite(buf)
- buf.slice!(0 .. len)
- end
- wfds_in = []
- rescue Errno::EAGAIN
- end
- end
- if rfds.delete(socket)
- line = socket.gets(\"\r\n\")
- break unless line
- if line =~ /^(?::[^ ]+ +)?PING +(.+)\r\n/i
- socket.write(\"PONG #{$1}\r\n\")
- socket.flush
- else
- wfds_in = [$stdout]
- buf << line
- until buf.length <= " max-buffer-size "
- buf.slice!(0 .. buf.index(\"\r\n\"))
- end
- end
- end
- if rfds.delete($stdin)
- line = $stdin.gets(\"\r\n\")
- break unless line
- socket.write(line)
- socket.flush
- end
-end
-socket.close
-exit
-")
- "Ruby program of asynchronous proxy"
- :type 'list
+(defcustom riece-async-backup-file (expand-file-name "riece-async.bak"
+ riece-directory)
+ "A file which contains outdated messages."
+ :type 'string