From e5e18a7f59c21986c73978bb3404f5d1bc41d04d Mon Sep 17 00:00:00 2001 Message-Id: From: Mark Wooding Date: Sun, 10 Jun 2001 16:47:38 +0000 Subject: [PATCH] Add some full stops. Organization: Straylight/Edgeware From: Ian Jackson --- bridge.tcl | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/bridge.tcl b/bridge.tcl index f0f84f5..1282aed 100755 --- a/bridge.tcl +++ b/bridge.tcl @@ -53,11 +53,11 @@ def_bnbot event {l} { global channel errorCode if {[regexp {^1002 JOIN ([^ ]+) \w+} $l dummy n]} { set bnnicks($n) 1 - sendprivmsg $channel "[bnnick_clean $n] has joined $bnchanfn" + sendprivmsg $channel "[bnnick_clean $n] has joined $bnchanfn." } elseif {[regexp {^1003 LEAVE ([^ ]+) \w+$} $l dummy n]} { if {"$n" == "$bnnick"} return catch { unset bnnicks($n) } - sendprivmsg $channel "[bnnick_clean $n] has left $bnchanfn" + sendprivmsg $channel "[bnnick_clean $n] has left $bnchanfn." } elseif {[regexp {^1004 WHISPER ([^ ]+) \w+ "(.*)"$} $l dummy n text]} { if {[catch { go_usercommand "$botid $n" $bnchanfn $n $n $text @@ -99,7 +99,7 @@ proc tellall {msg} { proc msg_JOIN {p c chan} { global onchan_nicks prefix_nick - tellall "$n has joined $chan" + tellall "$n has joined $chan." set onchan_nicks($n) 1 } @@ -108,7 +108,7 @@ proc msg_NICK {p c newnick} { prefix_nick kill_nick $n set onchan_nicks($newnick) 1 - tellall "$n has changed nicks to $newnick" + tellall "$n has changed nicks to $newnick." } proc kill_nick {n} { global onchan_nicks; catch { unset onchan_nicks($n) } } @@ -125,7 +125,7 @@ proc msg_KILL {p c user why} { } proc msg_PART {p c chan} { prefix_nick - tellall "$n has left $chan" + tellall "$n has left $chan." kill_nick $n } proc msg_QUIT {p c why} { -- [mdw]