Fix list creation, add a method to enumerate a list's subscribers.

[p5sagit/Promulger.git] / lib / App / Promulger / Command / members.pm

diff --git a/lib/App/Promulger/Command/members.pm b/lib/App/Promulger/Command/members.pm
new file mode 100644 (file)
index 0000000..3499540
--- /dev/null
+++ b/lib/App/Promulger/Command/members.pm
@@ -0,0 +1,28 @@
+package App::Promulger::Command::members;
+use strict;
+use warnings;
+
+use App::Promulger -command;
+use Promulger::List;
+
+sub abstract {
+  return "shows the subscribers to a list";
+}
+
+sub run {
+  my ($self, $opt, $args) = @_;
+  @$args >= 1 or die "pmg members needs a list name\n";
+  
+  my $listname = $args->[0];
+  my $list = Promulger::List->resolve($listname);
+
+  if(!$list) {
+    die "$listname doesn't exist\n";
+  }
+
+  for my $subscriber (keys %{ $list->subscribers } ) {
+    print "$subscriber\n";
+  }
+}
+
+'Make it so';