[siesta-commit] siesta/lib/Siesta/Plugin Send.pm,1.28,1.29 Subscribe.pm,1.8,1.9 UnSubscribe.pm,1.7,1.8

[prev] [thread] [next] [lurker] [Date index for 2002/09/17]

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

Modified Files:
	Send.pm Subscribe.pm UnSubscribe.pm 
Log Message:
perltidy

Index: Send.pm
===================================================================
RCS file: /cvsroot/siesta/siesta/lib/Siesta/Plugin/Send.pm,v
retrieving revision 1.28
retrieving revision 1.29
diff -u -d -r1.28 -r1.29
--- Send.pm	15 Sep 2002 15:48:00 -0000	1.28
+++ Send.pm	17 Sep 2002 11:31:54 -0000	1.29
@@ -13,9 +13,11 @@
     my $mail = shift;
 
     my $list = $mail->list;
-    Siesta->sender->send($mail,
-                         to   => [ map { $_->id } $list->members ],
-                         from => $list->return_path);
+    Siesta->sender->send(
+                          $mail,
+                          to   => [ map             { $_->id } $list->members ],
+                          from => $list->return_path
+                          );
     return;
 }
 

Index: Subscribe.pm
===================================================================
RCS file: /cvsroot/siesta/siesta/lib/Siesta/Plugin/Subscribe.pm,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -d -r1.8 -r1.9
--- Subscribe.pm	16 Sep 2002 05:27:51 -0000	1.8
+++ Subscribe.pm	17 Sep 2002 11:31:54 -0000	1.9
@@ -18,13 +18,13 @@
     my $user = Siesta::User->new($user_id);
 
     # XXX should this be done implicitly by $list->add_member?
-    unless ( $user ) {
+    unless ($user) {
         $user = Siesta::User->new_from_hash( id => $user_id );
         $user->save();
     }
 
     if ( $list->add_member($user_id) ) {
-        $mail->reply( to => $list->owner,
+        $mail->reply( to   => $list->owner,
                       body => "$user_id JOIN " . $list->id );
         $mail->reply( body => <<END);
 Hi,
@@ -35,7 +35,7 @@
 END
     }
     else {
-        $mail->reply( to => $list->owner,
+        $mail->reply( to   => $list->owner,
                       body => "$user_id JOIN FAILED " . $list->id );
         $mail->reply( body => <<END);
 Hi,

Index: UnSubscribe.pm
===================================================================
RCS file: /cvsroot/siesta/siesta/lib/Siesta/Plugin/UnSubscribe.pm,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -d -r1.7 -r1.8
--- UnSubscribe.pm	16 Sep 2002 05:31:40 -0000	1.7
+++ UnSubscribe.pm	17 Sep 2002 11:31:54 -0000	1.8
@@ -14,8 +14,8 @@
     my $list = $mail->list;
 
     my $user_id = $mail->from;
-    if ( $list->remove_member( $user_id ) ) {
-        $mail->reply( to => $list->owner,
+    if ( $list->remove_member($user_id) ) {
+        $mail->reply( to   => $list->owner,
                       body => "$user_id LEFT " . $list->id );
 
         $mail->reply( body => <<END);
@@ -27,7 +27,7 @@
 END
     }
     else {
-        $mail->reply( to => $list->owner,
+        $mail->reply( to   => $list->owner,
                       body => "$user_id FAIL LEFT " . $list->id );
 
         $mail->reply( body => <<END);

• [siesta-commit] siesta/lib/Siesta/Plugin Send.pm,1.28,1.29 Subscribe.pm,1.8,1.9 UnSubscribe.pm,1.7,1.8 clampr 12:31 on 17 Sep 2002

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