X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FPromulger%2FWeb.pm;h=a3b7aa8dfdecb167c34ce0a316e40d268dfc6afb;hb=7f822942820116d428705fe7f5b368f619541ffa;hp=f549f1d55753f4348514aab6daa35f70411af733;hpb=b26dbe5c1afc18c1c3e51566d025092903b1d4e7;p=p5sagit%2FPromulger.git

diff --git a/lib/Promulger/Web.pm b/lib/Promulger/Web.pm
index f549f1d..a3b7aa8 100644
--- a/lib/Promulger/Web.pm
+++ b/lib/Promulger/Web.pm
@@ -35,12 +35,12 @@ sub dispatch_request {
     my ($self, $list) = @_;
     [ 200, [ 'Content-type', 'text/html' ], [ $self->show_list($list) ] ]
   },
-  sub (GET + /list/*/subscriber/*) {
-    my ($self, $list, $subscriber) = @_;
+  sub (GET + /list/*/subscriber/* + .*) {
+    my ($self, $list, $subscriber, $extension) = @_;
     [ 
       200, 
       [ 'Content-type', 'text/html' ], 
-      [ $self->show_subscriber($list, $subscriber) ] 
+      [ $self->show_subscriber($list, $subscriber, $extension) ] 
     ]
   },
   sub (POST + /list/*/subscriber/*/unsubscribe) {
@@ -113,10 +113,11 @@ method unsubscribe($list_name, $email) {
   return "<p>Unsubscribed ${email} from ${list_name}.</p>";
 }
 
-method show_subscriber($list_name, $subscriber) {
+method show_subscriber($list_name, $subscriber, $extension) {
+  my $address = "${subscriber}.${extension}";
   my $html = <<"HTML";
-<p>Subscriber ${subscriber}</p>
-<form method="POST" action="/list/${list_name}/subscriber/${subscriber}/unsubscribe">
+<p>Subscriber ${address}</p>
+<form method="POST" action="/list/${list_name}/subscriber/${address}/unsubscribe">
 <input type="submit" value="Unsubscribe">
 </form>
 HTML