prepare queue_dir/info/{sender,recipients}/ directory to control

envelope information.
To set the information, queue->set(key, value) method is used.

FML::Process::QueueManager class is a prototype to send queues in
queue_dir/.

1 files changed, 66 insertions, 0 deletions

diff --git a/fml/lib/FML/Process/QueueManager.pm b/fml/lib/FML/Process/QueueManager.pm
new file mode 100644
index 00000000..95cc1254
--- /dev/null
+++ b/fml/lib/FML/Process/QueueManager.pm
@@ -0,0 +1,66 @@
+#-*- perl -*-
+#
+#  Copyright (C) 2001 Ken'ichi Fukamachi
+#   All rights reserved. This program is free software; you can
+#   redistribute it and/or modify it under the same terms as Perl itself. 
+#
+# $FML$
+#
+
+package FML::Process::QueueManager;
+
+use strict;
+use Carp;
+
+=head1 NAME
+
+FML::Process::QueueManager - provide queue manipulation functions
+
+=head1 SYNOPSIS
+
+    use FML::Process::QueueManager;
+
+=head1 DESCRIPTION
+
+=cut
+
+use FML::Log qw(Log LogWarn LogError);
+
+sub send
+{
+    my ($self, $queuefile) = @_;
+
+    use Mail::Message;
+    my $msg = Mail::Message->parse( { file => $queuefile } );
+
+    use FML::Mailer;
+    my $obj = new FML::Mailer;
+    my ($sender, $rcpt);
+    $obj->send( {
+	sender    => $sender,
+	recipient => $rcpt,
+	message   => $msg,
+    });
+}
+
+
+=head1 AUTHOR
+
+Ken'ichi Fukamachi
+
+=head1 COPYRIGHT
+
+Copyright (C) 2001 Ken'ichi Fukamachi
+
+All rights reserved. This program is free software; you can
+redistribute it and/or modify it under the same terms as Perl itself. 
+
+=head1 HISTORY
+
+FML::Process::QueueManager appeared in fml5 mailing list driver package.
+See C<http://www.fml.org/> for more details.
+
+=cut
+
+
+1;