move the --config option to be global, also add a command to unsubscribe a

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

diff --git a/lib/App/Promulger/Command/rmsub.pm b/lib/App/Promulger/Command/rmsub.pm
new file mode 100644 (file)
index 0000000..f081f5b
--- /dev/null
+++ b/lib/App/Promulger/Command/rmsub.pm
@@ -0,0 +1,27 @@
+package App::Promulger::Command::rmsub;
+use strict;
+use warnings;
+
+use App::Promulger -command;
+use Promulger::List;
+
+sub abstract {
+  return "subscribes a user to a list";
+}
+
+sub run {
+  my ($self, $opt, $args) = @_;
+  @$args >= 2 or die "pmg newsub needs a list name and a departing member\n";
+  
+  my $listname = $args->[0];
+  my $list = Promulger::List->resolve($listname);
+
+  if(!$list) {
+    die "$listname doesn't exist\n";
+  }
+
+  my $ex_sub = $args->[1];
+  $list->unsubscribe($ex_sub);
+}
+
+'Make it so';