NAME

SYNOPSIS

  use warnings;
  use strict;
  package MyAnnotatorDaemon;
  use Cyrus::Annotator::Daemon;
  our @ISA = qw(Cyrus::Annotator::Daemon);

  sub annotate_message
  {
      my ($self, $message) = @_;

      $message->set_flag('\Flagged');
      $message->set_shared_annotation('/comment', 'Hello!!');
  }

  MyAnnotatorDaemon->run();

DESCRIPTION

To use Cyrus::Annotator::Daemon, write a Perl script which creates an object derived from it; see the Synopsis above. Run this script as root, and it will daemonize itself. Then add this line to the imapd.conf file

  annotation_callout: /var/run/annotatord.socket

and restart Cyrus.

METHODS

run(...options...)

This class method can be used to create an instance of Cyrus::Annotator::Daemon and to run it's main loop. Note that Cyrus::Annotator::Daemon derives from Net::Server, and any of that module's options can be used.

For example:

  MyAnnotatorDaemon->run(personality => 'Fork');
    

Cyrus::Annotator::Daemon changes some of the Net::Server defaults, including:

annotate_message($message)

You need to provide a method of this name. It will be called whenever Cyrus notifies the annotator daemon that a new message is available, and may set or clear any flags (system or user flags) or annotations. Note that to set any annotations which aren't builtin to Cyrus, you will first need to configure them using annotation_definitions option in the imapd.conf file.

The $message object is a Cyrus::Annotator::Message which can be examined, and on which flags and annotations can be set.

SEE ALSO

AUTHOR