1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
|
=begin
distributed Ruby --- chat server
Copyright (c) 1999-2000 Masatoshi SEKI
=end
require 'drb/drb'
class ChatEntry
include DRbUndumped
def initialize(server, there)
@server = server
@there = there
@name = there.name
@key = there.key = Time.now
end
attr :name, true
attr :there
def say(str)
@server.distribute(@there, str)
end
def listen(str)
@there.message(@key, str)
end
end
class ChatServer
def initialize
@mutex = Thread::Mutex.new
@members = {}
end
def add_member(there)
client = ChatEntry.new(self, there)
@mutex.synchronize do
@members[there] = client
end
client
end
def distribute(there, str)
name = @members[there].name
msg = "<#{name}> #{str}"
msg2 = ">#{name}< #{str}"
@mutex.synchronize do
for m in @members.keys
begin
if m == there
@members[m].listen(msg2)
else
@members[m].listen(msg)
end
rescue
p $!
@members.delete(m)
end
end
end
end
end
if __FILE__ == $0
here = ARGV.shift
DRb.start_service(here, ChatServer.new)
puts DRb.uri
DRb.thread.join
end
|
