blob: c9cf3ca6192e975d28496bf79ced5de0091aa0e5 (
plain)
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
70
|
$NetBSD: patch-aa,v 1.4 2000/09/03 12:57:22 wiz Exp $
--- tcl/protocol.tcl.orig Thu Jun 29 10:13:05 2000
+++ tcl/protocol.tcl Mon Jun 1 14:53:11 1998
@@ -379,20 +379,20 @@
proc ICB:PERSONAL {sender args} {
TabHist:Add $sender
- UTIL:EchoArgs [list $sender personal] "<*$sender*> " $args
+ UTIL:EchoArgs [list $sender personal] "[UTIL:TimeStamp] <*$sender*> " $args
}
proc ICB:OPEN {sender args} {
- UTIL:EchoArgs [list $sender open] "<$sender> " $args
+ UTIL:EchoArgs [list $sender open] "[UTIL:TimeStamp] <$sender> " $args
}
proc ICB:ERROR {args} {
- UTIL:EchoArgs error "\[=Error=\] " $args
+ UTIL:EchoArgs error "[UTIL:TimeStamp] \[=Error=\] " $args
}
proc ICB:BEEP {sender args} {
TabHist:Add $sender
- UI:Output -type beep "\[=Beep!=\] $sender sent you a beep."
+ UI:Output -type beep "[UTIL:TimeStamp] \[=Beep!=\] $sender sent you a beep."
}
proc ICB:STATUS {code argList} {
@@ -410,15 +410,15 @@
case $code {
Notify-On {
- set prefix "\[=ON @ $timeStamp=\]"
+ set prefix "[UTIL:TimeStamp] \[=ON=\]"
}
Notify-Off {
- set prefix "\[=OFF @ $timeStamp=\]"
+ set prefix "[UTIL:TimeStamp] \[=OFF=\]"
}
default {
- set prefix "\[=$code=\]"
+ set prefix "[UTIL:TimeStamp] \[=$code=\]"
}
}
@@ -429,11 +429,11 @@
#
# This doesn't seem to have any purpose.
#
- # UI:Output -type loginok "\[=LOGINOK=\] $sender $args"
+ # UI:Output -type loginok "[UTIL:TimeStamp] \[=LOGINOK=\] $sender $args"
}
proc ICB:IMPORTANT {sender args} {
- UTIL:EchoArgs important "\[=$sender@[UTIL:TimeStamp]=\] " $args
+ UTIL:EchoArgs important "[UTIL:TimeStamp] \[=$sender@[UTIL:TimeStamp]=\] " $args
}
proc ICB:EXIT {sender args} {
@@ -445,7 +445,7 @@
}
proc ICB:PONG {sender args} {
- UTIL:EchoArgs pong "\[=PONG=\] $sender " $args
+ UTIL:EchoArgs pong "[UTIL:TimeStamp] \[=PONG=\] $sender " $args
}
proc ICB:AddConnectCallBack {command} {
|
