X-Git-Url: https://git.distorted.org.uk/~mdw/ircbot/blobdiff_plain/e1ba63be98d8bc8452dc4f96034118025c50a478..b3d361abe62659d18e3fa9a1d3156482ea97a922:/bot.tcl

diff --git a/bot.tcl b/bot.tcl
index f03c183..bef0ead 100755
--- a/bot.tcl
+++ b/bot.tcl
@@ -3,8 +3,8 @@
 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
-set ownfullname "here to Help"
 
 if {![info exists globalsecret]} {
     set gsfile [open /dev/urandom r]
@@ -449,61 +449,7 @@ def_ucmd summon {
     }
 }
 
-def_ucmd newuser {
-    global ownmailaddr ownfullname nick globalsecret
-    prefix_nick
-    if {[ischan $dest]} {
-	error "You must register privately."
-    }
-    binary scan [irctolower $n] H* nhex
-    if {[file exists users/$nhex]} {
-	error "You (or someone else) have already registered the nick $n."
-    }
-    set ownermail [ta_word]
-
-    set now [clock seconds]
-    set small 100000
-    set mult 6
-    set ksecs [expr {$now / $small}]
-    set kmod [expr {$ksecs % $mult}]
-
-    if {[string length $text]} {
-	if {![regexp -nocase {^([0-5])([0-9a-f]+)$} $text pass_sup kmod]} {
-	}
-	set ksecs [expr {(($ksecs - $kmod) / $mult) * 6 + $kmod}]
-    }
-    set tohash "$ksecs\n$ownermail\n"
-    set hash [exec md5sum << $tohash]
-    set passwd "$kmod[string range $hash 0 15]"
-
-    if {[info exists pass_sup]} {
-	if {"$passwd" != "$pass_sup"} {
-	    error "Incorrect registration password."
-	}
-	sendaction $n "ignores your ok"
-    } else {
-	set mailmsg \
-"From: $ownmailaddr ($ownfullname)
-Subject: $nick registration
-To: $ownermail
-
-Thanks for starting the registration process.  You must now issue the
-`newuser' command with both the same email address again, and your
-registration password from this mail.
-
-Nick:          $n
-Email address: $ownermail
-Password:      $passwd
-
-This password will be valid for approximately the next 600ks
-(or until I am restarted).
-
-For example,
- /msg $nick newuser $ownermail $passwd"
-        exec /usr/sbin/sendmail -odi -oee -oi -t << $mailmsg
-        sendaction $n "has sent your registration mail to $ownermail."
-    }
-}
+proc md5sum {value} { exec md5sum << $value }
 
 def_ucmd seen {
     global lastseen nick
@@ -543,7 +489,7 @@ if {![info exists sock]} {
     #fconfigure $sock -translation binary
     fconfigure $sock -translation crlf
 
-    sendout USER guest 0 * $ownfullname
+    sendout USER blight 0 * $ownfullname
     sendout NICK $nick
     fileevent $sock readable onread
 }