From f3fb0cb3392548929ff8ba511b6b386a58d094aa Mon Sep 17 00:00:00 2001
From: fukachan <fukachan>
Date: Sat, 14 Aug 2004 16:32:14 +0000
Subject: specify queue strategy to get proper queue list. currently we use
 "fair-queue".

---
 fml/lib/FML/Process/QueueManager.pm | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

diff --git a/fml/lib/FML/Process/QueueManager.pm b/fml/lib/FML/Process/QueueManager.pm
index ae9eb9c7..1b178814 100644
--- a/fml/lib/FML/Process/QueueManager.pm
+++ b/fml/lib/FML/Process/QueueManager.pm
@@ -4,7 +4,7 @@
 #   All rights reserved. This program is free software; you can
 #   redistribute it and/or modify it under the same terms as Perl itself.
 #
-# $FML: QueueManager.pm,v 1.23 2004/08/13 13:24:54 fukachan Exp $
+# $FML: QueueManager.pm,v 1.24 2004/08/14 06:28:55 fukachan Exp $
 #
 
 package FML::Process::QueueManager;
@@ -86,7 +86,15 @@ sub send
 
     use Mail::Delivery::Queue;
     my $queue = new Mail::Delivery::Queue { directory => $queue_dir };
-    my $ra    = defined $id ? [ $id ] : $queue->list();
+    my $ra    = [];
+
+    if (defined $id) {
+	$ra = [ $id ];
+    }
+    else {
+	$queue->set_strategy("fair-queue");
+	$ra = $queue->list();
+    }
 
   QUEUE:
     for my $qid (@$ra) {
-- 
cgit v1.2.1