Free message from your heart software for linux

Mail::Message::Head::Partial is a subset of header information of a message.

INHERITANCE

Mail::Message::Head::Partial
is a Mail::Message::Head::Complete
is a Mail::Message::Head
is a Mail::Reporter

SYNOPSIS

my $partial = $head->strip;
$partial->isa(Mail::Message::Head) # true
$partial->isDelayed # false
$partial->isPartial # true

$partial->removeFields( qr/^X-/ );
$partial->removeFieldsExcept( qw/To From/ );
$partial->removeResentGroups;
$partial->removeListGroup;
$partial->removeSpamGroups;

Header information consumes a considerable amount of memory. Most of this information is only useful during a short period of time in your program, or sometimes it is not used at all. You then can decide to remove most of the header information. However, be warned that it will be lost permanently: the header (and therefore the messsage) gets mutulated!

Call this script from the Autostart folder, and it will update Kopetes away message for each interval (requires Kopete 0.12 or higher). The away messages are by default defined in ~/.kopete-away-msgs. Each line can contain either:
- a comment (starting with a #)
- flags message
The flags define some properties to each away message. Flags are defined only at the start of the line, beginning and ending with a %. The following flags are supported.
[0-9]*[smhd] Determines how long this message should be shown before a new one is chosen. This is the sleep(1) syntax.
a Only show this message when youre away.
c This line is a command, use its output as away message.
i Show the contents of a file, line by line. The message should contain the path to the file. Do not use ~ but use /home/$USER instead. Empty lines in the included file are skipped.
n Use the next message in the file for the next iteration.
o Only show this message when youre online.
x Dont use this message when looking for a random message. This means this line is only accessible when the former line contains the n flag.
- Show the message less than normal times
-- Show the message even more less
--- Show the message sometimes
To determine your online status, you need to have the Web Presence plugin enabled. By default, it reads the file ~/.webstatus.xml. Adapt the variable below if you store the file somewhere else. The script wont do anything when youre offline or partially away (that is, some protocols are Away, some protocols are Online).
Because the web status plugin is used, the process of retrieving the current webstatus is not really reliable. It may happen that you turn back to online when you set the status on Away in a short time. If this doesnt happen in about 10 seconds after the status change, you may consider the status change as successful.
Example ~/.kopete-away-msgs file:
========================================================================
# Sometimes, show uptime for one minute
%1mc--% uptime
# Fortune rocks, but dont pick too long messages (the length of away
# messages is limited.
%2mc% fortune -s -n 120
# just show Hello world for the default interval
Hello world
# Show a away message for 60 seconds.
%a60% Im away now.
# Ask people to say something when youre online
%o% Please message me!
# Show all contents of the Linux README line by line. Show each line for
# 3 seconds.
%3i% /usr/src/linux/README
# Tell a little story when Im away. These lines must emerge in the
# right order, so mind the n and x flags! The x flags make sure we dont
# start in the middle of the story. And, show each line for about 5
# seconds.
%na5% Goodbye, all you people,
%nax5% Theres nothing you can say
%nax5% To make me change my mind.
%ax5% Goodbye.
==================================================================
Enhancements:
- Ability to query the online/away status directly from Kopete (DCOP). This requires a patched Kopete, see the description for more details on how to proceed.
- Fortune mode: Pick a random line from a given text file.
- First check the online/away status to prevent unnecessary command calls.
- Various bugfixes

Mail::Message::Head::ResentGroup is a Perl module with header fields for tracking message delivery.

INHERITANCE

Mail::Message::Head::ResentGroup
is a Mail::Message::Head::FieldGroup
is a Mail::Reporter

SYNOPSIS

my $rg = Mail::Message::Head::ResentGroup->new(head => $head,
From => me@home.nl, To => You@tux.aq);
$head->addResentGroup($rg);

my $rg = $head->addResentGroup(From => me);

my @from = $rg->From;

my @rgs = $head->resentGroups;
$rg[2]->delete if @rgs > 2;

A resent group is a set of header fields which describe one intermediate step in the message transport. Resent groups have NOTHING to do with user activety; there is no relation to the users sense of creating reply, forward, or bounce messages at all!

Mail::Message::Convert::Html is a Perl module to format messages in HTML.

INHERITANCE

Mail::Message::Convert::Html
is a Mail::Message::Convert
is a Mail::Reporter

SYNOPSIS

use Mail::Message::Convert::Html;
my $Html = Mail::Message::Convert::Html->new;

print $html->fieldToHtml($head);
print $html->headToHtmlHead($head);
print $html->headToHtmlTable($head);
print $html->textToHtml($text);

The package contains various translators which handle HTML or XHTML without the help of external modules. There are more HTML related modules, which do require extra packages to be installed.

ebXML::Message is a Perl module to encapsulate an ebMS message.

SYNOPSIS

use ebXML::Message;

# create new message

my $message = ebXML::Message->new
(
CPAId => http://www.you.org/cpa/123456,
Action => NewPurchaseOrder,
MessageId => 12,
RefMessageToId => 11,
Service => ebXML::Message::Service->new
(
VALUE => QuoteToCollect,
Type => myservicetypes,
),
);

# write SOAP XML using DOM

use XML::Xerses;

# DOM Document
my $target = XML::Xerces::StdOutFormatTarget->new();
$writer->writeNode($target,$message->getOutput(DOM-Doc);

# DOM generated / munged XML
print OUT $message->getOutput(DOM-XML);


# use message with SOAP::Lite to call webservice

use SOAP::Lite;

# SOAP::Data::Builder object
my $result = SOAP::Lite->uri(http://uri.to/WebService)
->proxy(http://uri.to/soap.cgi)
->parts($message->getMIMEParts)
->call($message->getOutput(SOAP-Data))
->result;

# SOAP::Data::Builder generated / munged XML
print OUT $message->getOutput(SOAP-XML);

An ebXML message encapsulates all the details of an ebMS message.
ebXML is a mechanism for ensuring reliable delivery of XML-based messages via a transport mechanism such as SOAP. For more details on ebXML, see http://www.ebxml.org/
Large portions of this manual page are copied directly from the ebMS 2.0 specification.

Mail::Message::Head::Complete is a Perl module with the header of one message.

INHERITANCE

Mail::Message::Head::Complete
is a Mail::Message::Head
is a Mail::Reporter

Mail::Message::Head::Complete is extended by
Mail::Message::Head::Partial
Mail::Message::Replace::MailHeader

Mail::Message::Head::Complete is realized by
Mail::Message::Head::Delayed
Mail::Message::Head::Subset

SYNOPSIS

my $head = Mail::Message::Head::Complete->new;
See Mail::Message::Head

E-mails message can be in various states: unread, partially read, and fully read. The class stores a message of which all header lines are known for sure.

Mail::Message::Head::ListGroup is a Perl module for mailinglist related header fields.

INHERITANCE

Mail::Message::Head::ListGroup
is a Mail::Message::Head::FieldGroup
is a Mail::Reporter

SYNOPSIS

my $lg = Mail::Message::Head::ListGroup->new(head => $head, ...);
$head->addListGroup($lg);

my $lg = $head->addListGroup(...);

$lg->delete;

A list group is a set of header fields which are added by mailing-list managing software. This class knowns various details about that software.

The knowledge and test messages which are used to initially implement this module is taken from Mail::ListDetector, written by Michael Stevens. The logic is redesigned to add flexibility and use the powerful MailBox features.