[dak/master 2/2] And make the whitespace something useful
Signed-off-by: Joerg Jaspert <joerg@debian.org>
---
scripts/debian/update-ftpstats | 32 ++++++++++++++++----------------
1 files changed, 16 insertions(+), 16 deletions(-)
diff --git a/scripts/debian/update-ftpstats b/scripts/debian/update-ftpstats
index c740583..c2e1355 100755
--- a/scripts/debian/update-ftpstats
+++ b/scripts/debian/update-ftpstats
@@ -3,25 +3,25 @@
my %data;
my %data2;
my @archs = ("source", "all", "amd64", "i386", "alpha", "arm", "armel", "hppa",
- "hurd-i386", "ia64", "kfreebsd-amd64", "kfreebsd-i386", "mips", "mipsel", "powerpc", "s390",
- "sparc");
+ "hurd-i386", "ia64", "kfreebsd-amd64", "kfreebsd-i386", "mips", "mipsel", "powerpc", "s390",
+ "sparc");
while (<>) {
- if (/^(\d{8})\d{6}\|(?:k(?:atie|elly)|process-(?:accepted|upload))(?:\|dak)?\|installed\|[^|]+\|[^|]+\|(\d+)\|([-\w]+)$/) {
- if (not defined $data{$1}) {
- foreach $a (@archs) {
- $data{$1}{$a} = 0;
- }
- }
- $data{$1}{$3} += $2;
- $data2{$1}{$3}++;
- }
+ if (/^(\d{8})\d{6}\|(?:k(?:atie|elly)|process-(?:accepted|upload))(?:\|dak)?\|installed\|[^|]+\|[^|]+\|(\d+)\|([-\w]+)$/) {
+ if (not defined $data{$1}) {
+ foreach $a (@archs) {
+ $data{$1}{$a} = 0;
+ }
+ }
+ $data{$1}{$3} += $2;
+ $data2{$1}{$3}++;
+ }
}
foreach $p (sort keys %data) {
- print "$p";
- foreach $a (@archs) {
- print ", $data{$p}{$a}";
- }
- print "\n";
+ print "$p";
+ foreach $a (@archs) {
+ print ", $data{$p}{$a}";
+ }
+ print "\n";
}
--
1.7.2.3
Reply to: