1 /* Perl plugin -- Perl Support for Claws Mail
2  *
3  * Copyright (C) 2004-2007 Holger Berndt
4  *
5  * Sylpheed and Claws Mail are GTK+ based, lightweight, and fast e-mail clients
6  * Copyright (C) 1999-2007 Hiroyuki Yamamoto and the Claws Mail Team
7  *
8  * This program is free software; you can redistribute it and/or modify
9  * it under the terms of the GNU General Public License as published by
10  * the Free Software Foundation; either version 3 of the License, or
11  * (at your option) any later version.
12  *
13  * This program is distributed in the hope that it will be useful,
14  * but WITHOUT ANY WARRANTY; without even the implied warranty of
15  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
16  * GNU General Public License for more details.
17  *
18  * You should have received a copy of the GNU General Public License
19  * along with this program. If not, see <http://www.gnu.org/licenses/>.
20  */
21 
22 #ifndef SC_PERL_PLUGIN_H
23 #define SC_PERL_PLUGIN_H SC_PERL_PLUGIN_H
24 
25 /* the name of the filtering Perl script file */
26 #define PERLFILTER "perl_filter"
27 
28 typedef struct {
29   gchar *address;
30   gchar *bookname;
31 } PerlPluginEmailEntry;
32 
33 typedef struct {
34   gchar *address;
35   gchar *value;
36   gchar *bookname;
37 } PerlPluginAttributeEntry;
38 
39 typedef struct {
40   GSList *g_slist;
41   time_t mtime;
42 } PerlPluginTimedSList;
43 
44 typedef struct {
45   gint filter_log_verbosity;
46 } PerlPluginConfig;
47 
48 gint execute_detached(gchar**);
49 
50 #endif /* include guard */
51