notice('R dependencies:',paste(pkg$depends$r,collapse=', '))
#if (debug) notice(paste("build_debian(",pkg,") invoked\n",sep=""))
- build_debian(pkg)
+ build_debian_srcpkg(pkg)
#if (debug) notice(paste("build_debian(",pkg,") completed.\n",sep=""))
# upload the package
- notice("Package upload")
+# notice("Package upload")
## ret = log_system('umask 002;dput','-c',shQuote(dput_config),'local' ,changesfile(pkg$srcname,pkg$debversion))
- cmd = paste('umask 002; cd /var/www/cran2deb/rep && reprepro -b . include testing', changesfile(pkg$srcname,pkg$debversion),sep=" ")
- #if (verbose) notice('Executing: ',cmd)
- ret = log_system(cmd)
- if (ret != 0) {
- #fail('upload failed!')
- notice("Upload failed, ignored.")
- } else {
- notice("Upload successful.")
- }
+### cmd = paste('umask 002; cd /var/www/cran2deb/rep && reprepro -b . include testing', changesfile(pkg$srcname,pkg$debversion),sep=" ")
+### #if (verbose) notice('Executing: ',cmd)
+### ret = log_system(cmd)
+### if (ret != 0) {
+### #fail('upload failed!')
+### notice("Upload failed, ignored.")
+### } else {
+### notice("Upload successful.")
+### }
## # wait for mini-dinstall to get to work
## upload_success = FALSE
## for (i in seq(1,12)) {
return(T)
}
+build_debian_srcpkg <- function(pkg) {
+# wd <- getwd()
+ #notice(paste("Now in path ",wd,"\n",sep=""))
+# setwd(pkg$path)
+
+ notice('building Debian source package',pkg$debname,paste('(',pkg$debversion,')',sep=''),'in',getwd(),'...')
+
+ cmd = paste('dpkg-source','-b',pkg$path)
+ notice(paste("Executing ",'"',cmd,'"'," from directory '",getwd(),"'.\n",sep=""))
+ ret = log_system(cmd)
+# setwd(wd)
+ if (ret != 0) {
+ fail('Failed to build package.')
+ }
+ return(ret);
+}
+
build_debian <- function(pkg) {
wd <- getwd()
#notice(paste("Now in path ",wd,"\n",sep=""))