[siesta-commit] siesta/lib/Siesta/Plugin Send.pm,1.20,1.21

[prev] [thread] [next] [lurker] [Date index for 2002/08/23]

From: clampr
Subject: [siesta-commit] siesta/lib/Siesta/Plugin Send.pm,1.20,1.21
Date: 18:18 on 23 Aug 2002
Update of /cvsroot/siesta/siesta/lib/Siesta/Plugin
In directory usw-pr-cvs1:/tmp/cvs-serv1838

Modified Files:
	Send.pm 
Log Message:
ripped out some of the mungers


Index: Send.pm
===================================================================
RCS file: /cvsroot/siesta/siesta/lib/Siesta/Plugin/Send.pm,v
retrieving revision 1.20
retrieving revision 1.21
diff -u -d -r1.20 -r1.21
--- Send.pm	23 Aug 2002 14:26:38 -0000	1.20
+++ Send.pm	23 Aug 2002 17:18:47 -0000	1.21
@@ -2,28 +2,14 @@
 use strict;
 use Siesta::Plugin;
 use base 'Siesta::Plugin';
-
 use vars qw/ $DESCRIPTION /;
-$DESCRIPTION = "dispatch mail";
-
-use constant debug => 0;
+$DESCRIPTION = "dispatch mail to list members";
 
 sub process {
     my $self = shift;
     my $mail = shift;
-    my $list = $mail->list;
-
-    # all of the following should probably be other plugins - Bounce,
-    # ListID, SubjectTag.  something like that
-
-    my $post = $list->post_address;
-    $mail->head->add('X-Been-There', $post);
-
-    my $list_name = $list->id;
-    # observe RFC2919
-    $post =~ s/@/./;
-    $mail->head->add('List-Id', "$list_name list <$post>");
 
+    my $list = $mail->list;
     for my $user ($list->members) {
         my $address = $user->id;
         print "spamming $address up their stupid ass\n" if debug;
@@ -37,6 +23,5 @@
     }
     return;
 }
-
 
 1;



Generated at 13:57 on 01 Jul 2004 by mariachi 0.52