Delete Proc for database file

[BiLL]

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.

[caesar]

Code: Select all

set datafile "bla.txt"

bind pub o !del pub:del

proc 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.

[BiLL]

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

[stdragon]

Try changing that line to

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

[BiLL]

awesome - works perfect - big thanks.