From 52713f57864e522b5300dab063def4ad470b1005 Mon Sep 17 00:00:00 2001
From: James Troup <james@nocrew.org>
Date: Sat, 20 May 2006 18:53:13 -0500
Subject: [PATCH] New script to update daily architecture install size graph
 data. [rmurray]

---
 scripts/debian/update-ftpstats | 27 +++++++++++++++++++++++++++
 1 file changed, 27 insertions(+)
 create mode 100644 scripts/debian/update-ftpstats

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";
+}
-- 
2.39.2