diff --git a/charting/sizes.pl b/charting/sizes.pl index b6e1d4a0..4a830a8c 100755 --- a/charting/sizes.pl +++ b/charting/sizes.pl @@ -5,8 +5,6 @@ # use File::stat; -$fn = '../xml/ukfederation-metadata.xml'; - @months = ( '2006-12', '2007-01', '2007-02', '2007-03', '2007-04', '2007-05', '2007-06', @@ -17,13 +15,46 @@ '2009-07', '2009-08', '2009-09', '2009-10', '2009-11', ); -print "month size entities ratio\n"; - +# ingest files foreach $month (@months) { - system("svn update $fn --quiet --revision \\{$month-01T00:00:00Z\\}"); - $stat = stat('../xml/ukfederation-metadata.xml'); + my $fn = "cache/$month.xml"; + $stat = stat($fn); $size = $stat->size; $wc = int(`grep '