X-Git-Url: https://git.decadent.org.uk/gitweb/?a=blobdiff_plain;f=scripts%2Fdebian%2Fupdate-ftpstats;h=7cad65906ed2c516cb0fe043ee746166918e6f8b;hb=105876d90e1ba12f8acc940a860bdd7066f6ba4c;hp=ea07a72a3517aba84c156f449e1769675d1ae763;hpb=0872b2e0b78670c91fd2bf0bda52e5761e079820;p=dak.git

diff --git a/scripts/debian/update-ftpstats b/scripts/debian/update-ftpstats
index ea07a72a..7cad6590 100755
--- a/scripts/debian/update-ftpstats
+++ b/scripts/debian/update-ftpstats
@@ -1,27 +1,36 @@
 #!/usr/bin/perl
 
+use strict;
+use warnings;
+
+use IO::Uncompress::AnyUncompress ":all";
+
 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");
+my @archs = ("source", "all", "amd64", "i386", "alpha", "arm", "armel", "armhf", "hppa",
+             "hurd-i386", "ia64", "kfreebsd-amd64", "kfreebsd-i386", "mips", "mipsel", "powerpc", "s390",
+             "s390x", "sparc");
 
-while (<>) {
-	if (/^(\d{8})\d{6}\|(?:k(?:atie|elly)|process-accepted)\|installed\|[^|]+\|[^|]+\|(\d+)\|([-\w]+)$/) {
-		if (not defined $data{$1}) {
-			foreach $a (@archs) {
-				$data{$1}{$a} = 0;
-			}
-		}
-		$data{$1}{$3} += $2;
-		$data2{$1}{$3}++;
-	}
+for my $file (@ARGV) {
+  my $FH = new IO::Uncompress::AnyUncompress $file, Transparent => 1
+    or warn "Cannot open $file: $AnyUncompressError\n";
+  while (<$FH>) {
+    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";
 }