71 lines
1.9 KiB
Text
71 lines
1.9 KiB
Text
|
$NetBSD: patch-aa,v 1.1.1.1 2000/12/15 00:36:36 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} {
|