Reformated all the code to match the rest of Bugzilla.

diff --git a/collectstats.pl b/collectstats.pl
index 05e6204cb378343d371b034529bd0ca845e8ad9a..6c51d1afc4c28f14135438035c7628a7fb172465 100755 (executable)
--- a/collectstats.pl
+++ b/collectstats.pl
@@ -31,55 +31,47 @@ require "globals.pl";
 ConnectToDatabase();
 GetVersionTable();
 
-foreach (@::legal_product)
-       {
-       my $dir = "data/mining";
+foreach (@::legal_product) {
+    my $dir = "data/mining";
 
-       &check_data_dir ($dir);
-       &collect_stats ($dir, $_);
-       }
+    &check_data_dir ($dir);
+    &collect_stats ($dir, $_);
+}
 
-sub check_data_dir
-       {
-       my $dir = shift;
+sub check_data_dir {
+    my $dir = shift;
 
-       if (! -d)
-               {
-               mkdir $dir, 0777;
-               chmod 0777, $dir;
-               }
-       }
+    if (! -d) {
+        mkdir $dir, 0777;
+        chmod 0777, $dir;
+    }
+}
 
-sub collect_stats
-       {
-       my $dir = shift;
-       my $product = shift;
-       my $when = localtime (time);
+sub collect_stats {
+    my $dir = shift;
+    my $product = shift;
+    my $when = localtime (time);
 
-       my $query = <<FIN;
-select count(bug_status) from bugs where 
-(bug_status='NEW' or  bug_status='ASSIGNED' or bug_status='REOPENED')
-and product='$product' group by bug_status
-FIN
-        $product =~ s/\//-/gs;
-       my $file = join '/', $dir, $product;
-       my $exists = -f $file;
-
-       if (open DATA, ">>$file")
-               {
-               SendSQL ($query);
-
-               my %count;
-               push my @row, &today;
-               
-               while (my @n = FetchSQLData())
-                       {
-                       push @row, @n;
-                       }
-               
-               if (! $exists)
-                       {
-                       print DATA <<FIN;
+    my $query = "select count(bug_status) from bugs where (bug_status='NEW' or  bug_status='ASSIGNED' or bug_status='REOPENED') and product='$product' group by bug_status";
+
+    $product =~ s/\//-/gs;
+    my $file = join '/', $dir, $product;
+    my $exists = -f $file;
+
+    if (open DATA, ">>$file") {
+        SendSQL ($query);
+
+        my %count;
+        push my @row, &today;
+
+        while (my @n = FetchSQLData())
+        {
+            push @row, @n;
+        }
+
+        if (! $exists)
+        {
+            print DATA <<FIN;
 # Bugzilla daily bug stats
 #
 # do not edit me! this file is generated.
@@ -88,20 +80,17 @@ FIN
 # product: $product
 # created: $when
 FIN
-                       }
-
-               print DATA (join '|', @row) . "\n";
-               close DATA;
-               }
-       else
-               {
-               print "$0: $file, $!";
-               }
        }
 
-sub today
-  {
-  my ($dom, $mon, $year) = (localtime(time))[3, 4, 5];
-  return sprintf "%04d%02d%02d", 1900 + $year, ++$mon, $dom;
-  }
+        print DATA (join '|', @row) . "\n";
+        close DATA;
+    } else {
+        print "$0: $file, $!";
+    }
+}
+
+sub today {
+    my ($dom, $mon, $year) = (localtime(time))[3, 4, 5];
+    return sprintf "%04d%02d%02d", 1900 + $year, ++$mon, $dom;
+}