fusa
Voice
Joined: 04 Oct 2008
Posts: 2
|
 Posted: Sat Oct 04, 2008 7:03 pm Post subject: timer crashing |
 |
|
I have two scripts that ran ok before I upgraded to 1.6.19 from 1.6.18. They both ran on timers that announced to the channel changes in 2 different directories. Now I'm getting the following errors, and the scripts fail after their first run. I've tried commenting out the dns module, but I end up with channels.dll being part of the error. This is running on Unreal3.2.7 with Anope 1.7.22 and Denora Stats 1.4.2a. Eggdrop is started with the command: C:\Windrop\eggdrop.exe -nt
| Code: |
[18:25] @#channel (+trn) : [m/3 o/2 h/0 v/1 n/0 b/0 e/0 I/0]
8 [main] eggdrop 7448 C:\Windrop\eggdrop.exe: *** fatal error - unable to remap c:\windrop\modules\dns.dll to same address as parent(0xC10000) != 0xD40000
7 [main] eggdrop 6316 fork: child 7448 - died waiting for dll loading, errno 11
[18:26] Tcl error in script for 'timer4':
[18:26] couldn't fork child process: resource temporarily unavailable
987537 [main] eggdrop 3608 C:\Windrop\eggdrop.exe: *** fatal error - unable to remap c:\windrop\modules\dns.dll to same address as parent(0xC10000) != 0xD40000
994896 [main] eggdrop 6316 fork: child 3608 - died waiting for dll loading, errno 11
[18:26] Tcl error in script for 'timer3':
[18:26] couldn't fork child process: resource temporarily unavailable
|
First script:
| Code: |
proc newr {} {
puthelp "PRIVMSG #channel :7,1...directory..."
set dirxz [glob -nocomplain -types d -path e:/directory/ *]
foreach dird $dirxz {
puthelp "PRIVMSG #channel :6,1[file tail $dird]"
}
set infor [exec cmd /c dir /-c e:]
set infodr [exec cmd /c dir /-c d:]
set infodrx [exec cmd /c dir /-c g:]
set infodry [exec cmd /c dir /-c f:]
set infodrz [exec cmd /c dir /-c h:]
set freer [lindex [lindex [split $infor \n] end] 2]
set freedr [lindex [lindex [split $infodr \n] end] 2]
set freedrx [lindex [lindex [split $infodrx \n] end] 2]
set freedry [lindex [lindex [split $infodry \n] end] 2]
set freedrz [lindex [lindex [split $infodrz \n] end] 2]
set freembr [ expr $freer / 1073741824 ]
set freembdr [ expr $freedr / 1073741824 ]
set freembdrx [ expr $freedrx / 1073741824 ]
set freembdry [ expr $freedry / 1073741824 ]
set freembdrz [ expr $freedrz / 1073741824 ]
set sumtr [expr {$freembr+$freembdr+$freembdrx+$freembdry+$freembdrz}]
puthelp "PRIVMSG #channel :7,1...$sumtr GBs..."
timer 30 newr
}
if {![info exists timloaded]} {
putlog "timer.tcl timer started"
timer 5 newr
set timloaded 1
}
putlog "TimerR loaded."
|
Second script:
| Code: |
proc newt {} {
puthelp "PRIVMSG #channel :7,1...message..."
set yest [expr [clock seconds] - 86400]
set dirxx [glob -nocomplain -types d -path e:/dir/dir/ *]
set filec [glob -nocomplain -types f -path e:/dir/dir/ *]
foreach dirc $dirxx {
set mtime [file mtime $dirc]
if { $mtime > $yest } {
puthelp "PRIVMSG #channel :6,1/dir/[file tail $dirc]"
}
}
foreach filex $filec {
set mtime [file mtime $filex]
if { $mtime > $yest } {
puthelp "PRIVMSG #channel :6,1/dir/[file tail $filex]"
}
}
set infon [exec cmd /c dir /-c e:]
set infodm [exec cmd /c dir /-c d:]
set infodmx [exec cmd /c dir /-c g:]
set infodmy [exec cmd /c dir /-c f:]
set infodmz [exec cmd /c dir /-c h:]
set freen [lindex [lindex [split $infon \n] end] 2]
set freedm [lindex [lindex [split $infodm \n] end] 2]
set freedmx [lindex [lindex [split $infodmx \n] end] 2]
set freedmy [lindex [lindex [split $infodmy \n] end] 2]
set freedmz [lindex [lindex [split $infodmz \n] end] 2]
set freembn [ expr $freen / 1073741824 ]
set freembdm [ expr $freedm / 1073741824 ]
set freembdmx [ expr $freedmx / 1073741824 ]
set freembdmy [ expr $freedmy / 1073741824 ]
set freembdmz [ expr $freedmz / 1073741824 ]
set sumtn [expr {$freembn+$freembdm+$freembdmx+$freembdmy+$freembdmz}]
puthelp "PRIVMSG #channel :7,1...$sumtn GBs..."
timer 20 newt
}
if {![info exists timeloaded]} {
putlog "timet.tcl timer started"
timer 5 newt
set timeloaded 1
}
putlog "TimerT loaded."
|
|
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
