Code: Select all
bind pub n !cycle cycle
proc cycle {n u h c a} {
foreach ch [channels] {
putserv "PART $ch"
}
}
Code: Select all
expr [lindex $t 3] -1
Code: Select all
scan $t %d t
Code: Select all
expected integer but got "08" (looks like invalid octal number)[/quote]
There's the error, just track it down and convert that octal number using 'scan'.