Do not trash errorcode &c with unset calling_nick

diff --git a/bot.tcl b/bot.tcl
index ff5e8b74c6c2c91310738b3528f632b077da43ed..09c4ca2caf446eaaeb8bda422ee99fce636ff0c8 100755 (executable)
--- a/bot.tcl
+++ b/bot.tcl
@@ -80,12 +80,18 @@ proc bgerror {msg} {
 }
 
 proc onread {args} {
-    global sock nick calling_nick
+    global sock nick calling_nick errorInfo errorCode
     
     if {[gets $sock line] == -1} { set terminate 1; return }
     regsub -all "\[^ -\176\240-\376\]" $line ? line
     set org $line
+    
+    set ei $errorInfo
+    set ec $errorCode
     catch { unset calling_nick }
+    set errorInfo $ei
+    set errorCode $ec
+    
     if {[regexp -nocase {^:([^ ]+) (.*)} $line dummy prefix remain]} {
        set line $remain
        if {[regexp {^([^!]+)!} $prefix dummy maybenick]} {

diff --git a/helpinfos b/helpinfos
index 1ae3a765001f583cf2a6735a3dfb80c8b1b2cba2..d421bab22059b78094907d52cd7ac4593aa6798d 100644 (file)
--- a/helpinfos
+++ b/helpinfos
@@ -54,6 +54,7 @@ oplist [<chan>] = <nick> <nick> ...  set chop list
  Configures the list of who may use the `ops' command.  You must be
  on the oplist yourself to do this.  If you op me on a channel I'll
  automatically add you to the oplist if you have identified yourself.
+ If you make the channel op list empty I'll forget about the channel.
 (Not yet implemented!)
 
 !identify
@@ -74,6 +75,7 @@ identpass <username> <password>
  Identification, for example with /blight-id, is actually done with
  `identpass', which feeds the md5sum of the password to `userv
  <username> irc-identpass <nick>'.  That must exit 0 if all is well.
+ By default this checks the md5sum against ~/.userv/irc-pass-md5.
 
 !invite
 If you invite me to a channel I'll join it.