rev 1487 - in trunk/siesta: bin lib/Siesta

[prev] [thread] [next] [lurker] [Date index for 2004/03/02]

From: simon
Subject: rev 1487 - in trunk/siesta: bin lib/Siesta
Date: 12:04 on 02 Mar 2004
Author: simon
Date: 2004-03-02 12:04:23 +0000 (Tue, 02 Mar 2004)
New Revision: 1487

Modified:
   trunk/siesta/bin/nacho
   trunk/siesta/lib/Siesta/Deferred.pm
Log:
Add a 'list' method to Deferred, update nacho to show it


Modified: trunk/siesta/bin/nacho
===================================================================
--- trunk/siesta/bin/nacho	2004-01-15 17:44:14 UTC (rev 1486)
+++ trunk/siesta/bin/nacho	2004-03-02 12:04:23 UTC (rev 1487)
@@ -650,10 +650,12 @@
     }
 
     foreach my $deferred (@all) {
-        print +(
+
+      print +(
             "Deferred-Id: ", $deferred->id,
             "\nReason: ", $deferred->why,
             "\nOwner: ", $deferred->who->email,
+            "\nList: ", $deferred->list->name,
             "\n\n From: ",    $deferred->message->header('From'),
             "\n To: ",      $deferred->message->header('To'),
             "\n Subject: ", $deferred->message->subject,

Modified: trunk/siesta/lib/Siesta/Deferred.pm
===================================================================
--- trunk/siesta/lib/Siesta/Deferred.pm	2004-01-15 17:44:14 UTC (rev 1486)
+++ trunk/siesta/lib/Siesta/Deferred.pm	2004-03-02 12:04:23 UTC (rev 1487)
@@ -34,4 +34,22 @@
     $self->delete;
 }
 
+=head2 list
+
+what list is this attached to
+
+=cut
+
+sub list {
+    my $self = shift;
+
+    # yuck
+    my $plugins = [ map { Siesta::Plugin->retrieve( $_ )->promote } 
+                    split /,/, $self->plugins 
+                  ];
+
+    # even yuckier
+    return $plugins->[0]->list;
+}
+
 1;

Generated at 10:02 on 24 Mar 2007 by mariachi 0.52