FNF: style (space and \n)

4 files changed, 20 insertions, 18 deletions

diff --git a/fml/lib/FML/Error/Analyze.pm b/fml/lib/FML/Error/Analyze.pm
index 79c9c5a6..e1bcf918 100644
--- a/fml/lib/FML/Error/Analyze.pm
+++ b/fml/lib/FML/Error/Analyze.pm
@@ -4,7 +4,7 @@
 #   All rights reserved. This program is free software; you can
 #   redistribute it and/or modify it under the same terms as Perl itself.
 #
-# $FML: Analyze.pm,v 1.16 2003/01/07 08:38:32 fukachan Exp $
+# $FML: Analyze.pm,v 1.17 2003/01/25 12:48:41 fukachan Exp $
 #
 
 package FML::Error::Analyze;
@@ -87,7 +87,7 @@ sub simple_count
 	if (defined $bufarray) {
 	    for my $buf (@$bufarray) {
 		($time, $status, $reason) = split(/\s+/, $buf);
-		next if((time - $time) > (86400*$daylimit));
+		next if ((time - $time) > (86400*$daylimit));
 		if ($buf =~ /status=5/i) {
 		    $count++;
 		    $summary->{ $addr } = $count;
@@ -138,7 +138,7 @@ sub simple_count2
 	if (defined $bufarray) {
 	    for my $buf (@$bufarray) {
 		($time, $status, $reason) = split(/\s+/, $buf);
-		next if((time - $time) > (86400*$daylimit));
+		next if ((time - $time) > (86400*$daylimit));
 		if ($buf =~ /status=5/i) {
 		    $count++;
 		    $summary->{ $addr } = $count;
@@ -205,7 +205,7 @@ sub error_continuity
 	if (defined $bufarray) {
 	    for my $buf (@$bufarray) {
 		($time, $status, $reason) = split(/\s+/, $buf);
-		next if((time - $time) > (86400*$daylimit));
+		next if ((time - $time) > (86400*$daylimit));
 
 		if ($buf =~ /status=5/i) {
 		    unless (defined $summary->{ $addr }) {
@@ -275,7 +275,7 @@ sub error_continuity2
 	if (defined $bufarray) {
 	    for my $buf (@$bufarray) {
 		($time, $status, $reason) = split(/\s+/, $buf);
-		next if((time - $time) > (86400*$daylimit));
+		next if ((time - $time) > (86400*$daylimit));
 
 		if ($buf =~ /status=5/i) {
 		    unless (defined $summary->{ $addr }) {
diff --git a/fml/lib/FML/Process/Switch.pm b/fml/lib/FML/Process/Switch.pm
index eb588a33..9dfebfdf 100644
--- a/fml/lib/FML/Process/Switch.pm
+++ b/fml/lib/FML/Process/Switch.pm
@@ -4,7 +4,7 @@
 #   All rights reserved. This program is free software; you can
 #   redistribute it and/or modify it under the same terms as Perl itself.
 #
-# $FML: Switch.pm,v 1.82 2003/01/05 05:13:49 fukachan Exp $
+# $FML: Switch.pm,v 1.83 2003/01/11 16:05:20 fukachan Exp $
 #
 
 package FML::Process::Switch;
@@ -314,9 +314,9 @@ sub _module_specific_options
 		  reverse!
 		  params=s -f=s -c=s);
     }
-    elsif($myname eq 'thread.cgi'    ||
-	  $myname eq 'fmlthread.cgi' ||
-	  $myname eq 'threadview.cgi') {
+    elsif ($myname eq 'thread.cgi'    ||
+	   $myname eq 'fmlthread.cgi' ||
+	   $myname eq 'threadview.cgi') {
 	return ();
     }
     elsif ($myname eq 'fmlconf') {
diff --git a/fml/lib/File/Sequence.pm b/fml/lib/File/Sequence.pm
index 6692f2bc..a4209f6e 100644
--- a/fml/lib/File/Sequence.pm
+++ b/fml/lib/File/Sequence.pm
@@ -4,7 +4,7 @@
 #   All rights reserved. This program is free software; you can
 #   redistribute it and/or modify it under the same terms as Perl itself.
 #
-# $FML: Sequence.pm,v 1.29 2002/11/17 08:00:37 fukachan Exp $
+# $FML: Sequence.pm,v 1.30 2002/12/23 14:35:32 fukachan Exp $
 #
 
 package File::Sequence;
@@ -365,14 +365,14 @@ sub _search_max_id_from_top
       PEBOT_SEARCH:
 	while ($pebot > 0) {
 	    last PEBOT_SEARCH if defined $hash->{ $pebot - $unit };
-	    last PEBOT_SEARCH if(($pebot - $unit) <= 0);
+	    last PEBOT_SEARCH if ($pebot - $unit) <= 0;
 	    $pebot -= $unit;
 	}
 
 	# decrement by 1.
 	while(! defined $hash->{ $pebot - 1 }) {
 	    $pebot--;
-	    return 0 if($pebot <= 0);
+	    return 0 if $pebot <= 0;
 	}
 
 	return $pebot;
diff --git a/fml/lib/Mail/Message/ToHTML.pm b/fml/lib/Mail/Message/ToHTML.pm
index b3f2244b..ce2b9549 100644
--- a/fml/lib/Mail/Message/ToHTML.pm
+++ b/fml/lib/Mail/Message/ToHTML.pm
@@ -4,7 +4,7 @@
 #   All rights reserved. This program is free software; you can
 #   redistribute it and/or modify it under the same terms as Perl itself.
 #
-# $FML: ToHTML.pm,v 1.32 2003/01/11 15:14:25 fukachan Exp $
+# $FML: ToHTML.pm,v 1.33 2003/01/11 15:16:35 fukachan Exp $
 #
 
 package Mail::Message::ToHTML;
@@ -17,7 +17,7 @@ my $debug = 0;
 my $URL   =
     "<A HREF=\"http://www.fml.org/software/\">Mail::Message::ToHTML</A>";
 
-my $version = q$FML: ToHTML.pm,v 1.32 2003/01/11 15:14:25 fukachan Exp $;
+my $version = q$FML: ToHTML.pm,v 1.33 2003/01/11 15:16:35 fukachan Exp $;
 if ($version =~ /,v\s+([\d\.]+)\s+/) {
     $version = "$URL $1";
 }
@@ -1782,11 +1782,12 @@ sub update_id_index
     my $id_max = $db->{ _info }->{ id_max };
 
     $self->_print_ul($wh, $db, $code);
-    if($order eq 'reverse') {
+    if ($order eq 'reverse') {
 	for my $id ( reverse (1 .. $id_max )) {
 	    $self->_print_li_filename($wh, $db, $id, $code);
 	}
-    } else {
+    } 
+    else {
 	for my $id ( 1 .. $id_max ) {
 	    $self->_print_li_filename($wh, $db, $id, $code);
 	}
@@ -1970,12 +1971,13 @@ sub _update_id_monthly_index
     my (@list) = split(/\s+/, $db->{ _monthly_idlist }->{ $this_month });
 
     $self->_print_ul($wh, $db, $code);
-    if($order eq 'reverse') {
+    if ($order eq 'reverse') {
 	for my $id (reverse sort {$a <=> $b} @list) {
 	    next unless $id =~ /^\d+$/;
 	    $self->_print_li_filename($wh, $db, $id, $code);
 	}
-    } else {
+    } 
+    else {
 	for my $id (sort {$a <=> $b} @list) {
 	    next unless $id =~ /^\d+$/;
 	    $self->_print_li_filename($wh, $db, $id, $code);