From: James Troup 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"; +}