[prev] [thread] [next] [lurker] [Date index for 2003/10/28]
Author: simon
Date: 2003-10-28 09:45:37 +0000 (Tue, 28 Oct 2003)
New Revision: 1467
Added:
trunk/Siesta-Plugin-DeliveryAddress/
trunk/Siesta-Plugin-DeliveryAddress/Build.PL
trunk/Siesta-Plugin-DeliveryAddress/INSTALL
trunk/Siesta-Plugin-DeliveryAddress/MANIFEST.SKIP
trunk/Siesta-Plugin-DeliveryAddress/lib/
trunk/Siesta-Plugin-DeliveryAddress/lib/Siesta/
trunk/Siesta-Plugin-DeliveryAddress/lib/Siesta/Plugin/
trunk/Siesta-Plugin-DeliveryAddress/lib/Siesta/Plugin/DeliveryAddress.pm
Log:
Add new plugin after sugegstion from Jody/knew on #siesta
Added: trunk/Siesta-Plugin-DeliveryAddress/Build.PL
===================================================================
--- trunk/Siesta-Plugin-DeliveryAddress/Build.PL 2003-10-22 15:17:30 UTC (rev 1466)
+++ trunk/Siesta-Plugin-DeliveryAddress/Build.PL 2003-10-28 09:45:37 UTC (rev 1467)
@@ -0,0 +1,15 @@
+use strict;
+use Module::Build;
+
+my $build = Module::Build
+ ->new( module_name => "Siesta::Plugin::DeliveryAddress,
+ license => 'perl',
+ requires => {
+ 'Test::More' => 0,
+ 'Siesta' => 0,
+ },
+ create_makefile_pl => 'passthrough',
+ );
+
+$build->create_build_script;
+
Added: trunk/Siesta-Plugin-DeliveryAddress/INSTALL
===================================================================
--- trunk/Siesta-Plugin-DeliveryAddress/INSTALL 2003-10-22 15:17:30 UTC (rev 1466)
+++ trunk/Siesta-Plugin-DeliveryAddress/INSTALL 2003-10-28 09:45:37 UTC (rev 1467)
@@ -0,0 +1,12 @@
+
+Same as practically every other Perl module ...
+
+ % perl Build.PL
+ % perl Build
+ % perl Build test
+ % sudo Build install
+
+N.B : If you don't already have Module::Build then running Makefile.PL
+will prompt you to install it.
+
+
Added: trunk/Siesta-Plugin-DeliveryAddress/MANIFEST.SKIP
===================================================================
--- trunk/Siesta-Plugin-DeliveryAddress/MANIFEST.SKIP 2003-10-22 15:17:30 UTC (rev 1466)
+++ trunk/Siesta-Plugin-DeliveryAddress/MANIFEST.SKIP 2003-10-28 09:45:37 UTC (rev 1467)
@@ -0,0 +1,9 @@
+\.svn
+\.bak
+~$
+\.tar\.gz$
+\.mail
+MANIFEST.SKIP
+_build
+blib
+Build$
Added: trunk/Siesta-Plugin-DeliveryAddress/lib/Siesta/Plugin/DeliveryAddress.pm
===================================================================
--- trunk/Siesta-Plugin-DeliveryAddress/lib/Siesta/Plugin/DeliveryAddress.pm 2003-10-22 15:17:30 UTC (rev 1466)
+++ trunk/Siesta-Plugin-DeliveryAddress/lib/Siesta/Plugin/DeliveryAddress.pm 2003-10-28 09:45:37 UTC (rev 1467)
@@ -0,0 +1,62 @@
+package Siesta::Plugin::Demime;
+use strict;
+use Siesta::Plugin;
+use base 'Siesta::Plugin';
+use Siesta;
+use MIME::Parser;
+
+
+our $VERSION='0.1';
+
+sub description {
+ 'Have a different delivery address from the user's subscription address (needs to eb set personal)';
+}
+
+
+sub process {
+ my $self = shift;
+ my $mail = shift;
+ my $list = $self->list;
+
+ # can't be run as non-personal
+ return 0 unless $self->member();
+
+ # no point doing this if there's no alternative address
+ my $to = $self->pref('address') || return 0;
+
+ # set the header
+ $mail->header_set('To',$to);
+
+ # and continue on our way
+ return 0;
+}
+
+sub options {
+ +{
+ 'address'
+ => {
+ description => "the delivery address",
+ type => "string",
+ default => "",
+ },
+}
+
+1;
+
+=pod
+
+=head1 NAME
+
+Siesta::Plugin::DeliveryAddress - have a different delivery address to the subscription address
+
+=head1 DESCRIPTION
+
+
+=head1 COPYRIGHT
+
+Copyright 2003 - Simon Wistow <simon@xxxxxxxxxx.xxx>
+
+
+=cut
+
+
Property changes on: trunk/Siesta-Plugin-DeliveryAddress/lib/Siesta/Plugin/DeliveryAddress.pm
___________________________________________________________________
Name: svn:executable
+ *
Generated at 13:57 on 01 Jul 2004 by mariachi 0.52