You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
tdepim/kmail/mailinglist-magic.cpp

415 lines
10 KiB

// -*- Mode: C++; c-basic-offset: 2; indent-tabs-mode: nil; -*-
#ifdef HAVE_CONFIG_H
#include <config.h>
#endif
#include "mailinglist-magic.h"
#include "kmmessage.h"
#include <kconfig.h>
#include <kurl.h>
#include <kdebug.h>
#include <tqstringlist.h>
using namespace KMail;
typedef TQString (*MagicDetectorFunc) (const KMMessage *, TQCString &, TQString &);
/* Sender: (owner-([^@]+)|([^@+]-owner)@ */
static TQString check_sender(const KMMessage *message,
TQCString &header_name,
TQString &header_value )
{
TQString header = message->headerField( "Sender" );
if ( header.isEmpty() )
return TQString::null;
if ( header.left( 6 ) == "owner-" )
{
header_name = "Sender";
header_value = header;
header = header.mid( 6, header.find( '@' ) - 6 );
} else {
int index = header.find( "-owner@ " );
if ( index == -1 )
return TQString::null;
header.truncate( index );
header_name = "Sender";
header_value = header;
}
return header;
}
/* X-BeenThere: ([^@]+) */
static TQString check_x_beenthere(const KMMessage *message,
TQCString &header_name,
TQString &header_value )
{
TQString header = message->headerField( "X-BeenThere" );
if ( header.isNull() || header.find( '@' ) == -1 )
return TQString::null;
header_name = "X-BeenThere";
header_value = header;
header.truncate( header.find( '@' ) );
return header;
}
/* Delivered-To:: <([^@]+) */
static TQString check_delivered_to(const KMMessage *message,
TQCString &header_name,
TQString &header_value )
{
TQString header = message->headerField( "Delivered-To" );
if ( header.isNull() || header.left(13 ) != "mailing list"
|| header.find( '@' ) == -1 )
return TQString::null;
header_name = "Delivered-To";
header_value = header;
return header.mid( 13, header.find( '@' ) - 13 );
}
/* X-Mailing-List: <?([^@]+) */
static TQString check_x_mailing_list(const KMMessage *message,
TQCString &header_name,
TQString &header_value )
{
TQString header = message->headerField( "X-Mailing-List");
if ( header.isEmpty() )
return TQString::null;
if ( header.find( '@' ) < 1 )
return TQString::null;
header_name = "X-Mailing-List";
header_value = header;
if ( header[0] == '<' )
header = header.mid(1, header.find( '@' ) - 1);
else
header.truncate( header.find( '@' ) );
return header;
}
/* List-Id: [^<]* <([^.]+) */
static TQString check_list_id(const KMMessage *message,
TQCString &header_name,
TQString &header_value )
{
int lAnglePos, firstDotPos;
TQString header = message->headerField( "List-Id" );
if ( header.isEmpty() )
return TQString::null;
lAnglePos = header.find( '<' );
if ( lAnglePos < 0 )
return TQString::null;
firstDotPos = header.find( '.', lAnglePos );
if ( firstDotPos < 0 )
return TQString::null;
header_name = "List-Id";
header_value = header.mid( lAnglePos );
header = header.mid( lAnglePos + 1, firstDotPos - lAnglePos - 1 );
return header;
}
/* List-Post: <mailto:[^< ]*>) */
static TQString check_list_post(const KMMessage *message,
TQCString &header_name,
TQString &header_value )
{
TQString header = message->headerField( "List-Post" );
if ( header.isEmpty() )
return TQString::null;
int lAnglePos = header.find( "<mailto:" );
if ( lAnglePos < 0 )
return TQString::null;
header_name = "List-Post";
header_value = header;
header = header.mid( lAnglePos + 8, header.length());
header.truncate( header.find('@') );
return header;
}
/* Mailing-List: list ([^@]+) */
static TQString check_mailing_list(const KMMessage *message,
TQCString &header_name,
TQString &header_value )
{
TQString header = message->headerField( "Mailing-List");
if ( header.isEmpty() )
return TQString::null;
if (header.left( 5 ) != "list " || header.find( '@' ) < 5 )
return TQString::null;
header_name = "Mailing-List";
header_value = header;
header = header.mid(5, header.find( '@' ) - 5);
return header;
}
/* X-Loop: ([^@]+) */
static TQString check_x_loop(const KMMessage *message,
TQCString &header_name,
TQString &header_value ){
TQString header = message->headerField( "X-Loop");
if ( header.isEmpty() )
return TQString::null;
if (header.find( '@' ) < 2 )
return TQString::null;
header_name = "X-Loop";
header_value = header;
header.truncate(header.find( '@' ));
return header;
}
/* X-ML-Name: (.+) */
static TQString check_x_ml_name(const KMMessage *message,
TQCString &header_name,
TQString &header_value ){
TQString header = message->headerField( "X-ML-Name");
if ( header.isEmpty() )
return TQString::null;
header_name = "X-ML-Name";
header_value = header;
header.truncate(header.find( '@' ));
return header;
}
MagicDetectorFunc magic_detector[] =
{
check_list_id,
check_list_post,
check_sender,
check_x_mailing_list,
check_mailing_list,
check_delivered_to,
check_x_beenthere,
check_x_loop,
check_x_ml_name
};
static const int num_detectors = sizeof (magic_detector) / sizeof (magic_detector[0]);
static QStringList
headerToAddress( const TQString& header )
{
TQStringList addr;
int start = 0;
int end = 0;
if ( header.isEmpty() )
return addr;
while ( (start = header.find( "<", start )) != -1 ) {
if ( (end = header.find( ">", ++start ) ) == -1 ) {
kdDebug(5006)<<k_funcinfo<<"Serious mailing list header parsing error !"<<endl;
return addr;
}
kdDebug(5006)<<"Mailing list = "<<header.mid( start, end - start )<<endl;
addr.append( header.mid( start, end - start ) );
}
return addr;
}
MailingList
MailingList::detect( const KMMessage *message )
{
MailingList mlist;
mlist.setPostURLS( headerToAddress(
message->headerField( "List-Post" ) ) );
mlist.setHelpURLS( headerToAddress(
message->headerField( "List-Help" ) ) );
mlist.setSubscribeURLS( headerToAddress(
message->headerField( "List-Subscribe" ) ) );
mlist.setUnsubscribeURLS( headerToAddress(
message->headerField( "List-Unsubscribe" ) ) );
mlist.setArchiveURLS( headerToAddress(
message->headerField( "List-Archive" ) ) );
mlist.setId( message->headerField( "List-Id" ) );
return mlist;
}
QString
MailingList::name( const KMMessage *message, TQCString &header_name,
TQString &header_value )
{
TQString mlist;
header_name = TQCString();
header_value = TQString::null;
if ( !message )
return TQString::null;
for (int i = 0; i < num_detectors; i++) {
mlist = magic_detector[i] (message, header_name, header_value);
if ( !mlist.isNull() )
return mlist;
}
return TQString::null;
}
MailingList::MailingList()
: mFeatures( None ), mHandler( KMail )
{
}
int
MailingList::features() const
{
return mFeatures;
}
void
MailingList::setHandler( MailingList::Handler han )
{
mHandler = han;
}
MailingList::Handler
MailingList::handler() const
{
return mHandler;
}
void
MailingList::setPostURLS ( const KURL::List& lst )
{
mFeatures |= Post;
if ( lst.empty() ) {
mFeatures ^= Post;
}
mPostURLS = lst;
}
KURL::List
MailingList::postURLS() const
{
return mPostURLS;
}
void
MailingList::setSubscribeURLS( const KURL::List& lst )
{
mFeatures |= Subscribe;
if ( lst.empty() ) {
mFeatures ^= Subscribe;
}
mSubscribeURLS = lst;
}
KURL::List
MailingList::subscribeURLS() const
{
return mSubscribeURLS;
}
void
MailingList::setUnsubscribeURLS( const KURL::List& lst )
{
mFeatures |= Unsubscribe;
if ( lst.empty() ) {
mFeatures ^= Unsubscribe;
}
mUnsubscribeURLS = lst;
}
KURL::List MailingList::unsubscribeURLS() const
{
return mUnsubscribeURLS;
}
void
MailingList::setHelpURLS( const KURL::List& lst )
{
mFeatures |= Help;
if ( lst.empty() ) {
mFeatures ^= Help;
}
mHelpURLS = lst;
}
KURL::List
MailingList::helpURLS() const
{
return mHelpURLS;
}
void
MailingList::setArchiveURLS( const KURL::List& lst )
{
mFeatures |= Archive;
if ( lst.empty() ) {
mFeatures ^= Archive;
}
mArchiveURLS = lst;
}
KURL::List
MailingList::archiveURLS() const
{
return mArchiveURLS;
}
void
MailingList::setId( const TQString& str )
{
mFeatures |= Id;
if ( str.isEmpty() ) {
mFeatures ^= Id;
}
mId = str;
}
QString
MailingList::id() const
{
return mId;
}
void
MailingList::writeConfig( KConfig* config ) const
{
config->writeEntry( "MailingListFeatures", mFeatures );
config->writeEntry( "MailingListHandler", mHandler );
config->writeEntry( "MailingListId", mId );
config->writeEntry( "MailingListPostingAddress", mPostURLS.toStringList() );
config->writeEntry( "MailingListSubscribeAddress", mSubscribeURLS.toStringList() );
config->writeEntry( "MailingListUnsubscribeAddress", mUnsubscribeURLS.toStringList() );
config->writeEntry( "MailingListArchiveAddress", mArchiveURLS.toStringList() );
config->writeEntry( "MailingListHelpAddress", mHelpURLS.toStringList() );
}
void
MailingList::readConfig( KConfig* config )
{
mFeatures = config->readNumEntry( "MailingListFeatures", 0 );
mHandler = static_cast<MailingList::Handler>(
config->readNumEntry( "MailingListHandler", MailingList::KMail ) );
mId = config->readEntry("MailingListId");
mPostURLS = config->readListEntry( "MailingListPostingAddress" );
mSubscribeURLS = config->readListEntry( "MailingListSubscribeAddress" );
mUnsubscribeURLS = config->readListEntry( "MailingListUnsubscribeAddress" );
mArchiveURLS = config->readListEntry( "MailingListArchiveAddress" );
mHelpURLS = config->readListEntry( "MailingListHelpAddress" );
}