eggdrop tcl script schlechte bans löschen

[boon]

Hi, ich hab mir ein tcl script zusammengebraut, das zu allgemein gültige bans auflöst. Das ganze funktioniert auch schon recht gut... aber leider schaff ich es einfach nicht, das die zeile mit dem regexp auch funktioniert.
wer weiss, was ich da falsch mache?


gruss, boon


bind mode - "% +b" uglyban
proc uglyban {nick uhost hand chan mc {victim ""}} {
if {$mc == "+b"} {
switch -regexp $victim {
\*!\*(bla.ch)?@\*\.cust\.bluewin\.ch {aufruf $nick $uhost $hand $chan $mc $victim}
\*!\*(bla.ch)?@\*\.dclient\.hispeed\.ch {aufruf $nick $uhost $hand $chan $mc $victim}


}
}
}

proc aufruf {nick uhost hand chan mc {victim ""}} {
putserv "PRIVMSG $nick :!Achtung... dieser Ban ist zu Umfassend.. bitte den Ban anders setzen.. ich entferne ihn jetzt wieder!"
utimer 3[list pushmode $chan -b $victim]