From: Joerg Jaspert Date: Sun, 27 Nov 2011 22:42:31 +0000 (+0100) Subject: Merge remote-tracking branch 'drkranz/p-u' into merge X-Git-Url: https://git.decadent.org.uk/gitweb/?a=commitdiff_plain;h=070544a0752f0b4a0d3513eadea3cb3a80eda683;hp=ded826ce225127e11ebfe13cb1c64d76e4b772a8;p=dak.git Merge remote-tracking branch 'drkranz/p-u' into merge * drkranz/p-u: Check whether suite is valid before referencing it (Closes: #634716) Signed-off-by: Joerg Jaspert --- diff --git a/scripts/debian/ftpstats.R b/scripts/debian/ftpstats.R index 85d9bb92..c6325233 100644 --- 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=2,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)