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.4.1-update-status-filters.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.4.1-update-status-filters.pl')
-rw-r--r-- | kmail/kmail-3.4.1-update-status-filters.pl | 42 |
1 files changed, 42 insertions, 0 deletions
diff --git a/kmail/kmail-3.4.1-update-status-filters.pl b/kmail/kmail-3.4.1-update-status-filters.pl new file mode 100644 index 000000000..735daf774 --- /dev/null +++ b/kmail/kmail-3.4.1-update-status-filters.pl @@ -0,0 +1,42 @@ +#!/usr/bin/perl -w + +use strict; + +# This script converts lower case status filter rules to upper case. + +# read the whole config file +my $currentGroup = ""; +my %configFile; +while ( <> ) { + chomp; + next if ( /^$/ ); # skip empty lines + next if ( /^\#/ ); # skip comments + if ( /^\[/ ) { # group begin + $currentGroup = $_; + next; + } elsif ( $currentGroup ne "" ) { # normal entry + my ($key,$value) = split /=/; + $configFile{$currentGroup}{$key}=$value; + } +} + +# go through all filters and check for rules which are no longer valid +my @filterGroups = grep { /^\[Filter \#\d+\]/ } keys %configFile; +foreach my $filterGroup (@filterGroups) { + my $numRules = $configFile{$filterGroup}{'rules'}; + # go through all rules: + for ( my $i = 0; $i < $numRules; ++$i ) { + my $c = chr( ord("A") + $i ); + my $fieldKey = "field$c"; + my $field = $configFile{$filterGroup}{$fieldKey}; + if ( $field eq "<status>" ) { + my $contentsKey = "contents$c"; + my $contents = $configFile{$filterGroup}{$contentsKey}; + if ( $contents =~ /^[a-z]/ ) { + $contents = ucfirst( $contents ); + print "# DELETE $filterGroup$contentsKey\n"; + print "$filterGroup\n$contentsKey=$contents\n"; + } + } + } +} |