Bot is operator and can do kill

diff --git a/blight.tcl b/blight.tcl
index 6092f9be9177ced04936f02319e8dfdf45ec2bba..a5b4de7b29315f886839178c4a30644767a39089 100644 (file)
--- a/blight.tcl
+++ b/blight.tcl
@@ -8,3 +8,4 @@ set ownmailaddr blight@chiark.greenend.org.uk
 set socketargs {}
 
 source bot.tcl
 set socketargs {}
 
 source bot.tcl

+source botpass.tcl

diff --git a/bot.tcl b/bot.tcl
index 46855813f92fc4e0c27271a0aed98a0c90b9d4d0..06902abd2d64400db8bb38675f32cc6fe1dbca1c 100755 (executable)
--- a/bot.tcl
+++ b/bot.tcl
@@ -1198,6 +1198,23 @@ def_ucmd identpass {
     ucmdr "Pleased to see you, $username." {}
 }
 
     ucmdr "Pleased to see you, $username." {}
 }
 

+def_ucmd kill {
+    global nick
+    prefix_nick
+    set target [ta_nick]
+    if {![nickdb_exists $target]} { error "$target is not a registered nick." }
+    set wantu [nickdb_get $target username]
+    if {![string length $wantu]} { error "$target is insecurely registred." }
+    upvar #0 nick_username([irctolower $n]) nu
+    if {![info exists nu]} { error "You must identify yourself first." }
+    if {"$wantu" != "$nu"} {
+       error "You are the wrong user, $nu - $target belongs to $wantu."
+    }
+    set reason "at request of user $nu"
+    if {[ta_anymore]} { append reason "; $text" }
+    sendout KILL $target $reason
+}
+

 def_ucmd summon {
     set target [ta_word]
     ta_nomore
 def_ucmd summon {
     set target [ta_word]
     ta_nomore


@@ -1369,6 +1386,10 @@ proc ensure_globalsecret {} {
 }
 
 proc connected {} {
 }
 
 proc connected {} {

+    global operuserpass
+    if {[info exists operuserpass]} {
+       eval sendout OPER $operuserpass
+    }

     foreach chan [chandb_list] {
        if {[chandb_get $chan autojoin]} { dojoin $chan }
     }
     foreach chan [chandb_list] {
        if {[chandb_get $chan autojoin]} { dojoin $chan }
     }

diff --git a/helpinfos b/helpinfos
index d19544cfbeb25648053ee07010ffa7bf4849c7be..2444f93d9a9f2e469670b8441cde1948abc628d8 100644 (file)
--- a/helpinfos
+++ b/helpinfos
@@ -14,6 +14,7 @@ General commands:           Registration and user settings:
  !op [<chan>]                 !channel [<chan>] <setting> [....]
  !leave [<chan>]             Additional help topics:
  !ping [<stuff ...>]          !identify !identpass !invite !blight-id
  !op [<chan>]                 !channel [<chan>] <setting> [....]
  !leave [<chan>]             Additional help topics:
  !ping [<stuff ...>]          !identify !identpass !invite !blight-id

+ !kill <nick> [<reason>]

 Send commands to me by /msg, or say them in channel with \! in front.
 To get me on a channel, invite me.  To become channel manager, op me.
 
 Send commands to me by /msg, or say them in channel with \! in front.
 To get me on a channel, invite me.  To become channel manager, op me.
 


@@ -153,6 +154,12 @@ invite <channel> <nick> ...   privately
  This can be disabled for managed channels - see `help !userinvite'.
 To get me to join a channel, just invite me to it.
 
  This can be disabled for managed channels - see `help !userinvite'.
 To get me to join a channel, just invite me to it.
 

+:kill
+kill <nick> [<reason>]
+ Asks me to throw that client off IRC completely, using my IRC
+ Operator privilege.  You must have identified yourself as the user
+ to whom the nick is registered.  (See `help !register'.)
+

 :register
 register            register your nick (or make it secure)
 register delete     delete your nick registration
 :register
 register            register your nick (or make it secure)
 register delete     delete your nick registration

diff --git a/test.tcl b/test.tcl
index 5f9b20cf74717e3f51578362d6f0971eb34ce49f..269e2be163248a2b21e9e9b68a6012db07e25810 100644 (file)
--- a/test.tcl
+++ b/test.tcl
@@ -7,3 +7,4 @@ set socketargs {}
 set marktime_min 10
 
 source bot.tcl
 set marktime_min 10
 
 source bot.tcl

+source botpass.tcl