set host chiark
set port 6667
if {![info exists nick]} { set nick Blight }
+if {![info exists ownfullname]} { set ownfullname "here to Help" }
+set ownmailaddr blight@chiark.greenend.org.uk
+
+if {![info exists globalsecret]} {
+ set gsfile [open /dev/urandom r]
+ fconfigure $gsfile -translation binary
+ set globalsecret [read $gsfile 32]
+ binary scan $globalsecret H* globalsecret
+ close $gsfile
+ unset gsfile
+}
proc sendout {command args} {
global sock
proc ucmdr {priv pub args} {
return -code return [concat [list $priv $pub] $args]
}
-
-def_ucmd help {
- ta_nomore
+
+proc ucmd_sendhelp {} {
ucmdr \
{Commands currently understood:
-help get this list of commands
-seen <nick> ask after someone (I'll tell them you asked)
-summon <username> invite a logged-on user onto IRC} {}
+ help get this list of commands
+ seen <nick> ask after someone (I'll tell them you asked)
+ summon <username> invite a logged-on user onto IRC
+Send commands to be by /msg, or say them in channel with ! in front.} {}
}
+def_ucmd help { ta_nomore; ucmd_sendhelp }
+
+def_ucmd ? { ta_nomore; ucmd_sendhelp }
+
proc manyset {list args} {
foreach val $list var $args {
upvar 1 $var my
}
}
+proc md5sum {value} { exec md5sum << $value }
+
def_ucmd seen {
global lastseen nick
prefix_nick
#fconfigure $sock -translation binary
fconfigure $sock -translation crlf
- sendout USER guest 0 * "chiark testing bot"
+ sendout USER blight 0 * $ownfullname
sendout NICK $nick
fileevent $sock readable onread
}