putdccraw is deprecated. Please use putdcc/putnow instead.

[COBRa]

hi im getting tht error in my tcl i think its this proc thts causing it any help would be appreciated

Code: Select all

proc putnow {a {options "0"}} {
append a "\n"
putdccraw 0 [string length $a] $a
}
rename putserv ""
rename putquick ""
rename puthelp ""
proc putserv {text {options "0"}} {
  putnow $text
}
proc putquick {text {options "0"}} {
  putnow $text
}
proc puthelp {text {options "0"}} {
  putnow $text
}

[SpiKe^^]

Just try that code without the putnow proc...

Code: Select all

proc putnow {a {options "0"}} { 
append a "\n" 
putdccraw 0 [string length $a] $a 
} 

and run the code looking more like this...

Code: Select all

rename putserv "" 
rename putquick "" 
rename puthelp "" 
proc putserv {text {options "0"}} { 
  putnow $text 
} 
proc putquick {text {options "0"}} { 
  putnow $text 
} 
proc puthelp {text {options "0"}} { 
  putnow $text 
}

[nml375]

I'd suggest removing all that code alltogether...
Those queue-commands do exist for a reason. If you really want to spew out text unthrottled, you should use the putnow command in the first place...