From 72f1e99bb893910ecce001b4d2ea85e5d761de0f Mon Sep 17 00:00:00 2001
From: Martin Kamerbeek <martin@martintwee.oqapi.nl>
Date: Wed, 13 Oct 2010 17:57:02 +0200
Subject: [PATCH] Fixup Subscribe command  prototype.

---
 lib/WebGUI/MailCommand/Subscribe.pm | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

diff --git a/lib/WebGUI/MailCommand/Subscribe.pm b/lib/WebGUI/MailCommand/Subscribe.pm
index c4057db..2244b1b 100644
--- a/lib/WebGUI/MailCommand/Subscribe.pm
+++ b/lib/WebGUI/MailCommand/Subscribe.pm
@@ -9,16 +9,17 @@ use base 'WebGUI::MailCommand';
 
 #-----------------------------------------------------------------------------
 sub process {
-    my $self    = shift;
-    my $listName= shift;
-    my $session = $self->session;
-    my $log     = $session->log;
+    my $self        = shift;
+    my $listName    = shift;
+    my $fromAddress = shift;
+    my $session     = $self->session;
+    my $log         = $session->log;
 
-    my $asset = WebGUI::AssetAspect::Subscriber::findAssetByListName( $session, $listName );
+    my $asset = WebGUI::AssetAspect::Subscriber->getAssetByListName( $session, $listName );
 
     die "Invalid list name [$listName]" unless $asset;
 
-    $asset->subscribeThroughEmail( $fromAddress );
+    $asset->subscribeAnonymous( $fromAddress );
 
     return;
 }