Add support for timestamps.

3 files changed, 73 insertions, 2 deletions

diff --git a/net/tkicb/Makefile b/net/tkicb/Makefile
index b6c33bb17ca..929d2cb5020 100644
--- a/net/tkicb/Makefile
+++ b/net/tkicb/Makefile
@@ -1,4 +1,4 @@
-# $NetBSD: Makefile,v 1.7 1999/04/26 19:15:38 garbled Exp $
+# $NetBSD: Makefile,v 1.8 2000/06/29 14:26:37 jwise Exp $
 #
 
 DISTNAME=	icb.2.1.4
@@ -13,7 +13,6 @@ HOMEPAGE=	http://www.icb.net/
 DEPENDS=	tk-8.0.5:../../x11/tk80
 
 USE_X11=	yes
-NO_PATCH=	yes
 NO_CONFIGURE=	yes
 NO_WRKSUBDIR=	yes
 
diff --git a/net/tkicb/files/patch-sum b/net/tkicb/files/patch-sum
new file mode 100644
index 00000000000..3114504a691
--- /dev/null
+++ b/net/tkicb/files/patch-sum
@@ -0,0 +1,3 @@
+$NetBSD: patch-sum,v 1.1 2000/06/29 14:26:39 jwise Exp $
+
+MD5 (patch-aa) = cf2bc494eaeaf5f23363c9aa77286900
diff --git a/net/tkicb/patches/patch-aa b/net/tkicb/patches/patch-aa
new file mode 100644
index 00000000000..9e53a828a5a
--- /dev/null
+++ b/net/tkicb/patches/patch-aa
@@ -0,0 +1,69 @@
+--- 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} {