Miscellany

bind pub - !hi hi
proc hi {n u h c t} {
 putserv "privmsg $c :Before-Escape $t"
 set t [string map {\\ \\\\ \| \\| \[ \\[ \] \\] \{ \\{ \} \\} $ \\$ \` \\` \' \\' \" \\"} $t]
 putserv "privmsg $c :After-Escape $t"
 set t [string map {\\\\ \\ \\| \| \\[ \[ \\] \] \\{ \{ \\} \} \\$ $ \\` \` \\' \' \\" \"} $t]
 putserv "privmsg $c :After-UnEscape $t"
}