How to stop msg output?

[[EW]MaxxCrash]

Hi there,

I sometimes find my bot spamming the channel with some scripts e.g. Dictionary.tcl by Wcc. Is there any way to make the eggdrop halt all output to a certain channel? In other words, how can I purge / edit the message queue which is generated by putserv?

I hope you can help me. Thanks very much in advance.

[user]

You can't edit the queue. The only way to stop it is to empty the entire queue using 'clearqueue'.

[[EW]MaxxCrash]

Why didn't I find that

Thanks for the quick reply

[ppslim]

Somthing like this

Code: Select all

# list channels that should not be sent to - keep lower case
set null_chan {
 #chan1
}

if {![info exits _putserv]} {
  set _putserv 0
  rename putserv _putserv
  proc putserv {arg {option {}}} {
    if {[lsearch $::null_chan [lindex [split $arg] 1]] > -1} {
      return
    }
    if {$option != {}} {
      putserv $arg $option
    } else {
      putserv $arg
    }
  }
}

That only works with putserv. Puthelp and others still need adjustment.

[user]

Code: Select all

proc putserv {} {putserv}

Notice any problems?
Another thing about the code; why use that variable when you can do 'info commands _putserv'?

[ppslim]

Point taken, I had some eyes poping over my sholder ever few seconds. I wouldn't worry, that code wouldn't do anything more nasty than send the code into a loop.

The other program I am working on of my own however, managed to delete its own source code, remove the CVS access files and a rather long winded documention report.

I have now lost my password for the CVS server on the day the person that maintains our CVS system has gone on holiday. Oh well.

Code: Select all

set null_chan { 
 #chan1 
} 

if {[info commands _putserv] == ""} { 
  rename putserv _putserv 
  proc putserv {arg {option {}}} { 
    if {[lsearch $::null_chan [lindex [split $arg] 1]] > -1} { 
      return 
    } 
    if {$option != {}} { 
      _putserv $arg $option 
    } else { 
      _putserv $arg 
    } 
  } 
}