[siesta-commit] siesta/lib/Siesta/Plugin Archive.pm,1.4,1.5 CheckUser.pm,1.4,1.5 Debounce.pm,1.4,1.5 ListHeaders.pm,1.2,1.3 MembersOnly.pm,1.9,1.10 ReplyTo.pm,1.3,1.4 Send.pm,1.22,1.23 SimpleSig.pm,1.12,1.13 SpamAssassin.pm,1.3,1.4 SubjectTag.pm,1.3,1.4 Subscribe.pm,1.3,1.4 UnSubscribe.pm,1.3,1.4

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

From: clampr
Subject: [siesta-commit] siesta/lib/Siesta/Plugin Archive.pm,1.4,1.5 CheckUser.pm,1.4,1.5 Debounce.pm,1.4,1.5 ListHeaders.pm,1.2,1.3 MembersOnly.pm,1.9,1.10 ReplyTo.pm,1.3,1.4 Send.pm,1.22,1.23 SimpleSig.pm,1.12,1.13 SpamAssassin.pm,1.3,1.4 SubjectTag.pm,1.3,1.4 Subscribe.pm,1.3,1.4 UnSubscribe.pm,1.3,1.4
Date: 19:25 on 10 Sep 2002
Update of /cvsroot/siesta/siesta/lib/Siesta/Plugin
In directory usw-pr-cvs1:/tmp/cvs-serv19714/Siesta/Plugin

Modified Files:
	Archive.pm CheckUser.pm Debounce.pm ListHeaders.pm 
	MembersOnly.pm ReplyTo.pm Send.pm SimpleSig.pm SpamAssassin.pm 
	SubjectTag.pm Subscribe.pm UnSubscribe.pm 
Log Message:
perltidy

Index: Archive.pm
===================================================================
RCS file: /cvsroot/siesta/siesta/lib/Siesta/Plugin/Archive.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- Archive.pm	23 Aug 2002 14:26:38 -0000	1.4
+++ Archive.pm	10 Sep 2002 18:23:57 -0000	1.5
@@ -10,15 +10,18 @@
 use File::Path;
 
 my $sequence = 0;
