Code:

proc fetch_file {n u h c t} {  if {$t == ""} {    putquick "notice $n :!fetch <tracknum>"    return  }  if {[channel get $c mysql-fetch] == 1 } {#Sanitize $t, avoiding any kind of SQL-injections.    set t [mysqlescape $t]#Replace * with %#Using string map should be quicker than regsub     set t [string map {* %} $t]    set db_search [mysqlconnect -host $::db(host) -user $::db(user) -password $::db(pass)]    mysqluse $db_search $::db(name)    set search [mysqlsel $db_search "SELECT $::t(path) FROM $::t(table) WHERE $::t(tracknum) LIKE '%$t%' ORDER BY $::t(tracknum) DESC LIMIT 1" -flatlist]    mysqlclose $db_search#Get the first entity from the result list    set search [lindex $search 0]    if { $search == "" } {      puthelp "PRIVMSG $c :No file to send for tracknumber *$t* $n"      return    } else {      puthelp "PRIVMSG $c :Sending file to $n"      dccsend $search $n    }  }}

Code:

mysqlescape $t

Code:

set t [mysqlescape $t]

Code:

#how it looks in the db4444 script test 1 test 1 /home/doggo/test/test_1.mp3

Code:

#how it looks in channel[20:23] <doggo> !help[20:23] <allscene> To fetch a file from the database the correct syntax to use is: !fetch <tracknum>[20:23] <doggo> !fetch 4444[20:23] <allscene> Sending file to doggo[20:23] <doggo> !fetch 5555[20:23] <allscene> No file to send for tracknumber *5555* doggo

Code:

#what the bot says on the party line[20:23] <allscene> [20:24] Begin DCC send test_1.mp3 to doggo[20:23] <allscene> [20:24] Finished dcc send test_1.mp3 to doggo

Code:

#the script modified# Rls: #mysql_fetch.tcl# Date: 24/07/10# Coded by: doggo# Contact: #alt.binaries.inner-sanctum@EFNET############################################package require mysqltcl 3.05#channel flag    .chanset #YOUR_CHAN +mysql-fetchsetudef flag mysql-search#connect to dbset db(host) "***********"set db(user) "***********"set db(pass) "***********"set db(name) "egghelp"#table infoset t(tracknum) "tracknum"set t(artist) "artist"set t(title) "title"set t(path) "path"#from tableset t(table) "egg"#output channelset output_channel "#allscene"###script starts#### the help section bind pub - !help helperproc helper {n u h c t} {  if {[channel get $c mysql-fetch] == 1 } {putserv "PRIVMSG $c :To fetch a file from the database the correct syntax to use is: !fetch <tracknum>" }}#the public trigger -|- = anybody can use the triggerbind pub -|- !fetch fetch_fileproc fetch_file {n u h c t} {if {[channel get $c mysql-fetch] == 1 } {if {$t == ""} {putquick "notice $n :!fetch <tracknum>"return}set db_search [mysqlconnect -host $::db(host) -user $::db(user) -password $::db(pass)]mysqluse $db_search $::db(name)set search [mysqlsel $db_search "SELECT $::t(path) FROM $::t(table) WHERE $::t(tracknum) LIKE '%$t%' ORDER BY $::t(tracknum) DESC LIMIT 1" -flatlist]mysqlclose $db_searchregsub -all {\{} $search "" searchregsub -all {\}} $search "" searchif { $search == "" } {puthelp "PRIVMSG $c :No file to send for tracknumber *$t* $n"return} else {              puthelp "PRIVMSG $c :Sending file to $n"dccsend $search $n  } }}putlog "mysql_fetch.tcl by doggo #alt.binaries.inner-sanctum@efnet LOADED"

Code:

proc pub_fetch {nick host hand chan text} {  global db  if {![string is int $text]} {    puthelp "NOTICE $nick :$text is not a valid integer, please try again"    return  }  set sqlhand [mysqlconnect -host $db(hostname) -user $db(username) -password $db(password)]  mysqluse $sqlhand $db(database)  set query "SELECT * FROM `music` WHERE `tracknum` = $text"  putlog $query  foreach record [mysqlsel $sqlhand $query -list] {    putlog $record    putserv "NOTICE $nick :Sending you Song #[lindex $record 0] [lindex $record 1] - [lindex $record 2]"  }  mysqlclose $sqlhand}

Code:

proc pub_fetch {nick host hand chan text} {   global db   set sqlhand [mysqlconnect -host $db(hostname) -user $db(username) -password $db(password)]   mysqluse $sqlhand $db(database)   foreach query [mysqlsel $sqlhand "SELECT * FROM music WHERE tracknum = '$text'"] {      putlog "$query"      putserv "NOTICE $nick :Sending you Song #[lindex $query 0] [lindex $query 1] - [lindex $query 2]"   }   mysqlclose $sqlhand}

Code:

#the table infoCREATE TABLE egg (  tracknum int(15) NOT NULL,  artist varchar(200) NOT NULL,  title varchar(200) NOT NULL,  path varchar(400) NOT NULL) ENGINE=MyISAM DEFAULT CHARSET=latin1;INSERT INTO egg (tracknum, artist, title, path) VALUES(4444, 'script test 1', 'test 1', '/home/doggo/test 1.mp3'),(1111, 'script test 2', 'test 2', '/home/doggo/test 2.mp3'),(3333, 'script test 3', 'test 3', '/home/doggo/test 3.mp3');

Code:

#working in the channel[14:55] <doggo> !help[14:55] <allscene> To search the database the correct syntax is: !search <title>[14:55] <doggo> !search test 1[14:55] <allscene> (SEARCH RESULTS) 4444 script test 1 test 1 /home/doggo/test 1.mp3[14:55] <doggo> !search test 2[14:55] <allscene> (SEARCH RESULTS) 1111 script test 2 test 2 /home/doggo/test 2.mp3[14:55] <doggo> !search test 3[14:55] <allscene> (SEARCH RESULTS) 3333 script test 3 test 3 /home/doggo/test 3.mp3[14:55] <doggo> and when there are no results to display[14:56] <doggo> !search test 4[14:56] <allscene> No results matching *test%4*

Code:

proc pub_fetch {nick host hand chan text} {   global db   set sqlhand [mysqlconnect -host $db(hostname) -user $db(username) -password $db(password)]   mysqluse $sqlhand $db(database)   set query [mysqlsel $sqlhand "SELECT `path` FROM `music` WHERE `tracknum` = '$text'"]   mysqlclose $sqlhand   putlog "[lindex $query 1]"}

Code:

foreach query [mysqlsel $sqlhand "SELECT * FROM `music` WHERE `tracknum` = [::mysql::escape $text]"] {

Code:

-FredGibson- Sending you Song #1:  -