From 4aed2c8219774f5d797760606b8489a92ddc5163 Mon Sep 17 00:00:00 2001
From: toma <toma@283d02a7-25f6-0310-bc7c-ecb5cbfe19da>
Date: Wed, 25 Nov 2009 17:56:58 +0000
Subject: Copy the KDE 3.5 branch to branches/trinity for new KDE 3.5 features.
 BUG:215923

git-svn-id: svn://anonsvn.kde.org/home/kde/branches/trinity/kdebase@1054174 283d02a7-25f6-0310-bc7c-ecb5cbfe19da
---
 konsole/doc/VT100/t.pl | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)
 create mode 100755 konsole/doc/VT100/t.pl

(limited to 'konsole/doc/VT100/t.pl')

diff --git a/konsole/doc/VT100/t.pl b/konsole/doc/VT100/t.pl
new file mode 100755
index 000000000..b0d9dc8e5
--- /dev/null
+++ b/konsole/doc/VT100/t.pl
@@ -0,0 +1,17 @@
+#!/usr/bin/perl
+
+# This script is here only as a pattern for maintainance works.
+# It has changing contents and is of no use to anyone but me.
+
+$source = "Table.Codes";
+
+open(CODES, $source) || die "cannot open file '" . $source . "'.";
+
+while (<CODES>) 
+{
+  if (/^attr/)
+  {
+    s/VT100/VT100 ANSI/ if (!/DEC/);
+  }
+  print $_;
+}
-- 
cgit v1.2.1