Create new 'chat' category, featuring chat clients and servers of all kinds.

Move some packages from 'net' here.

3 files changed, 93 insertions, 0 deletions

diff --git a/chat/tkicb/patches/patch-aa b/chat/tkicb/patches/patch-aa
new file mode 100644
index 00000000000..da88a8f223e
--- /dev/null
+++ b/chat/tkicb/patches/patch-aa
@@ -0,0 +1,70 @@
+$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} {
diff --git a/chat/tkicb/patches/patch-ab b/chat/tkicb/patches/patch-ab
new file mode 100644
index 00000000000..3f7893ab55c
--- /dev/null
+++ b/chat/tkicb/patches/patch-ab
@@ -0,0 +1,12 @@
+$NetBSD: patch-ab,v 1.1.1.1 2000/12/15 00:36:36 wiz Exp $
+--- tcl/tabhist.tcl.orig	Thu Aug 31 12:12:32 2000
++++ tcl/tabhist.tcl	Thu Aug 31 12:13:10 2000
+@@ -72,7 +72,7 @@
+     regsub -all . $searchNick {\\&} matchStr
+ 
+     foreach nick $TabHist_list {
+-	if {[regexp -nocase "^$matchStr$" $nick]} {
++	if {[string compare -nocase  $matchStr $nick]} {
+ 	    DEBUG:Output tabhist 6 "TabHist:Search: returning $index"
+ 	    return $index
+ 	}
diff --git a/chat/tkicb/patches/patch-ac b/chat/tkicb/patches/patch-ac
new file mode 100644
index 00000000000..b1c699af6a1
--- /dev/null
+++ b/chat/tkicb/patches/patch-ac
@@ -0,0 +1,11 @@
+$NetBSD: patch-ac,v 1.1.1.1 2000/12/15 00:36:36 wiz Exp $
+
+--- tcl/util.tcl.orig	Mon Jun  1 14:53:11 1998
++++ tcl/util.tcl	Thu Oct 19 23:43:11 2000
+@@ -73,5 +73,5 @@
+ 	    incr index -1
+ 
+-	    if {$index == 0} {
++	    if {$index == $start} {
+ 		set index [expr $start + $maxLength]
+ 		break