Code:

# Author: tomekk # e-mail:  tomekk/@/oswiecim/./eu/./org # home page: http://tomekk.oswiecim.eu.org/ # # Version 0.1 # # This file is Copyrighted under the GNU Public License. # http://www.gnu.org/copyleft/gpl.html# file with users and urlsset db_file "my_db.txt"############################################################bind pub - !add add_procbind pub - !edit edit_procbind pub - !del del_procbind pub - !list list_procbind pub - !change change_procif {![file exists $db_file]} {set need_new_one [open $db_file w]close $need_new_one}proc grab_users { } {global db_fileset db_hand [open $db_file r]set all_users [read $db_hand]close $db_handreturn $all_users}proc check_user { user } {global db_fileset exists 0foreach each_line [split [grab_users] "\n"] {set user_nick [lindex [split $each_line] 0]if {$user == $user_nick} {set exists 1break}}return $exists}proc add_proc { nick uhost hand chan arg } {global db_fileset our_args [split $arg]set our_user [lindex $our_args 0]set our_user_url [lindex $our_args 1]if {$our_user_url != ""} {set db_hand [open $db_file a]puts $db_hand "$our_user $our_user_url"close $db_hand}}proc edit_proc { nick uhost hand chan arg } {global db_fileset our_args [split $arg]set our_user [lindex $our_args 0]set our_user_url [lindex $our_args 1]if {$our_user_url != ""} {if {[check_user $our_user] == 1} {set db_users [grab_users]set new_file [open $db_file w]foreach each_line [split $db_users "\n"] {if {$each_line != ""} {set split_line [split $each_line]set just_nick [lindex $split_line 0]set just_url [lindex $split_line 1]if {$just_nick == $our_user} {puts $new_file "$just_nick $our_user_url"} {puts $new_file "$just_nick $just_url"}}}close $new_file}}}proc del_proc { nick uhost hand chan arg } {global db_fileset our_args [split $arg]set our_user [lindex $our_args 0]if {$our_user != ""} {if {[check_user $our_user] == 1} {set db_users [grab_users]set new_file [open $db_file w]foreach each_line [split $db_users "\n"] {if {$each_line != ""} {set split_line [split $each_line]set just_nick [lindex $split_line 0]set just_url [lindex $split_line 1]if {$just_nick != $our_user} {puts $new_file "$just_nick $just_url"}}}close $new_file}}}proc list_proc { nick uhost hand chan arg } {global db_fileset user_list [list]foreach each_line [split [grab_users] "\n"] {if {$each_line != ""} {set split_line [split $each_line]set just_nick [lindex $split_line 0]lappend user_list $just_nick}}set rdy_list [join $user_list ", "]putquick "PRIVMSG $chan :$rdy_list"}proc change_proc { nick uhost hand chan arg } {global db_fileset our_args [split $arg]set our_user [lindex $our_args 0]if {$our_user != ""} {if {[check_user $our_user] == 1} {foreach each_line [split [grab_users] "\n"] {if {$each_line != ""} {set split_line [split $each_line]set just_nick [lindex $split_line 0]set just_url [lindex $split_line 1]if {$just_nick == $our_user} {# delete this line# put here your MySQL queryputquick "PRIVMSG $chan :$just_nick => $just_url"}}}                }}}putlog "tiny-db.tcl ver 0.1 by tomekk loaded"

Code:

#mysql sever infoset host "HOST"set user "username"set passwd "passwd"set db "Database"#make sure you have the right packagepackage require mysqltcl#set the database file set streamers "scripts/stms.txt"    #bind your commands    bind pub - !addfeed add:feedbind pub - !delfeed del:feedbind pub - !feeds list:feedbind pub - !feed feed:feedif {![file exists $cmdsfile]} { set fileid [open $cmdsfile w] close $fileid}set feeds [list]foreach donecmd [split [read [set fileid [open $streamers]]][close $fileid] \n][unset fileid] { if {[string match -nocase "Stream name - *" $donecmd]} {  lappend feeds [lindex [split $donecmd] 3] }}proc add:feed {nick uhost hand chan text} {global streamers  if {$chan == "#sops"} {  set fs [open $streamers a]  set name [lindex $text 0]  set url [join [lrange [split $text] 1 end]]  puts $fs "Stream name: $name Stream URL: $url"  close $fs  }}proc del:feed {nick uhost hand chan text} {global streamers  if {$chan == "#sops"} {  set fs [open $streamers "r"]  set data [read -nonewline $fs]  close $fs  set lines [split $data "\n"]  set name [lindex $text 0]  set match "Stream name - $name"  while {[set i [lsearch -glob $lines $match]]>-0} {    set lines [lreplace $lines $i $i]    set fs [open $streamers a]    puts $fs [join $lines "\n"]    close $fs    }  }}proc list:feed {nick uhost hand chan text} {global allcommands  if {$chan == "#sops"} {    if {[llength $feeds]} {      puthelp "privmsg $chan :Available Streamers: [join $feeds {, }]"    } {      puthelp "privmsg $chan :No Available Streamers"    }  }}proc feed:feed { nick uhost chan handle arg } {global host user passwd db  if {$chan == "#sops"} {    if {isop $nick $chan} {     set stream [lindex $text 0]    set feed [list]foreach donecmd [split [read [set fileid [open $streamers]]][close $fileid] \n][unset fileid] { if {[string match -nocase "$stream Stream URL - *" $donecmd]} {  lappend feed [lindex [split $donecmd] 3] }}set con [::mysql::connect -host $host -user $user -password $passwd]  ::mysql::use $con $db::mysql::exec $con "UPDATE `streameronline` SET `StreamerUSC` = 'http://ustream.tv/e06,Q7h6Mbuey8aOxTltiQUyBKjIDFx4.usc'"puthelp "privmsg #sops :Update successfull"        putlog "Update successfull"      ::mysql::close $con             }      }    }putlog "Script loaded: Stream Switcher"