[Commits] Makefile.am NONE 1.1.2.1 perl_gtk.c NONE 1.1.2.1 perl_gtk.h NONE 1.1.2.1 perl_plugin.c NONE 1.1.2.1 perl_plugin.h NONE 1.1.2.1 placeholder.txt 1.1.2.1 NONE
colin at claws-mail.org
colin at claws-mail.org
Sun Feb 17 22:22:03 CET 2013
Update of /home/claws-mail/claws/src/plugins/perl
In directory srv:/tmp/cvs-serv7104/src/plugins/perl
Added Files:
Tag: gtk2
Makefile.am perl_gtk.c perl_gtk.h perl_plugin.c perl_plugin.h
Removed Files:
Tag: gtk2
placeholder.txt
Log Message:
2013-02-17 [colin] 3.9.0cvs75
* src/plugins/Makefile.am
* src/plugins/archive/Makefile.am
* src/plugins/clamd/Makefile.am
* src/plugins/clamd/clamav_plugin.c
* src/plugins/clamd/clamav_plugin.h
* src/plugins/clamd/clamav_plugin_gtk.c
* src/plugins/clamd/placeholder.txt
* src/plugins/clamd/libclamd/Makefile.am
* src/plugins/clamd/libclamd/clamd-plugin.c
* src/plugins/clamd/libclamd/clamd-plugin.h
* src/plugins/fetchinfo/Makefile.am
* src/plugins/fetchinfo/fetchinfo_plugin.c
* src/plugins/fetchinfo/fetchinfo_plugin.h
* src/plugins/fetchinfo/fetchinfo_plugin_gtk.c
* src/plugins/fetchinfo/placeholder.txt
* src/plugins/gdata/Makefile.am
* src/plugins/gdata/cm_gdata_contacts.c
* src/plugins/gdata/cm_gdata_contacts.h
* src/plugins/gdata/cm_gdata_prefs.c
* src/plugins/gdata/cm_gdata_prefs.h
* src/plugins/gdata/gdata_plugin.c
* src/plugins/gdata/gdata_plugin.h
* src/plugins/gdata/placeholder.txt
* src/plugins/geolocation/placeholder.txt
* src/plugins/gtkhtml2_viewer/placeholder.txt
* src/plugins/mailmbox/Makefile.am
* src/plugins/mailmbox/carray.c
* src/plugins/mailmbox/carray.h
* src/plugins/mailmbox/chash.c
* src/plugins/mailmbox/chash.h
* src/plugins/mailmbox/clist.c
* src/plugins/mailmbox/clist.h
* src/plugins/mailmbox/mailimf.c
* src/plugins/mailmbox/mailimf.h
* src/plugins/mailmbox/mailimf_types.c
* src/plugins/mailmbox/mailimf_types.h
* src/plugins/mailmbox/mailimf_types_helper.c
* src/plugins/mailmbox/mailimf_types_helper.h
* src/plugins/mailmbox/mailimf_write.c
* src/plugins/mailmbox/mailimf_write.h
* src/plugins/mailmbox/maillock.c
* src/plugins/mailmbox/maillock.h
* src/plugins/mailmbox/mailmbox.c
* src/plugins/mailmbox/mailmbox.h
* src/plugins/mailmbox/mailmbox_folder.c
* src/plugins/mailmbox/mailmbox_folder.h
* src/plugins/mailmbox/mailmbox_gtk.deps
* src/plugins/mailmbox/mailmbox_parse.c
* src/plugins/mailmbox/mailmbox_parse.h
* src/plugins/mailmbox/mailmbox_types.c
* src/plugins/mailmbox/mailmbox_types.h
* src/plugins/mailmbox/mmapstring.c
* src/plugins/mailmbox/mmapstring.h
* src/plugins/mailmbox/placeholder.txt
* src/plugins/mailmbox/plugin.c
* src/plugins/mailmbox/plugin_gtk.c
* src/plugins/mailmbox/plugin_gtk.h
* src/plugins/newmail/Makefile.am
* src/plugins/newmail/newmail.c
* src/plugins/newmail/placeholder.txt
* src/plugins/notification/Makefile.am
* src/plugins/notification/claws.def
* src/plugins/notification/notification_banner.c
* src/plugins/notification/notification_banner.h
* src/plugins/notification/notification_command.c
* src/plugins/notification/notification_command.h
* src/plugins/notification/notification_core.c
* src/plugins/notification/notification_core.h
* src/plugins/notification/notification_foldercheck.c
* src/plugins/notification/notification_foldercheck.h
* src/plugins/notification/notification_hotkeys.c
* src/plugins/notification/notification_hotkeys.h
* src/plugins/notification/notification_indicator.c
* src/plugins/notification/notification_indicator.h
* src/plugins/notification/notification_lcdproc.c
* src/plugins/notification/notification_lcdproc.h
* src/plugins/notification/notification_pixbuf.c
* src/plugins/notification/notification_pixbuf.h
* src/plugins/notification/notification_plugin.c
* src/plugins/notification/notification_plugin.h
* src/plugins/notification/notification_popup.c
* src/plugins/notification/notification_popup.h
* src/plugins/notification/notification_prefs.c
* src/plugins/notification/notification_prefs.h
* src/plugins/notification/notification_trayicon.c
* src/plugins/notification/notification_trayicon.h
* src/plugins/notification/placeholder.txt
* src/plugins/notification/plugin.def
* src/plugins/notification/raw_claws_mail_logo_64x64.h
* src/plugins/notification/version.rc
* src/plugins/pdf_viewer/Makefile.am
* src/plugins/pdf_viewer/doc_index.xpm
* src/plugins/pdf_viewer/doc_index_close.xpm
* src/plugins/pdf_viewer/doc_info.xpm
* src/plugins/pdf_viewer/first_arrow.xpm
* src/plugins/pdf_viewer/last_arrow.xpm
* src/plugins/pdf_viewer/left_arrow.xpm
* src/plugins/pdf_viewer/placeholder.txt
* src/plugins/pdf_viewer/poppler_viewer.c
* src/plugins/pdf_viewer/poppler_viewer.h
* src/plugins/pdf_viewer/right_arrow.xpm
* src/plugins/pdf_viewer/rotate_left.xpm
* src/plugins/pdf_viewer/rotate_right.xpm
* src/plugins/pdf_viewer/zoom_fit.xpm
* src/plugins/pdf_viewer/zoom_in.xpm
* src/plugins/pdf_viewer/zoom_out.xpm
* src/plugins/pdf_viewer/zoom_width.xpm
* src/plugins/perl/Makefile.am
* src/plugins/perl/perl_gtk.c
* src/plugins/perl/perl_gtk.h
* src/plugins/perl/perl_plugin.c
* src/plugins/perl/perl_plugin.h
* src/plugins/perl/placeholder.txt
* src/plugins/python/Makefile.am
* src/plugins/python/clawsmailmodule.c
* src/plugins/python/clawsmailmodule.h
* src/plugins/python/composewindowtype.c
* src/plugins/python/composewindowtype.h
* src/plugins/python/foldertype.c
* src/plugins/python/foldertype.h
* src/plugins/python/messageinfotype.c
* src/plugins/python/messageinfotype.h
* src/plugins/python/nodetype.c
* src/plugins/python/nodetype.h
* src/plugins/python/placeholder.txt
* src/plugins/python/python-hooks.c
* src/plugins/python/python-hooks.h
* src/plugins/python/python-shell.c
* src/plugins/python/python-shell.h
* src/plugins/python/python_plugin.c
* src/plugins/vcalendar/Makefile.in
Add some plugins (clamd, fetchinfo, gdata, mailmbox, newmail,
notification, pdf_viewer, perl, python). Notification not yet
enabled because it has too much autoconf switches for my taste.
--- placeholder.txt DELETED ---
--- NEW FILE: perl_gtk.c ---
/* Perl plugin -- Perl Support for Claws Mail
*
* Copyright (C) 2004-2007 Holger Berndt
*
* Sylpheed and Claws-Mail are GTK+ based, lightweight, and fast e-mail clients
* Copyright (C) 1999-2007 Hiroyuki Yamamoto and the Claws Mail Team
*
* 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 3 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program. If not, see <http://www.gnu.org/licenses/>.
*/
#ifdef HAVE_CONFIG_H
# include "config.h"
#include "claws-features.h"
#endif
#include <glib.h>
#include <glib/gi18n.h>
#include <string.h>
#include <glib.h>
#include <glib/gi18n.h>
#include <gtk/gtk.h>
#include "common/utils.h"
#include "mainwindow.h"
#include "prefs_common.h"
#include "main.h"
#include "menu.h"
#include "perl_plugin.h"
#include "perl_gtk.h"
static void perl_filter_edit(GtkAction *,gpointer);
static GtkActionEntry mainwindow_tools_perl_edit[] = {{
"Tools/EditPerlRules",
NULL, N_("Edit perl filter rules (ext)..."), NULL, NULL, G_CALLBACK(perl_filter_edit)
}};
static gint main_menu_id = 0;
void perl_gtk_init(void)
{
MainWindow *mainwin;
mainwin = mainwindow_get_mainwindow();
gtk_action_group_add_actions(mainwin->action_group, mainwindow_tools_perl_edit,
1, (gpointer)mainwin);
MENUITEM_ADDUI_ID_MANAGER(mainwin->ui_manager, "/Menu/Tools", "EditPerlRules",
"Tools/EditPerlRules", GTK_UI_MANAGER_MENUITEM,
main_menu_id)
}
void perl_gtk_done(void)
{
MainWindow *mainwin;
mainwin = mainwindow_get_mainwindow();
if(mainwin && !claws_is_exiting()) {
MENUITEM_REMUI_MANAGER(mainwin->ui_manager,mainwin->action_group, "Tools/EditPerlRules", main_menu_id);
main_menu_id = 0;
}
}
static void perl_filter_edit(GtkAction *action, gpointer callback_data)
{
gchar *perlfilter;
gchar *pp;
gchar buf[1024];
gchar **cmdline;
perlfilter = g_strconcat(get_rc_dir(), G_DIR_SEPARATOR_S, PERLFILTER, NULL);
if (prefs_common_get_ext_editor_cmd() &&
(pp = strchr(prefs_common_get_ext_editor_cmd(), '%')) &&
*(pp + 1) == 's' && !strchr(pp + 2, '%')) {
g_snprintf(buf, sizeof(buf), prefs_common_get_ext_editor_cmd(), perlfilter);
}
else {
if (prefs_common_get_ext_editor_cmd())
g_warning("Perl Plugin: External editor command-line is invalid: `%s'",
prefs_common_get_ext_editor_cmd());
g_snprintf(buf, sizeof(buf), "emacs %s", perlfilter);
}
g_free(perlfilter);
cmdline = strsplit_with_quote(buf, " ", 1024);
execute_detached(cmdline);
g_strfreev(cmdline);
}
--- NEW FILE: Makefile.am ---
plugindir = $(pkglibdir)/plugins
plugin_LTLIBRARIES = perl_plugin.la
perl_plugin_la_SOURCES = \
perl_plugin.c perl_plugin.h \
perl_gtk.c perl_gtk.h
perl_plugin_la_LDFLAGS = \
-avoid-version -module
perl_plugin_la_LIBADD = \
$(PERL_LDFLAGS) \
$(GTK_LIBS)
AM_CPPFLAGS = \
$(CLAWS_MAIL_CFLAGS) \
$(GLIB_CFLAGS) \
$(GTK_CFLAGS) \
$(PERL_CFLAGS)
INCLUDES = \
-I$(top_srcdir)/src \
-I$(top_srcdir)/src/common \
-I$(top_srcdir)/src/gtk
--- NEW FILE: perl_plugin.h ---
/* Perl plugin -- Perl Support for Claws Mail
*
* Copyright (C) 2004-2007 Holger Berndt
*
* Sylpheed and Claws-Mail are GTK+ based, lightweight, and fast e-mail clients
* Copyright (C) 1999-2007 Hiroyuki Yamamoto and the Claws Mail Team
*
* 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 3 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program. If not, see <http://www.gnu.org/licenses/>.
*/
#ifndef SC_PERL_PLUGIN_H
#define SC_PERL_PLUGIN_H SC_PERL_PLUGIN_H
/* the name of the filtering Perl script file */
#define PERLFILTER "perl_filter"
typedef struct {
gchar *address;
gchar *bookname;
} PerlPluginEmailEntry;
typedef struct {
gchar *address;
gchar *value;
gchar *bookname;
} PerlPluginAttributeEntry;
typedef struct {
GSList *g_slist;
time_t mtime;
} PerlPluginTimedSList;
typedef struct {
gint filter_log_verbosity;
} PerlPluginConfig;
gint execute_detached(gchar**);
#endif /* include guard */
--- NEW FILE: perl_gtk.h ---
/* Perl plugin -- Perl Support for Claws Mail
*
* Copyright (C) 2004-2007 Holger Berndt
*
* Sylpheed and Claws-Mail are GTK+ based, lightweight, and fast e-mail clients
* Copyright (C) 1999-2007 Hiroyuki Yamamoto and the Claws Mail Team
*
* 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 3 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program. If not, see <http://www.gnu.org/licenses/>.
*/
#ifndef SC_PERL_GTK_H
#define SC_PERL_GTK_H SC_PERL_GTK_H
void perl_gtk_init(void);
void perl_gtk_done(void);
#endif
--- NEW FILE: perl_plugin.c ---
/* Perl plugin -- Perl Support for Claws Mail
*
* Copyright (C) 2004-2007 Holger Berndt
*
* Sylpheed and Claws-Mail are GTK+ based, lightweight, and fast e-mail clients
* Copyright (C) 1999-2007 Hiroyuki Yamamoto and the Claws Mail Team
*
* 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 3 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program. If not, see <http://www.gnu.org/licenses/>.
[...2361 lines suppressed...]
return "GTK2";
}
const gchar *plugin_licence(void)
{
return "GPL3+";
}
const gchar *plugin_version(void)
{
return VERSION;
}
struct PluginFeature *plugin_provides(void)
{
static struct PluginFeature features[] =
{ {PLUGIN_FILTERING, N_("Perl integration")},
{PLUGIN_NOTHING, NULL}};
return features;
}
More information about the Commits
mailing list