Reformated all the code to match the rest of Bugzilla.

collectstats.pl

@@ -31,42 +31,34 @@ require "globals.pl";
 ConnectToDatabase();
 GetVersionTable();
 
-foreach (@::legal_product)
-	{
+foreach (@::legal_product) {
     my $dir = "data/mining";
 
     &check_data_dir ($dir);
     &collect_stats ($dir, $_);
-	}
+}
 
-sub check_data_dir
-	{
+sub check_data_dir {
     my $dir = shift;
 
-	if (! -d)
-		{
+    if (! -d) {
         mkdir $dir, 0777;
         chmod 0777, $dir;
     }
-	}
+}
 
-sub collect_stats
-	{
+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
+    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")
-		{
+    if (open DATA, ">>$file") {
         SendSQL ($query);
 
         my %count;
@@ -92,16 +84,13 @@ FIN
 
         print DATA (join '|', @row) . "\n";
         close DATA;
-		}
-	else
-		{
+    } else {
         print "$0: $file, $!";
     }
-	}
+}
 
-sub today
-  {
+sub today {
     my ($dom, $mon, $year) = (localtime(time))[3, 4, 5];
     return sprintf "%04d%02d%02d", 1900 + $year, ++$mon, $dom;
-  }
+}