diff options
author | tpearson <tpearson@283d02a7-25f6-0310-bc7c-ecb5cbfe19da> | 2010-03-01 19:17:32 +0000 |
---|---|---|
committer | tpearson <tpearson@283d02a7-25f6-0310-bc7c-ecb5cbfe19da> | 2010-03-01 19:17:32 +0000 |
commit | e38d2351b83fa65c66ccde443777647ef5cb6cff (patch) | |
tree | 1897fc20e9f73a81c520a5b9f76f8ed042124883 /src/core/tellico-1-3-update.pl | |
download | tellico-e38d2351b83fa65c66ccde443777647ef5cb6cff.tar.gz tellico-e38d2351b83fa65c66ccde443777647ef5cb6cff.zip |
Added KDE3 version of Tellico
git-svn-id: svn://anonsvn.kde.org/home/kde/branches/trinity/applications/tellico@1097620 283d02a7-25f6-0310-bc7c-ecb5cbfe19da
Diffstat (limited to 'src/core/tellico-1-3-update.pl')
-rw-r--r-- | src/core/tellico-1-3-update.pl | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/src/core/tellico-1-3-update.pl b/src/core/tellico-1-3-update.pl new file mode 100644 index 0000000..9e5ad3b --- /dev/null +++ b/src/core/tellico-1-3-update.pl @@ -0,0 +1,24 @@ +#!/usr/bin/env perl + +my $input; +my $oldvalue; + +while( $input = <STDIN> ) +{ + chop $input; + + if( $input =~ /^Write Images In File\=(.*)/) + { + $oldvalue=$1; + if( $oldvalue eq "true" ) + { + print "Image Location=ImagesInFile\n"; + } + else + { + print "Image Location=ImageAppDir\n"; + } + } +} + +print "# DELETE [General Options]Write Images In File\n"; |