registere nick, and send password in mail.

[smile]

I like to have my channels moderated, to get ridd of alot of spam.

But the thing I would like to make or get, is a script that people could register, and a random password is created and mailed to them, so they would have to connect to the bot and give themself voice to talk.

Anyone got a script or something like that?

Jan

[GodOfSuicide]

m99botnet or talk.tcl got something like this email register mode....

[smile]

m99botnet or talk.tcl got something like this email register mode....

you or anyone else know where to find them? Look'ed in both egghelp.org and at google.

Jan

[GodOfSuicide]

www.ircbots.de i think...or www.m99.de

or you talk to m99 himself in #chatten.de @IRCNet

hmmm, my own script is nearly finished...when i completed it i will post it (atm : Sends mail with username & pw and a little "unlock account" trigger)

[smile]

I found talk.tcl, but this was not what I was looking for.

So I'll just wait untill you publish you're. =)
ETA?

Jan

[GodOfSuicide]

just checkt, the email feature is in m99botnet..just found a working dl-link

you may try to use it's features, because my script will still take a while to be finished and i have to manage some private problems atm (State wants to check me for army etc).

[ppslim]

Code: Select all

proc chkemail {in} { 
  return [regexp {^[_a-z0-9-]+(\.[_a-z0-9-]+)*@[a-z0-9-]+(\.[a-z0-9-]+)*(\.[a-z]{2,3})$} $in] 
}

proc genrand {} {
  return [md5 "[rand 999999][clock seconds][rand 999999]"]
}

bind pub - "newacct" pub:account:new
proc pub:account:new {nick uh hand arg} {
  if {($hand != "*") || (![chkemail [lindex [split $arg] 0]]) || ([validuser $nick)} {
    puthelp "PRIVMSG $nick :Error generating your account"
    putlog "Failed automated account creation"
    return
  }
  set ident [lindex [split $uh @] 0]
  set ident [string range $ident [expr [string length $ident] - 4] end]
  set end [lindex [split $uh @] 1]
  set end [string range $end [expr [string length $end] - 7] end]
  adduser $nick "${nick}!*${ident}@*${end}"
  set pass [genrand]
  # I am not 100% sure if this needs doing manualy or not
  # Uncomment the next line, and comment/delete the line after if this fails
  #setuser $nick PASS [encpass $pass]
  setuser $nick PASS $pass
  chattr $nick +v
  sendpass [lindex [split $arg] 0] $pass
}

You can try the above.

It needs a lot of work doing on it. Including the "sendpass" procedure, which will generate the mail.

The mail format is up to you, so you would have to amke it.

Aditionaly, you will need one of the mail sending wrapper scripts, to send the mail on. This is your choice too.

[GodOfSuicide]

Code: Select all

setuser $nick PASS $pass

is right
(allready have that stuff in my TCL)

additional you need to check how long the name is, and if it's too long shorten it