egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2011-02-10T09:05:04-04:00 https://forum.eggheads.org/app.php/feed/topic/18293 2011-02-10T09:05:04-04:00 2011-02-10T09:05:04-04:00 https://forum.eggheads.org/viewtopic.php?p=96001#p96001 <![CDATA[Throttling]]> Statistics: Posted by padyo — Thu Feb 10, 2011 9:05 am

]]> 2011-02-09T02:45:20-04:00 2011-02-09T02:45:20-04:00 https://forum.eggheads.org/viewtopic.php?p=95988#p95988 <![CDATA[Throttling]]>

Code: 

proc pDailySchedule {dayname nick uhost hand chan text} {    if {[file exists ${dayname}.txt]} {
like so

Code: 

proc pDailySchedule {dayname nick uhost hand chan text} {    if {[throttled $uhost,$chan 10]} {     putlog "* throttled: waiting 10 seconds.... (public command: !$dayname)"     return    }    if {[file exists ${dayname}.txt]} {
:)

Statistics: Posted by TCL_no_TK — Wed Feb 09, 2011 2:45 am

]]> 2011-02-06T13:31:08-04:00 2011-02-06T13:31:08-04:00 https://forum.eggheads.org/viewtopic.php?p=95961#p95961 <![CDATA[Throttling]]>

Code: 

proc throttled {id time} {   global throttled   if {[info exists throttled($id)]} {      return 1   } {      set throttled($id) [clock sec]      utimer $time [list unset throttled($id)]      return 0   }}
and I can apply it to more basic commands, but am unsure of where to place this part of the code within the following....

if {[throttled $host,$chan 10]} {
return 0
} else {

Code: 

foreach dayname {sunday monday tuesday wednesday thursday friday saturday} {    bind PUB - !$dayname [list pDailySchedule $dayname]}proc pDailySchedule {dayname nick uhost hand chan text} {    if {[file exists ${dayname}.txt]} {        set id [open ${dayname}.txt r]        set schedule [split [read -nonewline $id] \n]        close $id        if {[llength $schedule] != 0} {            putserv "PRIVMSG $chan :Schedule for [string totitle $dayname]"            foreach item $schedule {                putserv "PRIVMSG $chan :$item"            }        } else {putserv "PRIVMSG $chan :There are no scheduled events for [string totitle $dayname]"}    } else {putserv "PRIVMSG $chan :Missing file ${dayname}.txt"}    return 0}
If someone could give me a heads up, it would be appreciated :)

Statistics: Posted by padyo — Sun Feb 06, 2011 1:31 pm

]]>