egghelp/eggheads community

Back At it again

2004-11-07T18:57:15-04:00

after putting this stupid thing down for months, I'm trying again. Now from all my prvious posts I'm trying to retrive information and add information into a mysql database. using pub commands, my old code looks like this, someone let me know wtf I'm doing wrong here.

Code:

#Adding Routineproc add:pub {nick uhost handle channel arg} {global mysql netset arg [rls:filter $arg]set table $mysql(release_table)set sql(conn) [mysqlconnect -host $mysql(host) -user $mysql(user) -password $mysql(pass)]mysqluse $sql(conn) $mysql(data)mysqlexec $sql(conn) "INSERT INTO '$table' ( 'id' , 'release_data' , 'release_date' ) VALUES ( '', $arg' , NOW( ))"mysqlclose $sql(conn)pustserv "NOTICE $nick :Release has been added"putcmdlog "<<$nick>> !$handle! Added a new Release to the database."}#Deleting Routinebind pub - !del del:pubproc del:pub {nick uhost handle channel arg} {global mysql netset table $mysql(release_table)set id ""set sql(conn) [mysqlconnect -host $mysql(host) -user $mysql(user) -password $mysql(pass)]mysqluse $sql(conn) $mysq(data)if {[string is integer $arg]} {set id [lindex [lindex [mysqlsel $sql(conn) "SELECT * FROM `$table` ORDER BY id ASC LIMIT [expr $arg -1],1;" -list] 0] 0]} elseif {[lindex $arg 0] == "-id" && [string is integer [lindex $arg 1]]} {set id [lindex $arg 1]}if {$id != ""} { set result [mysqlexec $sql(conn) "DELETE FROM `$table` WHERE `id` = '$id'"] }mysqlclose $sql(conn)if {$result != 0} {putserv "PRIVMSG $channel :Release has been deleted"putcmdlog "<<$nick>> !$handle! Deleted a Release in $channel."} else {putserv "PRIVMSG $channel :No such Release in database"}}

now i'm also trying to add a search string to allow to search for more than 10 but i also only want displayed the first 10 releases. here is that code

Code:

