egghelp/eggheads community

bind notc not working[SOLVED]

2008-05-18T14:51:39-04:00

See this thread:
http://forum.egghelp.org/viewtopic.php?t=9009&start=3
Use the new function this creates as I have below:

Code:

 If {[throttled $id $duration]} {return 0} else {#something}

$id = unique identifier for each individual, you tailor this to your whims
$duration = amount in seconds to ignore the user after their initial request.

Statistics: Posted by speechles — Sun May 18, 2008 2:51 pm

bind notc not working[SOLVED]

2008-05-18T14:00:42-04:00

Right, tried to find some doc on throttled but nothing.
I have searched throttled. but didn't find anything about restriction?
because i need search restriction for my script

Statistics: Posted by ztian299 — Sun May 18, 2008 2:00 pm

bind notc not working[SOLVED]

2008-05-18T10:39:19-04:00

Search for 'throttled'.

Statistics: Posted by Sir_Fz — Sun May 18, 2008 10:39 am

bind notc not working[SOLVED]

2008-05-18T09:29:16-04:00

I continue.. I need to set how many times people can search, and if exceed ignore for 6hours!

I'm not sure how the "if exceed" would be done. Help appreciated

Statistics: Posted by ztian299 — Sun May 18, 2008 9:29 am

bind notc not working[SOLVED]

2008-04-26T14:06:27-04:00

When I see the code Sir_Fz pasted it answer all my answers.
I'm probably not that good to ask questions!
Thanks for explanation speechles..
I asked how the timer could be executed.. In the answer I was hoping to get this.
I appreciate your guys help, I'm sorry for my bad ass questions

Statistics: Posted by ztian299 — Sat Apr 26, 2008 2:06 pm

bind notc not working[SOLVED]

2008-04-26T14:00:08-04:00

You're not being clear about what you want, I guess you want this:

Code:

proc notice:search {nick uhost handle text {dest ""}} { global dbhandling sqltable chan2 sqltable2 if {$dest == ""} {set dest $::botnick} # check if nick is on #chan if {[onchan $nick $kanal2]} {  set site [lindex [split $text] 1]  # mysql...  set result [mysqlsel $dbhandling "SELECT url FROM $sqltable WHERE site='$site' LIMIT 1" -list]  foreach url $result {   timer 10 [list sql:insert $nick $url $site]   putserv "PRIVMSG $nick :$url"   putlog "$site searched by $nick"  } }}proc sql:insert {nick url site} { global dbhandling sqltable sqltable2 mysqlexec $dbhandling "DELETE FROM $sqltable WHERE url='$url'" mysqlexec $dbhandling "INSERT INTO $sqltable2 (site, url, nick) VALUES ('$site', '$url', '$nick')" putlog "$site moved $sqltable -> $sqltable2"}

Statistics: Posted by Sir_Fz — Sat Apr 26, 2008 2:00 pm

bind notc not working[SOLVED]

2008-04-26T14:00:32-04:00

Your failing to understand how tcl works entirely.

Code:

timer 1 [list sql:insert $nick $site $url]

This calls sql:insert if it is OUTSIDE any procedure and left in global space, it will be executed once and start the sql:insert procedure You can then place an additional timer calling sql:insert inside the actual sql:insert procedure so that this behavior will keep occuring at regular intervals. Understand?

Statistics: Posted by speechles — Sat Apr 26, 2008 1:51 pm

bind notc not working[SOLVED]

2008-04-26T13:19:58-04:00

Code:

proc notice:search {nick uhost handle text {dest ""}} { global dbhandling sqltable chan2 sqltable2 if {$dest == ""} {set dest $::botnick} # check if nick is on #chan if {[onchan $nick $kanal2]} {  set site [lindex [split $text] 1]  # mysql...  set result [mysqlsel $dbhandling "SELECT url FROM $sqltable WHERE site='$site' LIMIT 1" -list]  foreach url $result {   mysqlexec $dbhandling "DELETE FROM $sqltable WHERE url='$url'"   mysqlexec $dbhandling "INSERT INTO $sqltable2 (site, url) VALUES ('$site', '$url')"   putserv "PRIVMSG $nick :$url"   putlog "$site searched by $nick"   putlog "$site moved $sqltable -> $sqltable2"  } }}

Code:

proc sql:insert {nick site url} {global dbhandling mysqlexec $dbhandling "DELETE FROM $sqltable2 WHERE url='$url'" mysqlexec $dbhandling "INSERT INTO $sqltable (site, url, nick) VALUES ('$site', '$url', '$nick')"timer 1 [list sql:insert $nick $site $url]putlog "DONE"}

How does proc sql:insert work since not any variables or anything call it?

Sorry about confusing questions. But this part is getting hard

Statistics: Posted by ztian299 — Sat Apr 26, 2008 1:19 pm

bind notc not working[SOLVED]

2008-04-26T13:08:07-04:00

Can I ask what command that tells the proc sql:insert to execute those lines?

What do you meant "what command?" it's called within the timer if that's what you mean.

Statistics: Posted by Sir_Fz — Sat Apr 26, 2008 1:08 pm

bind notc not working[SOLVED]

2008-04-26T12:11:31-04:00

Can I ask what command that tells the proc sql:insert to execute those lines?

Statistics: Posted by ztian299 — Sat Apr 26, 2008 12:11 pm

bind notc not working[SOLVED]

2008-04-26T11:37:24-04:00

It's more optimal to create a new procedure.

Code:

proc sql:insert {nick site url} { global dbhandling mysqlexec $dbhandling "DELETE FROM $sqltable2 WHERE url='$url'" mysqlexec $dbhandling "INSERT INTO $sqltable (site, url, nick) VALUES ('$site', '$url', '$nick')"}

and just call the timer like this

Code:

timer 10 [list sql:insert $nick $site $url]

Statistics: Posted by Sir_Fz — Sat Apr 26, 2008 11:37 am

bind notc not working[SOLVED]

2008-04-26T08:18:46-04:00

I thought it was necessary to use two foreach.

Example:

Code:

timer 10 [list mysqlexec $dbhandling "DELETE FROM $sqltable2 WHERE url='$url'" mysqlexec $dbhandling "INSERT INTO $sqltable (site, url, nick) VALUES ('$site', '$url', '$nick')"]

Will not work because timer can't do both(I heard).
I got two options:
-make timer in a proc
-make timer again under DELETE.
What is best? I writed this:

Code:

proc timer:notice {nick uhost handle arg} {global dbhandling sqltable sqltable2timer 10 [list mysqlexec $dbhandling "DELETE FROM $sqltable2 WHERE url='$url'"]putlog "deleted from $sqltable2"timer 10 [list mysqlexec $dbhandling "INSERT INTO $sqltable (site, url) VALUES ('$site', '$url')"]putlog "added to $sqltable"}

I'm trying, but don't know if this is working?

Statistics: Posted by ztian299 — Sat Apr 26, 2008 8:18 am

bind notc not working[SOLVED]

2008-04-25T20:51:47-04:00

You meant

Code:

proc notice:search {nick uhost handle text {dest ""}} { global dbhandling sqltable chan2 sqltable2 if {$dest == ""} {set dest $::botnick} # check if nick is on #chan if {[onchan $nick $kanal2]} {  set site [lindex [split $text] 1]  # mysql...  set result [mysqlsel $dbhandling "SELECT url FROM $sqltable WHERE site='$site' LIMIT 1" -list]  foreach url $result {   mysqlexec $dbhandling "DELETE FROM $sqltable WHERE url='$url'"   mysqlexec $dbhandling "INSERT INTO $sqltable2 (site, url) VALUES ('$site', '$url')"   putserv "PRIVMSG $nick :$url"   putlog "$site searched by $nick"   putlog "$site moved $sqltable -> $sqltable2"  } }}

Statistics: Posted by Sir_Fz — Fri Apr 25, 2008 8:51 pm

bind notc not working[SOLVED]

2008-04-25T14:44:36-04:00

Hrrm, looks like it won't work like it should
It only insert into column 'site' and leaves column 'url' blank?

Code:

# /notice bot searchproc notice:search {nick uhost handle text {dest ""}} {global dbhandling sqltable chan2 sqltable2if {$dest == ""} {set dest $::botnick}# check if nick is on #chanif {[onchan $nick $kanal2]} {set site [lindex [split $text] 1]set url [lindex [split $text] 2]# mysql...set result [mysqlsel $dbhandling "SELECT url FROM $sqltable WHERE site='$site' LIMIT 1" -list]foreach line $result {foreach move $result { mysqlexec $dbhandling "DELETE FROM $sqltable WHERE url='$url'" mysqlexec $dbhandling "INSERT INTO $sqltable2 (site, url) VALUES ('$site', '$url')"putserv "PRIVMSG $nick :$line"putlog "$site searched by $nick"putlog "$site moved $sqltable -> $sqltable2"   }  } }}

Statistics: Posted by ztian299 — Fri Apr 25, 2008 2:44 pm

bind notc not working[SOLVED]

2008-04-22T17:46:23-04:00

I'm not sure if an event can be scheduled in MySQL, however it can surely be done using Tcl. You can either use timers or time binds.

Statistics: Posted by Sir_Fz — Tue Apr 22, 2008 5:46 pm