[siesta-commit] siesta/lib/Siesta/Plugin Subscribe.pm,1.16,1.17

[prev] [thread] [next] [lurker] [Date index for 2003/03/16]

Update of /cvsroot/siesta/siesta/lib/Siesta/Plugin
In directory sc8-pr-cvs1:/tmp/cvs-serv657a/lib/Siesta/Plugin

Modified Files:
	Subscribe.pm 
Log Message:
more towards deferred, plus a method generator that auto-chomps lines

Index: Subscribe.pm
===================================================================
RCS file: /cvsroot/siesta/siesta/lib/Siesta/Plugin/Subscribe.pm,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -d -r1.16 -r1.17
--- Subscribe.pm	15 Mar 2003 20:15:49 -0000	1.16
+++ Subscribe.pm	16 Mar 2003 02:23:46 -0000	1.17
@@ -15,6 +15,12 @@
     my $list   = $mail->list;
     my $email = $mail->from;
 
+    # check if this needs confirming
+    if ( $list->preference('confirm_subscriptions') && ! $mail->confirmed ) {
+        $mail->defer( for => "confirm", from => "user" );
+        return 1;
+    }
+
     # check to see if they're already subbed
     if ( $list->is_member($email) ) {
         $self->already_subbed($mail);

• [siesta-commit] siesta/lib/Siesta/Plugin Subscribe.pm,1.16,1.17 clampr 02:23 on 16 Mar 2003

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