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 | 460c52653ab0dcca6f19a4f492ed2c5e4e963ab0 (patch) | |
tree | 67208f7c145782a7e90b123b982ca78d88cc2c87 /kmail/kmail-3.5-trigger-flag-migration.pl | |
download | tdepim-460c52653ab0dcca6f19a4f492ed2c5e4e963ab0.tar.gz tdepim-460c52653ab0dcca6f19a4f492ed2c5e4e963ab0.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/kdepim@1054174 283d02a7-25f6-0310-bc7c-ecb5cbfe19da
Diffstat (limited to 'kmail/kmail-3.5-trigger-flag-migration.pl')
-rw-r--r-- | kmail/kmail-3.5-trigger-flag-migration.pl | 39 |
1 files changed, 39 insertions, 0 deletions
diff --git a/kmail/kmail-3.5-trigger-flag-migration.pl b/kmail/kmail-3.5-trigger-flag-migration.pl new file mode 100644 index 000000000..809a611a1 --- /dev/null +++ b/kmail/kmail-3.5-trigger-flag-migration.pl @@ -0,0 +1,39 @@ +#!/usr/bin/perl +# +# Copyright (c) 2007 Volker Krause <vkrause@kde.org> +# +# This program is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2 of the License, or +# (at your option) any later version. +# You should have received a copy of the GNU General Public License +# along with this program; if not, write to the Free Software Foundation, +# Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, US +# + +$currentGroup = ""; + +$source = $ARGV[0]; + +while (<STDIN>) { + chomp; + next if /^$/; + next if /^\#/; + + # recognize groups: + if ( /^\[(.+)\]$/ ) { + $currentGroup = $_; + next; + }; + + ($key,$value) = split /=/; + next if $key eq ""; + + if ( $currentGroup =~ /^\[Folder/ ) { + if( ($key eq "UploadAllFlags" or $key eq "StatusChangedLocally") and not $value eq "true" ) { + $value = "true"; + print "#DELETE $currentGroup $key\n"; + print "$currentGroup\n$key=$value\n" + } + } +} |