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