From: Joerg Jaspert Date: Mon, 7 Mar 2011 22:31:03 +0000 (+0100) Subject: And make the whitespace something useful X-Git-Url: https://git.decadent.org.uk/gitweb/?a=commitdiff_plain;h=789833a72e311c714b3029f435c097a84fbf0ad6;p=dak.git And make the whitespace something useful Signed-off-by: Joerg Jaspert --- 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"; }