delete build logs of everything not in the list of currently available packages

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

diff --git a/trunk/R/db.R b/trunk/R/db.R
index c5ddccae79f7feb0bee43790d3b86fc699699ff1..9e09f24b9e53253f90c505f0f2c949a204cef1a4 100644 (file)
--- a/trunk/R/db.R
+++ b/trunk/R/db.R
@@ -292,6 +292,7 @@ db_update_package_versions <- function() {
                              ,'VALUES (',db_quote(package)
                              ,',',db_quote(available[package,'Version']),')'))
     }
+    dbGetQuery(con,'DELETE FROM builds WHERE builds.package NOT IN (SELECT package FROM packages)')
     db_stop(con)
 }