egghelp/eggheads community

Adding info into a database via tcl

2014-08-18T05:16:40-04:00

took your advice and all is working superbly well many thanks to all

Statistics: Posted by COBRa — Mon Aug 18, 2014 5:16 am

Adding info into a database via tcl

2014-07-31T14:07:03-04:00

This seems obviously related to your other thread.
What you need to understand, is that the regular expression (pattern) I tailored in that thread, was specific to the format of the data - as posted in that thread. Here you have a different format, and thus need a different pattern.

From what I can tell though, it would seem you have two eggdrops, one which receives the messages from a third party, which you then relay to the second eggdrop which is then responsible for storing the data in the database. In this case, I'd suggest you use the already built-in encapsulation methods in tcl in this bot-to-bot transfer. And that would be tcl-lists.
Your first eggdrop has managed to split the data into four different variables (rlsname genre year sampling), so just create a list containing these four elements, and be done with it...

Code:

#bot 1...putbot bot2 "addid3c [list $rlsname $genre $year $sampling]"...#bot 2bind bot - addid3cproc addmy:idc {bot command items} {  lassign $items rlsname genre year sampling  ...

lassign is only available from tcl8.5 and forwards, for older versions you could use lindex to access each item by it's list offset instead.

Statistics: Posted by nml375 — Thu Jul 31, 2014 2:07 pm

Adding info into a database via tcl

2014-07-31T13:04:41-04:00

i want to want to store the info into a database ive come up with this code so far it kinda works unless the genre is double worded then it seems to add the first word of the genre at the end of the rlsname

Code:

proc addmy:id3c { bot com arg } {global chann_ db_handle   set pattern { ([^>]+) ([^>]+) ([0-9]+) ([0-9]+)  }        if { [regexp $pattern $arg match rlsname genre year sampling] } {        set result [mysqlsel $db_handle "SELECT `rlsname` FROM `id3c` WHERE `rlsname` = '$rlsname'"]    }      if { $result == "0" } {     mysqlexec $db_handle "INSERT INTO `id3c` ( `rlsname` , `genre` , `year` , `sampling` ) VALUES ( '$rlsname' , '$genre' , '$year' , '$sampling' )"putquick "PRIVMSG $chann_(addid3c) :!addid3c $rlsname $genre $year $sampling"   }}

the output from the previous script is this

Code:

!addid3c Marduk-World_Funeral-Remastered-2014-BERC Black Metal 2014 44100

and here is the database table

Code:

-- Table structure for table `id3c`--CREATE TABLE IF NOT EXISTS `id3c` (  `id` int(11) NOT NULL AUTO_INCREMENT,  `rlsname` varchar(240) CHARACTER SET utf8 NOT NULL,  `genre` text CHARACTER SET utf8,  `year` year(4) NOT NULL,  `sampling` int(10) DEFAULT NULL,   PRIMARY KEY (`id`),  UNIQUE KEY `rlsname` (`rlsname`)) ENGINE=MyISAM  DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci AUTO_INCREMENT=602 ;

so basically it adds Marduk-World_Funeral-Remastered-2014-BERC Black into the rlsname field instead of Marduk-World_Funeral-Remastered-2014-BERC without the word Black which is part of the genre field

Statistics: Posted by COBRa — Thu Jul 31, 2014 1:04 pm