diff options
| author | toma <toma@283d02a7-25f6-0310-bc7c-ecb5cbfe19da> | 2009-11-25 17:56:58 +0000 |
|---|---|---|
| committer | toma <toma@283d02a7-25f6-0310-bc7c-ecb5cbfe19da> | 2009-11-25 17:56:58 +0000 |
| commit | 47d455dd55be855e4cc691c32f687f723d9247ee (patch) | |
| tree | 52e236aaa2576bdb3840ebede26619692fed6d7d /kghostview/update-to-xt-names.pl | |
| download | tdegraphics-47d455dd55be855e4cc691c32f687f723d9247ee.tar.gz tdegraphics-47d455dd55be855e4cc691c32f687f723d9247ee.zip | |
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/kdegraphics@1054174 283d02a7-25f6-0310-bc7c-ecb5cbfe19da
Diffstat (limited to 'kghostview/update-to-xt-names.pl')
| -rw-r--r-- | kghostview/update-to-xt-names.pl | 36 |
1 files changed, 36 insertions, 0 deletions
diff --git a/kghostview/update-to-xt-names.pl b/kghostview/update-to-xt-names.pl new file mode 100644 index 00000000..1aa07403 --- /dev/null +++ b/kghostview/update-to-xt-names.pl @@ -0,0 +1,36 @@ +#!/usr/bin/perl + +my $group = ''; +my $key = ''; +my $value = ''; + +while (<>) { + if (/^\s.*$/) { next } + if (/^\s*#.*$/) { next } + if (/\[(.*)\]/) { + $group = $1; + } elsif (/^(.*)=(.*)$/) { + $key = $1; + $value = $2; + } else { next } + + if (!$group || !$key) { next } + + if ( $group eq 'General' ) { + if ( $key eq 'Palette' ) { + if ($value eq 'color') { + print "Palette=Color\n"; + } elsif ($value eq 'monochrome') { + print "Palette=Monochrome\n"; + } elsif ($value eq 'grayscale') { + print "Palette=Grayscale\n"; + } else { + print "Palette=Color\n"; + } + } + if ( $key eq 'Interpreter' ) { + print "# DELETE [General]Interpreter\n"; + } + } +} + |