diff options
Diffstat (limited to 'konversation/src/konversation-0.19-colorcodes.pl')
-rw-r--r-- | konversation/src/konversation-0.19-colorcodes.pl | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/konversation/src/konversation-0.19-colorcodes.pl b/konversation/src/konversation-0.19-colorcodes.pl new file mode 100644 index 0000000..5016c79 --- /dev/null +++ b/konversation/src/konversation-0.19-colorcodes.pl @@ -0,0 +1,26 @@ +#! /usr/bin/perl + +use strict; + +my $currentGroup = ""; +my $key; +my $value; + +while (<>) +{ + chomp; + if ( /^\[/ ) + { + $currentGroup = $_; + next; + } + ($key, $value) = ($_ =~ /([^=]+)=[ \t]*([^\n]+)/); + if ($_ =~ /FilterColorCodes/) + { + print("# DELETE $currentGroup$key\n"); + if ($value eq "true") + { + print("AllowColorCodes=false\n"); + } + } +} |