+
 sub process {
     my $self = shift;
     my $mail = shift;
 
     my $path = $Siesta::Config::ARCHIVE_PATH . "/" . $mail->list->id;
-    eval { mkpath( [ map { "$path/$_" } qw( cur new tmp ) ], 0, 0777 ) };
+    eval {
+        mkpath( [ map { "$path/$_" } qw( cur new tmp ) ], 0, 0777 );
+    };
     my $now = time;
     $sequence++;
-    my $file = "$now.$$.$sequence";
+    my $file    = "$now.$$.$sequence";
     my $tmpfile = "$path/tmp/$file";
     my $newfile = "$path/new/$file";
 

Index: CheckUser.pm
===================================================================
RCS file: /cvsroot/siesta/siesta/lib/Siesta/Plugin/CheckUser.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- CheckUser.pm	23 Aug 2002 14:26:38 -0000	1.4
+++ CheckUser.pm	10 Sep 2002 18:24:03 -0000	1.5
@@ -1,5 +1,6 @@
 # $Id$
 package Siesta::Plugin::CheckUser;
+
 # standard includes
 use strict;
 use Siesta::Plugin;
@@ -13,7 +14,7 @@
 address using the heuristics in Mail::CheckUser.  Drops the mail if it
 isn't.";
 
-sub process  {
+sub process {
     my $self = shift;
     my $mail = shift;
 

Index: Debounce.pm
===================================================================
RCS file: /cvsroot/siesta/siesta/lib/Siesta/Plugin/Debounce.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- Debounce.pm	23 Aug 2002 17:17:35 -0000	1.4
+++ Debounce.pm	10 Sep 2002 18:24:05 -0000	1.5
@@ -10,13 +10,14 @@
     my $mail = shift;
 
     my $post = $mail->list->post_address;
-    for my $been ($mail->head->get('X-Been-There')) {
+    for my $been ( $mail->head->get('X-Been-There') ) {
         chomp $been;
+
         # have we been here before?
         return 1 if $been eq $post;
     }
 
-    $mail->head->add('X-Been-There', $post);
+    $mail->head->add( 'X-Been-There', $post );
     return;
 }
 

Index: ListHeaders.pm
===================================================================
RCS file: /cvsroot/siesta/siesta/lib/Siesta/Plugin/ListHeaders.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- ListHeaders.pm	23 Aug 2002 17:24:26 -0000	1.2
+++ ListHeaders.pm	10 Sep 2002 18:24:07 -0000	1.3
@@ -9,12 +9,12 @@
     my $self = shift;
     my $mail = shift;
 
-    my $list = $mail->list;
+    my $list      = $mail->list;
     my $list_name = $list->id;
     my $address   = $list->post_address;
 
     $address =~ s/@/./;
-    $mail->head->add('List-Id', "$list_name <$address>");
+    $mail->head->add( 'List-Id', "$list_name <$address>" );
 
     return;
 }

Index: MembersOnly.pm
===================================================================
RCS file: /cvsroot/siesta/siesta/lib/Siesta/Plugin/MembersOnly.pm,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -d -r1.9 -r1.10
--- MembersOnly.pm	26 Aug 2002 17:34:52 -0000	1.9
+++ MembersOnly.pm	10 Sep 2002 18:24:08 -0000	1.10
@@ -11,8 +11,9 @@
     my $mail = shift;
 
     return if $mail->list->is_member( $mail->from );
+
     # I'm not even supposed to be here today.
-    $mail->reply(body => <<END);
+    $mail->reply( body => <<END);
 Hi,
 
 Non-member posting is disabled for this list, and you don't
@@ -23,6 +24,5 @@
 
     return 1;
 }
-
 
 1;

Index: ReplyTo.pm
===================================================================
RCS file: /cvsroot/siesta/siesta/lib/Siesta/Plugin/ReplyTo.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- ReplyTo.pm	9 Sep 2002 11:17:08 -0000	1.3
+++ ReplyTo.pm	10 Sep 2002 18:24:10 -0000	1.4
@@ -3,7 +3,8 @@
 use Siesta::Plugin;
 use base 'Siesta::Plugin';
 use vars qw/ $DESCRIPTION /;
-$DESCRIPTION = "Munges the Reply-To header to the list address, not the person who sent it";
+$DESCRIPTION =
+  "Munges the Reply-To header to the list address, not the person who sent it";
 
 # see :
 #   http://www.unicom.com/pw/reply-to-harmful.html
@@ -16,36 +17,34 @@
 #
 # DANCE MONKEYS! DANCE!
 
-
 sub process {
     my $self = shift;
     my $mail = shift;
     my $list = $mail->list || undef;
 
+    my $post_address = ( defined $list ) ? $mail->list->post_address : undef;
+    my $munge = $self->config( $mail, 'munge' )
+      || $self->options->{munge}->{default};
 
-    my $post_address = (defined $list)? $mail->list->post_address : undef;
-    my $munge        = $self->config($mail,'munge') || $self->options->{munge}->{default};
-
-    $munge = (defined $post_address)? $munge : 0;
+    $munge = ( defined $post_address ) ? $munge : 0;
 
-    $mail->head->replace('Reply-To', $post_address) if $munge; 
+    $mail->head->replace( 'Reply-To', $post_address ) if $munge;
 
     return;
 }
 
-sub options
-{
-	return {
-	  'munge' => { 'description' => 'should we munge the reply-to address of the message to be the list post',
-		     'type'        => 'boolean',
-		     'default'     => 1,
-		     'widget'      => 'checkbox',
-		   } 
-
-	};
+sub options {
+    return {
+        'munge' => {
+            'description' =>
+              'should we munge the reply-to address of the message to be the list post',
+            'type'    => 'boolean',
+            'default' => 1,
+            'widget'  => 'checkbox',
+          }
 
+          };
 
 }
-
 
 1;

Index: Send.pm
===================================================================
RCS file: /cvsroot/siesta/siesta/lib/Siesta/Plugin/Send.pm,v
retrieving revision 1.22
retrieving revision 1.23
diff -u -d -r1.22 -r1.23
--- Send.pm	23 Aug 2002 17:23:20 -0000	1.22
+++ Send.pm	10 Sep 2002 18:24:12 -0000	1.23
@@ -12,12 +12,13 @@
     my $mail = shift;
 
     my $list = $mail->list;
-    for my $user ($list->members) {
+    for my $user ( $list->members ) {
         my $address = $user->id;
         print "spamming $address up their stupid ass\n" if debug;
 
         local *SENDMAIL;
-        open SENDMAIL, "|/usr/sbin/sendmail -oi -f ".$list->return_path." $address"
+        open SENDMAIL,
+          "|/usr/sbin/sendmail -oi -f " . $list->return_path . " $address"
           or die "couldn't fork sendmail $!";
         $mail->print( \*SENDMAIL );
         close SENDMAIL

Index: SimpleSig.pm
===================================================================
RCS file: /cvsroot/siesta/siesta/lib/Siesta/Plugin/SimpleSig.pm,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -d -r1.12 -r1.13
--- SimpleSig.pm	9 Sep 2002 11:17:08 -0000	1.12
+++ SimpleSig.pm	10 Sep 2002 18:24:13 -0000	1.13
@@ -5,7 +5,8 @@
 
 use vars qw( $DESCRIPTION );
 
-$DESCRIPTION = 'This is a very simple sig plugin, its probably more useful for testing';
+$DESCRIPTION =
+  'This is a very simple sig plugin, its probably more useful for testing';
 
 sub process {
     my $self = shift;
@@ -15,17 +16,18 @@
     # some sort of configuration lookup based on list and this plugin name,
     # however lets just say 5 instead
 
-    my $maxlines = $self->config($mail,'maxlines') || $self->options->{maxlines}->{default};
+    my $maxlines = $self->config( $mail, 'maxlines' )
+      || $self->options->{maxlines}->{default};
 
     my $body = join '', @{ $mail->body() };
-    my (undef,$sig) = split /-- \n/, $body, 2;
+    my ( undef, $sig ) = split /-- \n/, $body, 2;
 
     # no point going on if there's no sig. Sob. Goodbye, cruel world.
     return 0 unless defined $sig;
 
     my (@lines) = split /\n/, $sig;
-    if (scalar(@lines) > $maxlines + 1) {
-        $mail->reply(body => <<END);
+    if ( scalar(@lines) > $maxlines + 1 ) {
+        $mail->reply( body => <<END);
 Hi, 
 ${ \( $list->owner ) } has set this list to have a maximum .sig length
 of $maxlines lines, hence your mail has been rejected,
@@ -38,17 +40,16 @@
     return 0;
 }
 
-
-sub options
-{
-	return {
-		'maxlines' => {
-				'description' => 'the maximum number of lines we shoudl allow in the sig before chomping',
-				'type'        => 'num',
-				'default'     => 5,
-				'widget'      => 'textbox',
-			      },
-	}
+sub options {
+    return {
+        'maxlines' => {
+            'description' =>
+              'the maximum number of lines we shoudl allow in the sig before chomping',
+            'type'    => 'num',
+            'default' => 5,
+            'widget'  => 'textbox',
+        },
+        };
 }
 
 1;

Index: SpamAssassin.pm
===================================================================
RCS file: /cvsroot/siesta/siesta/lib/Siesta/Plugin/SpamAssassin.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- SpamAssassin.pm	23 Aug 2002 14:26:38 -0000	1.3
+++ SpamAssassin.pm	10 Sep 2002 18:24:17 -0000	1.4
@@ -1,5 +1,6 @@
 # $Id$
 package Siesta::Plugin::SpamAssassin;
+
 # standard includes
 use strict;
 use Siesta::Plugin;
@@ -18,7 +19,7 @@
     my $mail = shift;
 
     my $spamtest = Mail::SpamAssassin->new();
-    my $status = $spamtest->check($mail);
+    my $status   = $spamtest->check($mail);
 
     # Naughty person.
     return 1 if $status->is_spam();

Index: SubjectTag.pm
===================================================================
RCS file: /cvsroot/siesta/siesta/lib/Siesta/Plugin/SubjectTag.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- SubjectTag.pm	23 Aug 2002 18:45:19 -0000	1.3
+++ SubjectTag.pm	10 Sep 2002 18:24:20 -0000	1.4
@@ -9,7 +9,7 @@
     my $self = shift;
     my $mail = shift;
 
-    my $subject   = $mail->subject || 'no subject';
+    my $subject = $mail->subject || 'no subject';
     my $list_name = $mail->list->id;
     $mail->subject("[$list_name] $subject")
       unless $subject =~ /\[$list_name\]/;

Index: Subscribe.pm
===================================================================
RCS file: /cvsroot/siesta/siesta/lib/Siesta/Plugin/Subscribe.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- Subscribe.pm	26 Aug 2002 17:34:52 -0000	1.3
+++ Subscribe.pm	10 Sep 2002 18:24:21 -0000	1.4
@@ -12,8 +12,8 @@
     my $mail = shift;
     my $list = $mail->list;
 
-    if ($list->add_member($mail->from)) {
-        $mail->reply(body => <<END);
+    if ( $list->add_member( $mail->from ) ) {
+        $mail->reply( body => <<END);
 Hi,
  You have been successfully subscribed to ${ \( $list->id ) }
 
@@ -22,7 +22,7 @@
 END
     }
     else {
-        $mail->reply(body => <<END);
+        $mail->reply( body => <<END);
 Hi,
  You could not be subscribed to ${ \( $list->id ) }.
 
@@ -37,11 +37,11 @@
 }
 
 sub list_config {
-  return 'Nothing to configure for this plugin.';
+    return 'Nothing to configure for this plugin.';
 }
 
 sub user_config {
-  return 'Nothing to configure for this plugin.';
+    return 'Nothing to configure for this plugin.';
 }
 
 1;

Index: UnSubscribe.pm
===================================================================
RCS file: /cvsroot/siesta/siesta/lib/Siesta/Plugin/UnSubscribe.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- UnSubscribe.pm	26 Aug 2002 17:34:52 -0000	1.3
+++ UnSubscribe.pm	10 Sep 2002 18:24:22 -0000	1.4
@@ -12,8 +12,8 @@
     my $mail = shift;
     my $list = $mail->list;
 
-    if ($list->remove_member($mail->from)) {
-        $mail->reply(body => <<END);
+    if ( $list->remove_member( $mail->from ) ) {
+        $mail->reply( body => <<END);
 Hi,
  You have been sucessfully unsubscribed from ${ \( $list->id ) }
 
@@ -22,7 +22,7 @@
 END
     }
     else {
-        $mail->reply(body => <<END);
+        $mail->reply( body => <<END);
 Hi,
  You could not be unsubscribed from ${ \( $list->id ) }
 
@@ -37,11 +37,11 @@
 }
 
 sub list_config {
-  return 'Nothing to configure for this plugin';
+    return 'Nothing to configure for this plugin';
 }
 
 sub user_config {
-  return 'Nothing to configure for this plugin';
+    return 'Nothing to configure for this plugin';
 }
 
 1;




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