+ :type 'string
+ :group 'riece-rdcc)
+
+(defcustom riece-rdcc-ruby-command "ruby"
+ "Command name for Ruby interpreter."
+ :type 'string
+ :group 'riece-rdcc)
+
+(defcustom riece-rdcc-send-program
+ '("\
+unless " address "
+ sock = UDPSocket.new
+ sock.connect('164.46.176.4', 7) # www.unixuser.org/echo
+ address = sock.getsockname[4 .. 8].unpack('CCCC').join('.')
+end
+server = TCPServer.new(address, 0)
+puts(\"#{server.addr[3].split(/\\./).collect{|c| c.to_i}.pack('CCCC').unpack('N')[0]} #{server.addr[1]}\")
+session = server.accept
+if session
+ total = 0
+ File.open(" file ") {|file|
+ while (bytes = file.read(4096))
+ total += bytes.length
+ puts(\"#{total}\")
+ session.write(bytes)
+ end
+ }
+ session.close
+end
+")
+ "Ruby program to send file with DCC."
+ :type 'list
+ :group 'riece-rdcc)
+
+(defcustom riece-rdcc-decode-address-program
+ '("\
+puts(\"#{" address " >> 24 & 0xFF}.#{" address " >> 16 & 0xFF}.#{"
+ address " >> 8 & 0xFF}.#{" address " & 0xFF}\")")
+ "Ruby program to numeric IP address."
+ :type 'list