chiark
/
gitweb
/
~ijackson
/
ircbot.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
7986f9b
)
Do not trash errorcode &c with unset calling_nick
author
ijackson
<ijackson>
Wed, 6 Sep 2000 21:28:13 +0000
(21:28 +0000)
committer
ijackson
<ijackson>
Wed, 6 Sep 2000 21:28:13 +0000
(21:28 +0000)
bot.tcl
patch
|
blob
|
history
helpinfos
patch
|
blob
|
history
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} {
}
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
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 }
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]} {
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.
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
(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.
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.
!invite
If you invite me to a channel I'll join it.