From: James Troup <james@nocrew.org>
Date: Sat, 20 May 2006 23:53:13 +0000 (-0500)
Subject: New script to update daily architecture install size graph data. [rmurray]
X-Git-Url: https://err.no/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=52713f57864e522b5300dab063def4ad470b1005;p=dak

New script to update daily architecture install size graph data. [rmurray]
---

diff --git a/scripts/debian/update-ftpstats b/scripts/debian/update-ftpstats
new file mode 100644
index 00000000..6627fff9
--- /dev/null
+++ b/scripts/debian/update-ftpstats
@@ -0,0 +1,27 @@
+#!/usr/bin/perl
+
+my %data;
+my %data2;
+my @archs = ("source", "all", "amd64", "i386", "alpha", "arm", "hppa",
+	"hurd-i386", "ia64", "m68k", "mips", "mipsel", "powerpc", "s390",
+	"sparc");
+
+while (<>) {
+	if (/^(\d{8})\d{6}\|k(?:atie|elly)\|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";
+}