egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2005-04-28T08:46:45-04:00 https://forum.eggheads.org/app.php/feed/topic/9499 2005-04-28T08:46:45-04:00 2005-04-28T08:46:45-04:00 https://forum.eggheads.org/viewtopic.php?p=48653#p48653 <![CDATA[Problem with bind time in existing script]]>

Thanks a lot! :D

Statistics: Posted by thedude0001 — Thu Apr 28, 2005 8:46 am

]]> 2005-04-28T03:37:06-04:00 2005-04-28T03:37:06-04:00 https://forum.eggheads.org/viewtopic.php?p=48644#p48644 <![CDATA[Problem with bind time in existing script]]> I hope read TCL-Commands.tcl close to recognize, that this would result in something like:
nick=00
host=17
hand=28
chan=04
arg=2005
^-^
so you have to "reply" it with a proc like:

Code: 

bind time - "00 *" gtgltraffic:tproc gtgltraffic:t {min h d m y} {   gtgltraffic {} {} {} #channel {}   return 0}
dont forget to replace your channel name :P.

Statistics: Posted by De Kus — Thu Apr 28, 2005 3:37 am

]]> 2005-04-27T19:11:17-04:00 2005-04-27T19:11:17-04:00 https://forum.eggheads.org/viewtopic.php?p=48635#p48635 <![CDATA[Problem with bind time in existing script]]>
I have a working script for announcing the traffic stats of a glftpd with a public trigger here. Now i wanted to modify it so the script announces the monthly traffic every hour in the chan. After looking around a bit I thought a simple 'bind time - "00 * * * *" procname' would do the trick, but it didn't.
After searching around the web for several hours I still have no idea where the problem is or how to solve it...

Here's the script:

Code: 

# v-1.05 22 Feb 05 (21:06:58)# Don't know who the original author is, but I'm releasing this# out with a few fixes to get around looping into negatives above# 2GB when reading k size. -Genocaust# glftpd users directoryset glftpdusers "/glftpd/ftp-data/users"# output themes#  variables:#   $traffick - traffic in kilobytes#   $trafficm - traffic in megabytes#   $trafficg - traffic in gigabytes#   $msgtag   - i just prepend to the outputs to match my bot themeset msgtag          "\002Alcatraz\002 :: \[\002stats \002\]"set gtoutput(all)   {$msgtag \002${trafficg}\002GB have passed through Alcatraz.}set gtoutput(month) {$msgtag While passing through Alcatraz, \002${trafficg}\002GB had an out of body experience this month.}set gtoutput(wk)    {$msgtag \002${trafficg}\002GB saw Elvis this week in Alcatraz.}set gtoutput(day)   {$msgtag Today \002${trafficg}\002GB all agreed that 'if the dick don't fit, you must acquit.'}# triggerset gtcommand "!traffic"# usage is: trigger [day/wk/month/all] - if not period is specified the default will be usedset gtdefault "month"proc gtgltraffic {nick host hand chan arg} {set monthup 0set monthdn 0global msgtagif {[llength [split $arg]]==0} {set period $::gtdefault} else {set period [lindex $arg 0]}if {![info exists ::gtoutput($period)]} {puthelp "PRIVMSG $chan :usage: $::gtcommand \[day/wk/month/all\]"return}foreach user [glob -nocomplain $::glftpdusers/*] {#putlog $userif {[catch {open $user} fp]} {#putlog "glftpd-traffic.tcl: $fp :("continue}set lines [split [read $fp] \n]foreach line $lines {if {[lindex [split $line] 0]=="[string toupper $period]UP"} {#putlog $lineforeach {files size time} [lrange [split $line] 1 end] {if {$size==""} {continue}incr monthup $size}} elseif {[lindex [split $line] 0]=="[string toupper $period]DN"} {#putlog $lineforeach {files size time} [lrange [split $line] 1 end] {if {$size==""} {continue}incr monthdn $size}}}}set traffick [expr wide($monthdn) + wide($monthup)]set trafficm [format %.1f [expr wide($traffick) /1024.0]]set trafficg [format %.1f [expr wide($trafficm) /1024.0]]puthelp "PRIVMSG $chan :[subst -nocommands $::gtoutput($period)]"}bind pub - $gtcommand gtgltrafficputlog "glFTPD Traffic 1.05 loaded"
Any help is really appreciated.

Statistics: Posted by thedude0001 — Wed Apr 27, 2005 7:11 pm

]]>