egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2005-02-26T04:47:22-04:00 https://forum.eggheads.org/app.php/feed/topic/9219 2005-02-26T04:47:22-04:00 2005-02-26T04:47:22-04:00 https://forum.eggheads.org/viewtopic.php?p=46942#p46942 <![CDATA[simple database script]]>
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

Statistics: Posted by Pitchat — Sat Feb 26, 2005 4:47 am

]]> 2005-02-26T04:12:12-04:00 2005-02-26T04:12:12-04:00 https://forum.eggheads.org/viewtopic.php?p=46932#p46932 <![CDATA[simple database script]]>

Code: 

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_somethingbind dcc o|o del delete_somethingbind dcc o|o list list_database
i know i know i was bored .. :p but he is willing to learn ;)

not tested tho..

Statistics: Posted by Ofloo — Sat Feb 26, 2005 4:12 am

]]> 2005-02-26T04:02:02-04:00 2005-02-26T04:02:02-04:00 https://forum.eggheads.org/viewtopic.php?p=46931#p46931 <![CDATA[simple database script]]> Click Me

Statistics: Posted by ^DooM^ — Sat Feb 26, 2005 4:02 am

]]> 2005-02-26T03:20:12-04:00 2005-02-26T03:20:12-04:00 https://forum.eggheads.org/viewtopic.php?p=46929#p46929 <![CDATA[simple database script]]>
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

Statistics: Posted by Pitchat — Sat Feb 26, 2005 3:20 am

]]>