Fix graphs

Signed-off-by: Mark Hymers <mhy@debian.org>

diff --git a/scripts/debian/ftpstats.R b/scripts/debian/ftpstats.R
index 85d9bb9203b187510f5b71d473e02033bdf1c2dd..e5ace927930f88158ebc42b97d43d2c9d38da271 100644 (file)
--- a/scripts/debian/ftpstats.R
+++ b/scripts/debian/ftpstats.R
@@ -6,13 +6,13 @@ palette(c("midnightblue", "gold", "turquoise", "cyan", "black", "red", "OrangeRe
 cname <- c("date",arch)
 plotsize <- function(file,title,p,height=11.8,width=16.9) {
        bitmap(file=file,type="png16m",width=16.9,height=11.8)
-       barplot(t(p),col = 1:15, main=title,
+       barplot(t(p),col = 1:19, main=title,
                xlab="date", ylab="size (MiB)")
        legend(par("usr")[1]+xinch(5),par("usr")[4]-yinch(0.1),legend=colnames(t),
-               ncol=3,fill=1:15,xjust=1,yjust=1)
+               ncol=3,fill=1:19,xjust=1,yjust=1)
 }
 t <- (read.table("/srv/ftp-master.debian.org/misc/ftpstats.data",sep=",",header=0,row.names=1,col.names=cname))/1024/1024
-v <- t[(length(t$all)-90):(length(t$all)),1:15]
+v <- t[(length(t$all)-90):(length(t$all)),1:19]
 
 #plotsize("/org/ftp.debian.org/web/size.png","Daily dinstall run size by arch",t)
 plotsize("/srv/ftp.debian.org/web/size-quarter.png","Daily dinstall run size by arch (past quarter)",v)