File: nocolor.pl

package info (click to toggle)

sirc 2.211-9.1

links: PTS
area: main
in suites: etch, etch-m68k, lenny, squeeze
size: 476 kB
ctags: 420
sloc: perl: 5,330; ansic: 1,200; sh: 855; makefile: 78

file content (5 lines) | stat: -rw-r--r-- 161 bytes

# nocolor.pl by forcer for sirc (GNU copyleft/under GPL etc.)
sub hook_mynprint {
        $_[0] =~ s/\003\d{0,2}(,\d{1,2})?//g;
}
&addhook("print", "mynprint");