Adding basic list header support.

lib/WebGUI/AssetAspect/Subscriber.pm

@@ -105,6 +105,25 @@ sub getEditTabs {
     return ( $self->next::method, [ 'subscription', 'Subscription', 9 ] );
 }
 
+#----------------------------------------------------------------------------
+sub getListHeaders {
+    my $self    = shift;
+    my $email   = shift || return {};
+
+    my $site    = $self->session->url->getSiteURL;
+
+    my $headers = {
+        'List-Unsubscribe'  => 
+            '<' . $site . $self->getUrl( "func=processSubscription&action=unsubscribe&email=$email" ) . '>',
+        'List-Subscribe'    =>
+            '<' . $site . $self->getUrl( "func=processSubscription&action=subscribe&email=$email" ) . '>',
+        'List-Archives'     =>
+            '<' . $site . $self->getUrl . '>',
+    };
+
+    return $headers;
+}
+
 #----------------------------------------------------------------------------
 sub canSubscribe {
     my $self = shift;

lib/WebGUI/Mailing/Email.pm

@@ -191,6 +191,14 @@ sub send {
     } );
     $mail->addHtml( $body );
 
+    if ( $asset->can( 'getListHeaders' ) ) {
+        my $listHeaders = $asset->getListHeaders( $self->user->get('email') );
+
+        while ( my ($header, $value) = each %{ $listHeaders } ) {
+            $mail->addHeaderField( $header, $value );
+        }
+    }
+
     # And send it.  
     my $success = $mail->send;