Refactoring postfix transport script to allow pluggable commands.

lib/WebGUI/MailCommand/Subscribe.pm

@@ -0,0 +1,27 @@
+package WebGUI::MailCommand::Subscribe;
+
+use strict;
+use warnings;
+
+use WebGUI::AssetAspect::Subscriber;
+
+use base 'WebGUI::MailCommand';
+
+#-----------------------------------------------------------------------------
+sub process {
+    my $self    = shift;
+    my $listName= shift;
+    my $session = $self->session;
+    my $log     = $session->log;
+
+    my $asset = WebGUI::AssetAspect::Subscriber::findAssetByListName( $session, $listName );
+
+    die "Invalid list name [$listName]" unless $asset;
+
+    $asset->subscribeThroughEmail( $fromAddress );
+
+    return;
+}
+
+1;
+