chiark / gitweb /
Add some full stops.
authorIan Jackson <ijackson@chiark.greenend.org.uk>
Sun, 10 Jun 2001 16:47:38 +0000 (16:47 +0000)
committerIan Jackson <ijackson@chiark.greenend.org.uk>
Sun, 10 Jun 2001 16:47:38 +0000 (16:47 +0000)
bridge.tcl

index f0f84f5fcf0780f21ecc5619996c651b41347e4d..1282aed7e918eda4bb172e622fdae4c067373f33 100755 (executable)
@@ -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} {