simple database script

[Pitchat]

hi

ive try a couple of database scripts and did not find what i want ( my needs are really simple) after a couple of try on my own with big failure and reading the faq on how to work with files , i am to the point of asking ( again ... sic) your help

what i want to di is simple

in .dcc type .addcommand ( nick) ( #channelname) ( anothernick)

those infos will be in a txt file and can be display in partyline with a commande like .listmycommand

of course the possibility to delete some infos with .delmycommand ( nick) (#channelname) (anothernick) should be present

i dont know how to start it properly

thanks for any advice

[^DooM^]

Start off here. Click Me

[Ofloo]

Code: Select all

set datafile "storage.dat"

proc adding_something {hand idx arg} {
  global datafile
  if {[llength $arg] != 3} {
    putdcc $idx "Syntax error to many or not enough args."
  } else {
    if {![catch {open $datafile a+} af]} {
      puts $af "\{[lindex [split $arg] 0]\} \{[lindex [split $arg] 1]\} \{[lindex [split $arg] 2]\}"
      close $af
      putdcc $idx "Successfully added $arg to db."
    } else {
  	  putdcc $idx "Failed to open $datafile."
    }
  } 
}

proc delete_something {hand idx arg} {
  global datafile
  if {[llength $arg] != 3} {
    putdcc $idx "Syntax error to many or not enough args."
  } else {
    if {![catch {open $datafile a+} af]} {
      set rd [read $af]
      close $af
      if {![catch {open $datafile w} wf]} {
        foreach {a b c} [split $rd \n] {
          if {![string equal -nocase [lindex [split $arg] 0] $a] && ![string equal -nocase [lindex [split $arg] 1] $b] && ![string equal -nocase [lindex [split $arg] 2] $c] && ![string equal {} $a]} {
            puts $wf "\{$a\} \{$b\} \{$c\}"
          }
        }
        close $wf
        putdcc $idx "Successfully removed $arg from db."
      } else {
      	putdcc $idx "Failed to open $datafile for writting."
      }
    } else {
    	putdcc $idx "Failed to open $datafile."
    }
  }
}

proc list_database {hand idx arg} {
  global datafile
  if {[llength $arg] != 0} {
    putdcc $idx "To many args"
  } else {
  	if {![catch {open $datafile r} rf]} {
      foreach {a b c} [split [read $rf] \n] {
        putdcc $idx "Nick: $a Chan: $b AltNick: $c."
      }
      close $rf
    } else {
    	putdcc $idx "Couldn't open $datafile for reading."
    }
  }
}


bind dcc o|o add adding_something
bind dcc o|o del delete_something
bind dcc o|o list list_database

i know i know i was bored .. :p but he is willing to learn

not tested tho..

[Pitchat]

thanks to both of you

even if ofloo give me 99.9% of what i need , i always appreciate people who can make me aware of sources to lern more thanks for the link to the guide it will be useful