switch DB date stamp format to Sys.time()

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

diff --git a/trunk/R/db.R b/trunk/R/db.R
index 9e09f24b9e53253f90c505f0f2c949a204cef1a4..f8eb0f9f898b6b8f6cb2bfe39ce285180c0bdf0b 100644 (file)
--- a/trunk/R/db.R
+++ b/trunk/R/db.R
@@ -59,7 +59,7 @@ db_start <- function() {
                   ,',deb_epoch INTEGER NOT NULL'
                   ,',deb_revision INTEGER NOT NULL'
                   ,',db_version INTEGER NOT NULL'
-                  ,',date_stamp TEXT NOT NULL'
+                  ,',date_stamp INTEGER NOT NULL'
                   ,',scm_revision TEXT NOT NULL'
                   ,',success INTEGER NOT NULL'
                   ,',log TEXT'
@@ -308,7 +308,7 @@ db_record_build <- function(package, deb_version, log, success=F) {
                         ,',',db_quote(version_revision(deb_version))
                         ,',',db_cur_version(con)
                         ,',',as.integer(success)
-                        ,',',db_quote(format(Sys.time(),'%a, %d %b %Y %H:%M:%S %z'))
+                        ,',',db_quote(Sys.time())
                         ,',',db_quote(scm_revision)
                         ,',',db_quote(paste(log, collapse='\n'))
                         ,')'))
@@ -327,6 +327,7 @@ db_builds <- function(pkgname) {
         return(NULL)
     }
     build$success <- as.logical(build$success)
+    build$date_stamp <- as.integer(build$date_stamp)
     return(build)
 }
 

diff --git a/trunk/R/debianpkg.R b/trunk/R/debianpkg.R
index 22bb5b475db10babe094ceea4df65c20abaca02e..d8835412dc1206528a19f0d9b2d849340d6a9dab 100644 (file)
--- a/trunk/R/debianpkg.R
+++ b/trunk/R/debianpkg.R
@@ -27,7 +27,7 @@ generate_changelog_entry <- function(build, changelog) {
     cat(paste(paste(build$srcname,' (',debversion,') unstable; urgency=low',sep='')
              ,'' ,paste('  * cran2deb ',build$scm_revision
                        ,' with DB version ',as.integer(build$db_version),'.',sep='')
-             ,'',paste(' --',maintainer,'',build$date_stamp)
+             ,'',paste(' --',maintainer,'',format(build$date_stamp,'%a, %d %b %Y %H:%M:%S %z'))
              ,'','','',sep='\n'),file=changelog, append=TRUE)
 }
 

diff --git a/trunk/R/getrpkg.R b/trunk/R/getrpkg.R
index 5273a1fc601124da080b5dfe00c6061d06e905c5..f60329af58e7aca9529a9217d1b652ff7e103aeb 100644 (file)
--- a/trunk/R/getrpkg.R
+++ b/trunk/R/getrpkg.R
@@ -16,7 +16,7 @@ download_pkg <- function(dir, pkgname) {
 
     # record some basic information
     pkg <- pairlist()
-    pkg$date_stamp = format(Sys.time(),'%a, %d %b %Y %H:%M:%S %z')
+    pkg$date_stamp = Sys.time()
     pkg$name = pkgname
     pkg$repoURL = available[pkgname,'Repository']
     pkg$repo = repourl_as_debian(pkg$repoURL)