+opt<-getopt(matrix(c(
+ 'verbose','v', 0, "logical",
+ 'debug', 'd', 0, "logical",
+ 'help', 'h', 0, "logical",
+ 'root', 'r', 2, "character"
+),byrow=TRUE,ncol=4))
+
+.Last <- function() { if (!is.null(opt$verbose)) {cat("Printing the traceback, just to be sure:\n"); print(traceback())} }
+
+web.cran2deb.root<-"/var/www/cran2deb"
+if (!is.null(opt$root)) {
+ web.cran2deb.root <- opt$root
+}
+
+if (!is.null(opt$debug)) {
+ cat("Settings:\n")
+ cat(" * root: ",web.cran2deb.root,"\n",sep="")
+ cat("\n")
+ print(opt)
+ q()
+}
+
+
+if (!is.null(opt$verbose)) cat("building banned_packages.html\n")
+banned_builds_path=paste(web.cran2deb.root,"banned_packages.html",sep="/")
+
+if (!is.null(opt$verbose)) cat("building todays_packages.html\n")
+todays_builds_path=paste(web.cran2deb.root,"todays_packages.html",sep="/")
+
+if (!is.null(opt$verbose)) cat("building latest_packages.html\n")
+latest_builds_path=paste(web.cran2deb.root,"latest_packages.html",sep="/")
+
+if (!is.null(opt$verbose)) cat("building failed_packages.html\n")
+failed_builds_path=paste(web.cran2deb.root,"failed_packages.html",sep="/")