svn commit: r149012 - /spamassassin/trunk/lib/Mail/SpamAssassin/Plugin/Razor2.pm

[qu...@apache.org]

Author: quinlan
Date: Fri Jan 28 22:09:59 2005
New Revision: 149012

URL: http://svn.apache.org/viewcvs?view=rev&rev=149012
Log:
just some introduction text and various perlstyle changes

Modified:
   spamassassin/trunk/lib/Mail/SpamAssassin/Plugin/Razor2.pm

Modified: spamassassin/trunk/lib/Mail/SpamAssassin/Plugin/Razor2.pm
Url: http://svn.apache.org/viewcvs/spamassassin/trunk/lib/Mail/SpamAssassin/Plugin/Razor2.pm?view=diff&rev=149012&p1=spamassassin/trunk/lib/Mail/SpamAssassin/Plugin/Razor2.pm&r1=149011&p2=spamassassin/trunk/lib/Mail/SpamAssassin/Plugin/Razor2.pm&r2=149012
==============================================================================
--- spamassassin/trunk/lib/Mail/SpamAssassin/Plugin/Razor2.pm	(original)
+++ spamassassin/trunk/lib/Mail/SpamAssassin/Plugin/Razor2.pm	Fri Jan 28 22:09:59 2005
@@ -2,6 +2,13 @@
 
 Mail::SpamAssassin::Plugin::Razor2 - perform Razor2 check of messages
 
+Vipul's Razor is a distributed, collaborative, spam detection and
+filtering network based on user submissions of spam.  Detection is done
+with signatures that efficiently spot mutating spam content and user
+input is validated through reputation assignments.
+
+See http://razor.sourceforge.net/ for more information about Razor.
+
 =head1 SYNOPSIS
 
   loadplugin     Mail::SpamAssassin::Plugin::Razor2
@@ -126,8 +133,8 @@
 
   # razor also debugs to stdout. argh. fix it to stderr...
   if (Mail::SpamAssassin::dbg_check($debug)) {
-    open (OLDOUT, ">&STDOUT");
-    open (STDOUT, ">&STDERR");
+    open(OLDOUT, ">&STDOUT");
+    open(STDOUT, ">&STDERR");
   }
 
   Mail::SpamAssassin::PerMsgStatus::enter_helper_run_mode($self);
@@ -161,7 +168,7 @@
         }
 
         my @msg = ($fulltext);
-        my $objects = $rc->prepare_objects( \@msg )
+        my $objects = $rc->prepare_objects(\@msg)
           or die "$debug: error in prepare_objects";
         unless ($rc->get_server_info()) {
 	  my $error = $rc->errprefix("$debug: spamassassin") || "$debug: razor2 had unknown error during get_server_info";
@@ -170,7 +177,7 @@
 
 	# let's reset the alarm since get_server_info() calls
 	# nextserver() which calls discover() which very likely will
-	# reset the alarm for us ... how polite.  :(  
+	# reset the alarm for us ... how polite.  :(
 	alarm $timeout;
 
         my $sigs = $rc->compute_sigs($objects)
@@ -180,7 +187,7 @@
         # if mail isn't whitelisted, check it out
 	# see 'man razor-whitelist'
         #   
-        if ( $type ne 'check' || ! $rc->local_check($objects->[0]) ) {
+        if ($type ne 'check' || ! $rc->local_check($objects->[0])) {
           # provide a better error message when servers are unavailable,
           # than "Bad file descriptor Died".
           $rc->connect() or die "$debug: could not connect to any servers\n";
@@ -221,7 +228,7 @@
 	    # undef the fd here (like the IO::Handle manpage says we can)
 	    # because it won't actually close, unfortunately. :(
             my $untie = 1;
-            foreach my $log ( *STDOUT{IO}, *STDERR{IO} ) {
+            foreach my $log (*STDOUT{IO}, *STDERR{IO}) {
               if ($log == $rc->{logref}->{fd}) {
                 $untie = 0;
                 last;
@@ -247,10 +254,10 @@
 	    # $objects->[0]->{resp} vs $objects->[0]->{p}->[part #]->{resp}
 	    my $part = 0;
 	    my $arrayref = $objects->[0]->{p} || $objects;
-	    if ( defined $arrayref ) {
-	      foreach my $cf ( @{$arrayref} ) {
-	        if ( exists $cf->{resp} ) {
-	          for (my $response=0;$response<@{$cf->{resp}};$response++) {
+	    if (defined $arrayref) {
+	      foreach my $cf (@{$arrayref}) {
+	        if (exists $cf->{resp}) {
+	          for (my $response=0; $response<@{$cf->{resp}}; $response++) {
 	            my $tmp = $cf->{resp}->[$response];
 	      	    my $tmpcf = $tmp->{cf}; # Part confidence
 	      	    my $tmpct = $tmp->{ct}; # Part contested?
@@ -294,7 +301,7 @@
 
     if ($err) {
       alarm $oldalarm;    # just in case
-      if ( $err =~ /alarm/ ) {
+      if ($err =~ /alarm/) {
         dbg("$debug: razor2 $type timed out after $timeout seconds");
       } elsif ($err =~ /(?:could not connect|network is unreachable)/) {
         # make this a dbg(); SpamAssassin will still continue,
@@ -315,7 +322,7 @@
 
   # razor also debugs to stdout. argh. fix it to stderr...
   if (Mail::SpamAssassin::dbg_check($debug)) {
-    open (STDOUT, ">&OLDOUT");
+    open(STDOUT, ">&OLDOUT");
     close OLDOUT;
   }