proc rls_show {nick uhost hand chan arg} {global mysql netset sql(conn) [mysqlconnect -host $mysql(host) -user $mysql(user) -password $mysql(pass)]mysqluse $sql(conn)mysqlsel $mysql(data) "SELECT id, release_data, release_date FROM $mysql(table)" -listputserv "PRIVMSG $nick :The Following is the 10 Newest Releases by \002blah\002"putserv "PRIVMSG $nick :Title:$release_data Date:$release_date"putserv "PRIVMSG $nick :TO search for more releases use !new #, or !new all"

I need to know what I'm doing wrong so I can start to fix this stupid problem. I'm open to all suggestions you have.. thanks

Also on the announcing part of the serach I get each line over and over like this
blah blah bhla
1.
blah blah blah
blahblahblah
2.
blah blah blha

instead of
blah blah blah
1.
2.
3.
blha blha blha

Thanks for any help

Smokey[/code]

Statistics: Posted by SmokeyOne — Sun Nov 07, 2004 6:57 pm

Mysql: adding to a database

2004-07-06T00:00:22-04:00

could u xplain what that is supposed to be ? and how did u make the country thing looks kinda cool was looking for something like it for my website tnx in advance

Statistics: Posted by Ofloo — Tue Jul 06, 2004 12:00 am

Mysql: adding to a database

2004-06-24T14:30:59-04:00

its been awhile since I was last on the net... my net time is starting to get smaller and smaller.. well anyways.. I beleive what I meant as a header and footer was.

New releases by Blah
1.
2.
3.
4.
checks us out on the web at http://www.blah.com

instead it was doing the top and bottom half over and over with each posting of the list.

Statistics: Posted by SmokeyOne — Thu Jun 24, 2004 2:30 pm

Mysql: adding to a database

2004-04-11T12:55:27-04:00

what header i mean header of what ? .. what do you mean

hmm normal

puts header

while ...
puts list ...
close ...

puts footer

Statistics: Posted by Ofloo — Sun Apr 11, 2004 12:55 pm

Mysql: adding to a database

2004-04-10T22:49:13-04:00

okay well it works somewhat... now if I can get the header and the footer to display once, then show the list.... that's the problem I tried a older method, but it started to give me tcl errors.

Statistics: Posted by SmokeyOne — Sat Apr 10, 2004 10:49 pm

Mysql: adding to a database

2004-04-10T05:31:27-04:00

split up the date just use one string like unix time and use clock format unix time is all decimal chars and u can use it in php as well if you wana use webbased [censored] afterwards unixtime is almost reconized in any code so you can format anything from that way beter then spliting dates and [censored]

But this is totaly up to you

Statistics: Posted by Ofloo — Sat Apr 10, 2004 5:31 am

Mysql: adding to a database

2004-04-09T18:44:54-04:00

okay I can list the db somewhat, though I would like to create a header and a footer, seems that might be the only way... also i tired to split it up in 3 ways like Ttle: Data: Date:, and I justed [join [lrange $qurey 1]] but it says its needs a end, i don't remember how to stop it at just that filed so i can display the date information on another line..

Statistics: Posted by SmokeyOne — Fri Apr 09, 2004 6:44 pm

Mysql: adding to a database

2004-04-09T00:05:26-04:00

Limit is a mysql statement right then hmm u need to check the Mysql reference also if your making a search script also check LIKE

Statistics: Posted by Ofloo — Fri Apr 09, 2004 12:05 am

Mysql: adding to a database

2004-04-08T18:57:11-04:00

okay I got it setup working with adding, now I have to see if I can get delete working, and then the searching funtion.

now with the serach i can just use -limit 10 for it to display the first 10 results, but then would it be better to use a switch or, a else if statment to use for another string ? like !list 99 or something ?

Statistics: Posted by SmokeyOne — Thu Apr 08, 2004 6:57 pm

Mysql: adding to a database

2004-04-08T16:25:21-04:00

do not set the field to date time set it to decimal or int

Statistics: Posted by Ofloo — Thu Apr 08, 2004 4:25 pm

Mysql: adding to a database

2004-04-08T16:20:52-04:00

well I've build this proc, using mc_8's strip proc and the regsub filter, in hopes this might work, from what I was reading you can set a field in mysql to "datetime", not sure if this is true, i'm going to try it and find out. But this proc might work, if everything else is true

proc add:pub {nick ushost handle channel arg} {
global mysql net
set arg [rls:filter $arg]
set table $mysql(release_table)
set sql(conn) [mysqlconnect -host $mysql(host) -user $mysql(user) -password $mysql(pass)]
mysqluse $sql(conn) $mysql(data)
mysqlexec $sql(conn) "INSERT INTO '$table' ( 'id' , 'release_data' , 'release_date' ) VALUES ( '', $arg' , NOW( ))"
mysqlclose $sql(conn)
pustserv "NOTICE $nick :Release has been added"
putcmdlog "<<$nick>> !$handle! Added a new Release to the database."

Statistics: Posted by SmokeyOne — Thu Apr 08, 2004 4:20 pm

Mysql: adding to a database

2004-04-08T16:15:55-04:00

so what your saying is using the string map to something like this correct ?

string map {\003?? \000 \017 \026} $arg

Statistics: Posted by SmokeyOne — Thu Apr 08, 2004 4:15 pm

Mysql: adding to a database

2004-04-08T15:43:04-04:00

i found this in MC_8's moretools.tcl

proc mirc_strip {{args ""}} {
set switches ""
if {$switches == ""} {set switches all}
set arg [lindex $args 0]
set all [expr {([lsearch -exact $switches all] >= 0) ? 1 : 0}]
set list [list \002 "" \017 "" \026 "" \037 ""]
regsub -all -- "\003(\[0-9\]\[0-9\]?(,\[0-9\]\[0-9\]?)?)?" $arg "" arg
set arg [replace -- $arg [join $list]]
return $arg
}

I'm going to guess. this would work? or would it cause more problems if the code is a bit outdated ?

no what i use is string map this is different from regsub see i prefer to use string map but u could do that above altho string map is faster but i gues it would work just fine tho

this is a complete solution mine is just a sample string

Statistics: Posted by Ofloo — Thu Apr 08, 2004 3:43 pm

Mysql: adding to a database

2004-04-08T15:39:29-04:00

no check clock this also if ur inserting it to a db its beter like this.

check clock format and clock seconds

Statistics: Posted by Ofloo — Thu Apr 08, 2004 3:39 pm

Mysql: adding to a database

2004-04-08T15:36:14-04:00

i found this in MC_8's moretools.tcl

proc mirc_strip {{args ""}} {
set switches ""
if {$switches == ""} {set switches all}
set arg [lindex $args 0]
set all [expr {([lsearch -exact $switches all] >= 0) ? 1 : 0}]
set list [list \002 "" \017 "" \026 "" \037 ""]
regsub -all -- "\003(\[0-9\]\[0-9\]?(,\[0-9\]\[0-9\]?)?)?" $arg "" arg
set arg [replace -- $arg [join $list]]
return $arg
}

I'm going to guess. this would work? or would it cause more problems if the code is a bit outdated ?

Statistics: Posted by SmokeyOne — Thu Apr 08, 2004 3:36 pm