From 17bfe24c496a0f6fe1332fcfc374c9f2a941db9f Mon Sep 17 00:00:00 2001 Message-Id: <17bfe24c496a0f6fe1332fcfc374c9f2a941db9f.1715781288.git.mdw@distorted.org.uk> From: Mark Wooding Date: Wed, 6 Sep 2000 21:28:13 +0000 Subject: [PATCH] Do not trash errorcode &c with unset calling_nick Organization: Straylight/Edgeware From: Ian Jackson --- bot.tcl | 8 +++++++- helpinfos | 2 ++ 2 files changed, 9 insertions(+), 1 deletion(-) diff --git a/bot.tcl b/bot.tcl index ff5e8b7..09c4ca2 100755 --- 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 1ae3a76..d421bab 100644 --- a/helpinfos +++ b/helpinfos @@ -54,6 +54,7 @@ oplist [] = ... 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 Identification, for example with /blight-id, is actually done with `identpass', which feeds the md5sum of the password to `userv irc-identpass '. 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. -- [mdw]