switch to reprepro instead of dput + mini-dinstall -- this works for i386 but we...

git-svn-id: svn://svn.r-forge.r-project.org/svnroot/cran2deb@303 edb9625f-4e0d-4859-8d74-9fd3b1da38cb

diff --git a/trunk/R/build.R b/trunk/R/build.R
index 540610f2fda99fb14ffb37f82c954f350bd91641..bddc8e30d42f31a59bc6b389cb06bc662f34594b 100644 (file)
--- a/trunk/R/build.R
+++ b/trunk/R/build.R
@@ -36,26 +36,25 @@ build <- function(name,extra_deps,force=F,do_cleanup=T) {
         build_debian(pkg)
 
         # upload the package
-        ret = log_system('umask 002;dput','-c',shQuote(dput_config),'local'
-                    ,changesfile(pkg$srcname,pkg$debversion))
+##         ret = log_system('umask 002;dput','-c',shQuote(dput_config),'local' ,changesfile(pkg$srcname,pkg$debversion))
+        ret = log_system('umask 002; cd /var/www/rep; reprepro -b . include testing', changesfile(pkg$srcname,pkg$debversion))
         if (ret != 0) {
             fail('upload failed!')
         }
-
-        # wait for mini-dinstall to get to work
-        upload_success = FALSE
-        for (i in seq(1,12)) {
-            if (file.exists(file.path(dinstall_archive,'testing',paste(pkg$srcname, '_', pkg$version, '.orig.tar.gz', sep='')))) {
-                upload_success = TRUE
-                break
-            }
-            warn(i,'/12: does not exist',file.path(dinstall_archive,'testing',paste(pkg$srcname, '_', pkg$version, '.orig.tar.gz', sep='')))
-
-            Sys.sleep(5)
-        }
-        if (!upload_success) {
-            warn('upload took too long; continuing as normal (some builds may fail temporarily)')
-        }
+##         # wait for mini-dinstall to get to work
+##         upload_success = FALSE
+##         for (i in seq(1,12)) {
+##             if (file.exists(file.path(dinstall_archive,'testing',paste(pkg$srcname, '_', pkg$version, '.orig.tar.gz', sep='')))) {
+##                 upload_success = TRUE
+##                 break
+##             }
+##             warn(i,'/12: does not exist',file.path(dinstall_archive,'testing',paste(pkg$srcname, '_', pkg$version, '.orig.tar.gz', sep='')))
+
+##             Sys.sleep(5)
+##         }
+##         if (!upload_success) {
+##             warn('upload took too long; continuing as normal (some builds may fail temporarily)')
+##         }
         return(pkg$debversion)
     })())
     if (do_cleanup) {