net/tkicb/patches/patch-aa

   1 --- tcl/protocol.tcl.orig       Thu Jun 29 10:13:05 2000
   2 +++ tcl/protocol.tcl    Mon Jun  1 14:53:11 1998
   3 @@ -379,20 +379,20 @@
   4  proc ICB:PERSONAL {sender args} {
   5      TabHist:Add $sender
   6
   7 -    UTIL:EchoArgs [list $sender personal] "<*$sender*> " $args
   8 +    UTIL:EchoArgs [list $sender personal] "[UTIL:TimeStamp] <*$sender*> " $args
   9  }
  10
  11  proc ICB:OPEN {sender args} {
  12 -    UTIL:EchoArgs [list $sender open] "<$sender> " $args
  13 +    UTIL:EchoArgs [list $sender open] "[UTIL:TimeStamp] <$sender> " $args
  14  }
  15
  16  proc ICB:ERROR {args} {
  17 -    UTIL:EchoArgs error "\[=Error=\] " $args
  18 +    UTIL:EchoArgs error "[UTIL:TimeStamp] \[=Error=\] " $args
  19  }
  20
  21  proc ICB:BEEP {sender args} {
  22      TabHist:Add $sender
  23 -    UI:Output -type beep "\[=Beep!=\] $sender sent you a beep."
  24 +    UI:Output -type beep "[UTIL:TimeStamp] \[=Beep!=\] $sender sent you a beep."
  25  }
  26
  27  proc ICB:STATUS {code argList} {
  28 @@ -410,15 +410,15 @@
  29
  30      case $code {
  31         Notify-On {
  32 -           set prefix "\[=ON  @ $timeStamp=\]"
  33 +           set prefix "[UTIL:TimeStamp] \[=ON=\]"
  34         }
  35
  36         Notify-Off {
  37 -           set prefix "\[=OFF @ $timeStamp=\]"
  38 +           set prefix "[UTIL:TimeStamp] \[=OFF=\]"
  39         }
  40
  41         default {
  42 -           set prefix "\[=$code=\]"
  43 +           set prefix "[UTIL:TimeStamp] \[=$code=\]"
  44         }
  45      }
  46
  47 @@ -429,11 +429,11 @@
  48      #
  49      # This doesn't seem to have any purpose.
  50      #
  51 -    # UI:Output -type loginok "\[=LOGINOK=\] $sender $args"
  52 +    # UI:Output -type loginok "[UTIL:TimeStamp] \[=LOGINOK=\] $sender $args"
  53  }
  54
  55  proc ICB:IMPORTANT {sender args} {
  56 -    UTIL:EchoArgs important "\[=$sender@[UTIL:TimeStamp]=\] " $args
  57 +    UTIL:EchoArgs important "[UTIL:TimeStamp] \[=$sender@[UTIL:TimeStamp]=\] " $args
  58  }
  59
  60  proc ICB:EXIT {sender args} {
  61 @@ -445,7 +445,7 @@
  62  }
  63
  64  proc ICB:PONG {sender args} {
  65 -    UTIL:EchoArgs pong "\[=PONG=\] $sender " $args
  66 +    UTIL:EchoArgs pong "[UTIL:TimeStamp] \[=PONG=\] $sender " $args
  67  }
  68
  69  proc ICB:AddConnectCallBack {command} {