service {
shared string msg0, msg1, msg2, msg3, msg4;
resource msg ;
html Logon = Chat Room
Welcome to The Chat Room
Please enter your on-line name:
;
html Update = Chat Room
The Chat Room Service
Messages so far:
<[msg0]>
<[msg1]>
<[msg2]>
<[msg3]>
<[msg4]>
Your new message:
Quit now? ( Yes /
No )
;
html ByeBye = Chat Room
Thanks for using The Chat Room
You made <[conns]> connections
and wrote <[msgs]> messages.
;
session Chat() {
html H;
bool quit;
string name, msg;
int connections, written;
show Logon receive [name=name];
while (!quit) {
reader (msg) {
H = Update <[msg0=msg0,
msg1=msg1,
msg2=msg2,
msg3=msg3,
msg4=msg4];
}
show H receive [msg=msg, quit=quit];
connections = connections + 1;
if (msg != "") {
written = written + 1;
writer (msg) {
msg0 = msg1;
msg1 = msg2;
msg2 = msg3;
msg3 = msg4;
msg4 = name + "> " + msg;
}
}
}
exit ByeBye <[conns=connections,
msgs=written];
}
}