egghelp/eggheads community

Delete Proc for database file

2003-06-14T12:51:41-04:00

awesome - works perfect - big thanks.

Statistics: Posted by BiLL — Sat Jun 14, 2003 12:51 pm

Delete Proc for database file

2003-06-14T12:47:50-04:00

Try changing that line to

if {[string match -nocase $info [lindex [split $line |] 0]]} {

Statistics: Posted by stdragon — Sat Jun 14, 2003 12:47 pm

Delete Proc for database file

2003-06-14T12:40:38-04:00

big thanks.

there seems to be a little bug in it thought.

i used some putserv msgs to check where the error is:

putserv "PRIVMSG $nick :info = $info"
putserv "PRIVMSG $nick :line = $line"
putserv "PRIVMSG $nick :found = $found"

into the while.

now i see :

[18:37] : !deluser user10
[18:37] (test-): info = user10
[18:37] (test-): line = user10|pass10
[18:37] (test-): found = 0
...
[18:37] (test-): User user10 not found.

but info (arg/rest) is correct and the line too.
but it didnt set found = 1.

if {[string match $info [lindex $line 0]]} {
there must be something wrong. maybe that lindex $line 0 ?

please help thanks

Statistics: Posted by BiLL — Sat Jun 14, 2003 12:40 pm

Delete Proc for database file

2003-06-14T11:21:22-04:00

Code:

set datafile "bla.txt"bind pub o !del pub:delproc pub:del {nick host handle channel text} {  set found 0  set index ""  set info "[lindex [split $text] 0]"   set file [open $::datafile r]   while {![eof $file]} {    gets $file line    if {$line == ""} { continue }    if {[string match $info [lindex $line 0]]} {      set found 1      } else {      lappend index $line    }  }  if {$found == 0} {    putserv "PRIVMSG $channel :$info was not found."    return  }  catch {close $file}  set file [open $::datafile w]   foreach line $index {    puts $file $line  }  catch {close $file}  putserv "PRIVMSG $channel :User '$info' removed."}

This should do fine.

Statistics: Posted by caesar — Sat Jun 14, 2003 11:21 am

Delete Proc for database file

2003-06-14T10:27:02-04:00

Greetings,

I have a problem - big one ). I tried every ways but I don't get it working.

I have a $db file. (easy .txt file).

$db looks like:

User1|Pass1
User2|Pass2
User3|Pass3
User4|Pass4

Now I want to make a function !deluser.
The problem is that it should delete using the username. I already got a proc which does this by linenumber, for example !deluser num 3 (line 3 - User3) - thats no problem, but the problem is getting the line by just the username and the number. I dont want to use !deluser num - I want to use !deluser User2. Can anyone help me coding that proc ? I really don't get it working. It should work like this:

!deluser User3

-> Searches User3 in $db and deletes the WHOLE LINE out of $db.
After that command $db looks like:

User1|Pass1
User3|Pass3
User4|Pass4

Can anyone help me with that?

Big thanks.

Statistics: Posted by BiLL — Sat Jun 14, 2003 10:27 am