Site Database Script

[D4N3]

does anyone know of or have a script that will store a site when a pub command is used like !addsite ip port user pass or know how i could make this. also have a pub command to list all the sites.

[MC_8]

Bind pub to add the site

Code: Select all

set io [open datafile.dat w]
puts $io $the_text
close $io

Bind pub to view all sites saved in the datafile.dat

Code: Select all

if {![file exists datafile.dat]} {close [open datafile.dat w]}
set io [open datafile.dat r]
while {![eof $io]} {
  gets $io line
  if {[string trim $line] == ""} {continue}
  putserv "PRIVMSG $channel :$line"
}
close $io

Hope that helps, might want to find a tutorial on TCL if your really new at this.

[stdragon]

Just a note, I think that first script was supposed to use an "a" instead of a "w"

[MC_8]

Yea, a.

[D4N3]

thanks,