Changeset 214b790 for perl/modules
- Timestamp:
- Jan 10, 2008, 3:58:49 PM (17 years ago)
- Branches:
- master, barnowl_perlaim, debian, release-1.10, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9
- Children:
- 1a64de6
- Parents:
- b68342b
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
perl/modules/IRC/lib/BarnOwl/Module/IRC/Connection.pm
rbc0d7bc r214b790 161 161 sub strip_irc_formatting { 162 162 my $body = shift; 163 my @pieces = split /\x02/, $body; 163 # Strip mIRC colors. If someone wants to write code to convert 164 # these to zephyr colors, be my guest. 165 $body =~ s/\cC\d+(?:,\d+)?//g; 166 $body =~ s/\cO//g; 167 168 my @pieces = split /\cB/, $body; 164 169 my $out; 165 170 while(@pieces) {
Note: See TracChangeset
for help on using the changeset viewer.