Add armhf and s390x architectures

[dak.git] / scripts / debian / ftpstats.R

diff --git a/scripts/debian/ftpstats.R b/scripts/debian/ftpstats.R
index 62846c766c0e6780019208e5d06c96bfd9f2496a..85d9bb9203b187510f5b71d473e02033bdf1c2dd 100644 (file)
--- a/scripts/debian/ftpstats.R
+++ b/scripts/debian/ftpstats.R
@@ -1,8 +1,7 @@
-arch <- c("source", "all", "amd64", "i386", "alpha", "arm", "armel", "hppa", "hurd-i386", "ia64",
-       "mips", "mipsel", "powerpc", "s390", "sparc")
-palette(c("midnightblue", "gold", "turquoise", "cyan", "black", "red", "OrangeRed", "green3", "blue",
-       "magenta", "tomato4",
-        "violetred2","thistle4", "steelblue2", "springgreen4",
+arch <- c("source", "all", "amd64", "i386", "alpha", "arm", "armel", "armhf", "hppa", "hurd-i386", "ia64",
+       "kfreebsd-amd64", "kfreebsd-i386", "mips", "mipsel", "powerpc", "s390", "s390x", "sparc")
+palette(c("midnightblue", "gold", "turquoise", "cyan", "black", "red", "OrangeRed", "green3", "blue", "magenta",
+       "cornsilk3", "darkolivegreen3", "tomato4", "violetred2","thistle4", "steelblue2", "springgreen4",
        "salmon","gray"))
 cname <- c("date",arch)
 plotsize <- function(file,title,p,height=11.8,width=16.9) {
@@ -12,9 +11,9 @@ plotsize <- function(file,title,p,height=11.8,width=16.9) {
        legend(par("usr")[1]+xinch(5),par("usr")[4]-yinch(0.1),legend=colnames(t),
                ncol=3,fill=1:15,xjust=1,yjust=1)
 }
-t <- (read.table("/org/ftp.debian.org/misc/ftpstats.data",sep=",",header=0,row.names=1,col.names=cname))/1024/1024
+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]
 
 #plotsize("/org/ftp.debian.org/web/size.png","Daily dinstall run size by arch",t)
-plotsize("/org/ftp.debian.org/web/size-quarter.png","Daily dinstall run size by arch (past quarter)",v)
+plotsize("/srv/ftp.debian.org/web/size-quarter.png","Daily dinstall run size by arch (past quarter)",v)