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");
+        }
+    }
+}