egghelp/eggheads community

Auth

2002-01-12T01:35:00-04:00

It's all in the documentation, man. Read about the open command. Hint: You are opening in mode 'w' which is overwriting the file.

Statistics: Posted by stdragon — Sat Jan 12, 2002 1:35 am

Auth

2002-01-11T23:32:00-04:00

Help...

Though I managed to write data into file auth.data.db, it seems that if a different "handle" auth him/herself, it would overwrite other handles. Which means that the file would only contain 1 handle details. Any solutions?

Statistics: Posted by Guest — Fri Jan 11, 2002 11:32 pm

Auth

2002-01-11T04:24:00-04:00

Alright! I've got it. Thanks stdragon. Btw, there's this code

Code:

if {[getuser $authhand XTRA auth] == 2} {    puthelp "NOTICE $nick :You are already authenticated."    return 0  }

This would prevent the user from '/msg $botnick auth ' twice. Is there anyway I can make it such that if the user has already auth and it trying to auth from the same host, the bot would give the above syntax. However if the user is from a different host (clones) and tries to auth, it will allow the user to auth?

[ This Message was edited by: stafford on 2002-01-11 02:17 ]

Statistics: Posted by Guest — Fri Jan 11, 2002 4:24 am

Auth

2002-01-11T02:06:00-04:00

First of all, your "gets" line is incorrect. Read the man page at http://www.scriptics.com or tcl.activestate.com for information on the proper syntax.

About your question... you could use the "split" command, or you could change the database format. Instead of putting all the data on one line, why not split it up like:

nick
uhost
time
[blank line]
nick
uhost
time

Another option would be to separate the fields by tabs instead of spaces, so that you can do [split $line t]. That is preferable to the normal split command, because some of your fields (time) include spaces.

Statistics: Posted by stdragon — Fri Jan 11, 2002 2:06 am

Auth

2002-01-11T01:37:00-04:00

Ok, i've managed to figure it out how should I write into into database. I have a query now... hopefully someone can help. Here's part of the code:

Code:

set authrec [open "auth.data.db" w]  puts $authrec "$hand $nick!$host [clock format [clock seconds] -format "%a %b %d %I:%M:%S SGT %Y"]"  close $authrec

That above would write the data to file.

Code:

bind msg - info msg_infoproc msg_info {nick host hand arg} {  set authrec [open "auth.data.db" r]  gets $authrec  puthelp "NOTICE $nick :Registered Handle: [lindex authrec 0]"  close $authrec  return 0}

How can I spilt the data such that the data recorded ($hand $nick!$host) and time can be each displayed as:

Registered Handle: $hand
last seen host: $nick!host
last time auth: 'time format'

Any help would be greatly appreciated.

[ This Message was edited by: Stafford on 2002-01-10 22:38 ]

Statistics: Posted by Guest — Fri Jan 11, 2002 1:37 am

Auth

2002-01-10T09:47:00-04:00

Thanks ppslim. I've changed the part proc. Here's the code of '/msg $botnick auth '. Is there anyway I can set a database (which is written to a file) and record the exact time the user auth? I'm not sure how to go about doing it.

Code:

proc msg_auth {nick host hand arg} {  global botnick auth_clones rms_services  set authhand [lindex $arg 0]  set passwd [lindex $arg 1]  if {([llength [split $arg]]) > 2 || ([llength [split $arg]]) < 2} {    puthelp "NOTICE $nick :SYNTAX: /msg $botnick AUTH  "    return 0  }  if {[validuser $authhand] == 0} {    puthelp "NOTICE $nick :That nick is not registered in my database."    return 0  }  if {[passwdok $authhand $passwd] == 0} {     puthelp "NOTICE $nick :Authentication failed. Incorrect password"    return 0   }  if {[getuser $authhand XTRA auth] == 2} {    puthelp "NOTICE $nick :You are already authenticated."    return 0  }  putcmdlog "AUTH: $nick identified as $authhand"  setuser $authhand XTRA authhost $host  if {$auth_clones == 1} {  setuser $authhand XTRA authnick $nick } if {$hand != $authhand} {# We need to temporarly add $hand's hostmast to $ahand  setuser $authhand HOSTS "*!$host"  setuser $authhand XTRA auth 2  putcmdlog "AUTH: $nick identified as $authhand with temporary hostmask *!$host" } {  setuser $authhand XTRA auth 1  putcmdlog "AUTH: $nick identified as $authhand with known host $host" }   if {[nick2hand $nick] == ""} {   puthelp "NOTICE $nick :Authentication successful."   puthelp "NOTICE $nick :You have $rms_services(joinlimit) minutes to join any channels I'm in or your authentication will expire."   putcmdlog "<$hand> Authenticated at [clock format [clock seconds] -format "%I:%M:%S %p"]"   timer $rms_services(joinlimit) "auth_check $nick $authhand"   return 0 }}

Statistics: Posted by Guest — Thu Jan 10, 2002 9:47 am

Auth

2002-01-09T12:51:00-04:00

Read doc/tcl-commands.doc

proc part_auth {nick host hand chan} {

Read the section on binds (notible the part on the type PART).

Statistics: Posted by ppslim — Wed Jan 09, 2002 12:51 pm

Auth

2002-01-09T03:30:00-04:00

Ok, i need help with this thing. It gave me this error... TCL error [part_auth]: called "part_auth" with too many arguments

Here's the code

Code:

proc auth:timer {hand} { if {[hand2nick $hand] != ""} {    return 0 } set a [getuser $hand XTRA auth] if {$a != 0} {   setuser $hand XTRA auth 0   putcmdlog "AUTH: $hand didn't (re)join a channel in time." if {$a == 2} {   set tmphost "*![getuser $hand XTRA authhost]"   delhost $hand $tmphost   putcmdlog "AUTH: Temporary hostmask $tmphost removed from $hand."  } }}proc part_auth {nick host hand chan} {  if { $hand == "*" } { return 0 }  set a [getuser $hand XTRA auth]  if { $a >= 1 } {     utimer 10 "auth:timer $hand"  }}

Hope someone can help me out.

[ This Message was edited by: stafford on 2002-01-09 08:13 ]

Statistics: Posted by Guest — Wed Jan 09, 2002 3:30 am

Auth

2002-01-09T01:59:00-04:00

Yes, there are plenty of scripts with this wort of system in.

Many of which are available in the Tcl archive.

Statistics: Posted by ppslim — Wed Jan 09, 2002 1:59 am

Auth

2002-01-09T01:49:00-04:00

Hi guys, I'm wondering if there's such a script out there or someone has an idea about this:

'/msg $botnick auth $handle $passwd'

Any coding for this? The passwd should match that of $handle

Statistics: Posted by Guest — Wed Jan 09, 2002 1:49 am