[script] advoice

[MenzAgitat]

En lisant le code, il me semble qu'il y a un problème si un user cumule plusieurs modes et est par exemple voicé, halfopé et opé.
Une fois le temps d'idle max atteint, il sera d'abord déopé, puis déhalfopé 1mn après, puis dévoicé encore 1mn après.
Je propose le correctif suivant :

tclcopier

proc check {min hour day month year} {
	foreach chan [channels] {
		set idlemax [channel get $chan advoice]
		if { $idlemax == 0 } {
			continue
		} else {
			foreach nick [chanlist $chan] {
				foreach protected $::advoice::protected {
					if { [lsearch -nocase [::advoice::filt [split $protected]] [::advoice::filt [split $nick]]] != -1 } {
						putlog "protected -> [::advoice::filt [split $protected]]"
						continue
					} else {
						if { [getchanidle $nick $chan] > $idlemax } {
							if { $::advoice::opasvoice } {
								if { [isop $nick $chan] } {
									::advoice::deop $nick $chan
								}
								if { [ishalfop $nick $chan] } {
								::advoice::dehalfop $nick $chan
								}
							}
							if { [isvoice $nick $chan] } {
								::advoice::devoice $nick $chan
							}
						}
					}
				}
			}
		}
	}
}

De plus, la proc filt pourrait être optimisée en :

tclcopier

proc filt {data} {
	return [regsub -all {\W} $data {\\&}]
}