From 789833a72e311c714b3029f435c097a84fbf0ad6 Mon Sep 17 00:00:00 2001 From: Joerg Jaspert Date: Mon, 7 Mar 2011 23:31:03 +0100 Subject: [PATCH] And make the whitespace something useful Signed-off-by: Joerg Jaspert --- scripts/debian/update-ftpstats | 32 ++++++++++++++++---------------- 1 file changed, 16 insertions(+), 16 deletions(-) diff --git a/scripts/debian/update-ftpstats b/scripts/debian/update-ftpstats index c740583f..c2e1355e 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"; } -- 2.39.2