trunk/exec/web

   1 #!/usr/bin/env r
   2 ## DOC: cran2deb web
   3 ## DOC:     generate cran2deb status web pages
   4 ## DOC:
   5
   6 suppressPackageStartupMessages(library(cran2deb))
   7 library(hwriter)
   8
   9 banned_builds_path='/var/www/banned_packages.html'
  10 todays_builds_path='/var/www/todays_packages.html'
  11 latest_builds_path='/var/www/latest_packages.html'
  12 failed_builds_path='/var/www/failed_packages.html'
  13
  14 links <- function(p) {
  15     hwrite(c(
  16             hwrite('Packages built today',link='/todays_packages.html')
  17            ,hwrite('Successful packages',link='/latest_packages.html')
  18            ,hwrite('Failed packages',link='/failed_packages.html')
  19            ,hwrite('Banned packages',link='/banned_packages.html')
  20            ),p,center=TRUE,border=0,style='padding: 6px 6px 6px 12px')
  21 }
  22
  23 page <- function(content,path,title) {
  24     p <- openPage(path,title=title)
  25     hwrite(title,p,heading=1)
  26     hwrite('Install instructions',p,center=TRUE,link='/')
  27     links(p)
  28     hwrite(content,p,center=TRUE,border=1,table.style='border-collapse: collapse; padding: 0; margin: 0'
  29                   ,row.names=FALSE,row.bgcolor='#ffaaaa')
  30     links(p)
  31     closePage(p)
  32 }
  33
  34 page(db_blacklist_reasons(),banned_builds_path,'Banned packages')
  35 page(db_todays_builds(),todays_builds_path,'Packages built today')
  36 page(db_successful_builds(),latest_builds_path,'Latest successfully built packages')
  37 page(db_failed_builds(),failed_builds_path,'Recent failed packages')
  38