c35429cfc3460846125ba469aee6b4579d9f058c
[claws.git] / tools / filter_conv.pl
1 #!/usr/bin/perl
2
3 #  * Copyright 2002 Paul Mangan <claws@thewildbeast.co.uk>
4 #  *
5 #  * This file is free software; you can redistribute it and/or modify it
6 #  * under the terms of the GNU General Public License as published by
7 #  * the Free Software Foundation; either version 2 of the License, or
8 #  * (at your option) any later version.
9 #  *
10 #  * This program is distributed in the hope that it will be useful, but
11 #  * WITHOUT ANY WARRANTY; without even the implied warranty of
12 #  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
13 #  * General Public License for more details.
14 #  *
15 #  * You should have received a copy of the GNU General Public License
16 #  * along with this program; if not, write to the Free Software
17 #  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
18 #  *
19
20 chdir;
21 chdir '.sylpheed' || die("You don't appear to have Sylpheed installed\n");
22
23 open (FILTERRC, "<filterrc") || die("Can't find your old filter rules\n");
24 @filterrc = <FILTERRC>;
25 close FILTERRC;
26
27 if (!@filterrc) {
28         print "\nYou don't have any filter rules\n\n";
29         exit;
30 }
31
32 $WRITE_THIS = "";
33 $COUNT      = "0";
34
35 if (-e "matcherrc") {
36         open (MATCHER, "<matcherrc") || die("Can't open matcherrc\n");
37         @matcherrc = <MATCHER>;
38         close MATCHER;
39                 foreach $matcherrc (@matcherrc) {
40                         $WRITE_THIS .= $matcherrc;
41                 }
42         $WRITE_THIS .= "\n";
43 }
44
45 $WRITE_THIS .= "[global]\n";
46
47 foreach $filterrc (@filterrc) {
48         $COUNT++;
49         @split_lines = split("\t", $filterrc);
50         if ($split_lines[6] eq "0") {
51                 $match_type = "matchcase";
52                 $predicate_one = "~";
53         } elsif ($split_lines[6] eq "1") {
54                 $match_type = "matchcase";
55                 $predicate_one = "";
56         } elsif ($split_lines[6] eq "4") {
57                 $match_type = "regexpcase";
58                 $predicate_one = "~";
59         } elsif ($split_lines[6] eq "5") {
60                 $match_type =  "regexpcase";
61                 $predicate_one = "";
62         }
63         if ($split_lines[7] eq "0") {
64                 $match_type = "matchcase";
65                 $predicate_two = "~";
66         } elsif ($split_lines[7] eq "1") {
67                 $match_type = "matchcase";
68                 $predicate_two = "";
69         } elsif ($split_lines[7] eq "4") {
70                 $match_type = "regexpcase";
71                 $predicate_two = "~";
72         } elsif ($split_lines[7] eq "5") {
73                 $match_type =  "regexpcase";
74                 $predicate_two = "";
75         }
76
77         if ($split_lines[2] eq "&") {
78                 $operator = "&";
79                 &sort_data;
80         }
81         elsif ($split_lines[2] eq "|") {
82                 $operator = "|";
83                 &sort_data;
84         } elsif ($split_lines[0] eq "To") {
85                 $WRITE_THIS .= "$predicate_one"."to $match_type \"$split_lines[1]\"";
86         } elsif ($split_lines[0] eq "Reply-To") {
87                 $WRITE_THIS .= "$predicate_one"."inreplyto $match_type \"$split_lines[1]\"";
88         } elsif ($split_lines[0] eq "Subject") {
89                 $WRITE_THIS .= "$predicate_one"."subject $match_type \"$split_lines[1]\"";
90         } elsif ($split_lines[0] eq "From"){
91                 $WRITE_THIS .= "$predicate_one"."from $match_type \"$split_lines[1]\"";
92         } elsif ($split_lines[0] eq "Sender" || $split_lines[0] eq "List-Id" || 
93                  $split_lines[0] eq "X-ML-Name" || $split_lines[0] eq "X-List" ||
94                  $split_lines[0] eq "X-Sequence" || $split_lines[0] eq "X-Mailer" ||
95                  $split_lines[0] eq "Cc") {
96                 $WRITE_THIS .= "$predicate_one"."header $split_lines[0] $match_type \"$split_lines[1]\"";
97         }
98         if ($split_lines[8] eq "n\n") {
99                 $WRITE_THIS .= " delete";
100         } elsif ($split_lines[8] eq "m\n"){
101                 $WRITE_THIS .= " move \"$split_lines[5]\"";
102         }
103         $WRITE_THIS .= "\n";
104         @split_lines = "";
105 }
106
107 open (MATCHERRC, ">matcherrc");
108 print MATCHERRC $WRITE_THIS;
109 close MATCHERRC;
110
111 rename ("filterrc","filterrc.old");
112
113 print "\nYou have sucessfully converted $COUNT filtering rules\n\n";
114 print "'filterrc' has been renamed 'filterrc.old'\n\n";
115 exit;
116
117 sub sort_data {
118         if ($split_lines[0] eq "To" && $split_lines[3] eq "Cc" && 
119         $split_lines[1] eq $split_lines[4]) {
120                 $WRITE_THIS .= "$predicate_one"."to_or_cc $match_type \"$split_lines[1]\"";             
121         }
122         elsif ($split_lines[0] eq "To") {
123                 $WRITE_THIS .= "$predicate_one"."to $match_type \"$split_lines[1]\" $operator ";
124         } elsif ($split_lines[0] eq "Reply-To") {
125                 $WRITE_THIS .= "$predicate_one"."inreplyto $match_type \"$split_lines[1]\" $operator ";
126         } elsif ($split_lines[0] eq "Subject") {
127                 $WRITE_THIS .= "$predicate_one"."subject $match_type \"$split_lines[1]\" $operator ";
128         } elsif ($split_lines[0] eq "From") {
129                 $WRITE_THIS .= "$predicate_one"."from $match_type \"$split_lines[1]\" $operator ";
130         } elsif ($split_lines[0] eq "Sender" || $split_lines[0] eq "List-Id" || 
131                  $split_lines[0] eq "X-ML-Name" || $split_lines[0] eq "X-List" ||
132                  $split_lines[0] eq "X-Sequence" || $split_lines[0] eq "X-Mailer" ||
133                  $split_lines[0] eq "Cc") {
134                 $WRITE_THIS .= "$predicate_one"."header $split_lines[0] $match_type \"$split_lines[1]\" $operator ";
135         }
136
137         if ($split_lines[3] eq "To") {
138                 $WRITE_THIS .= "$predicate_two"."to $match_type \"$split_lines[4]\"";
139         } elsif ($split_lines[3] eq "Reply-To") {
140                 $WRITE_THIS .= "$predicate_two"."inreplyto $match_type \"$split_lines[4]\"";
141         } elsif ($split_lines[3] eq "Subject") {
142                 $WRITE_THIS .= "$predicate_two"."subject $match_type \"$split_lines[4]\"";
143         } elsif ($split_lines[3] eq "From") {
144                 $WRITE_THIS .= "$predicate_two"."from $match_type \"$split_lines[4]\"";
145         } elsif ($split_lines[3] eq "Sender" || $split_lines[3] eq "List-Id" || 
146                  $split_lines[3] eq "X-ML-Name" || $split_lines[3] eq "X-List" ||
147                  $split_lines[3] eq "X-Sequence" || $split_lines[3] eq "X-Mailer" ||
148                  $split_lines[3] eq "Cc") {
149                 $WRITE_THIS .= "$predicate_two"."header $split_lines[3] $match_type \"$split_lines[4]\"";
150         } 
151
152 }