some debugging statements added and currently commented-out

[cran2deb.git] / trunk / R / debianpkg.R

diff --git a/trunk/R/debianpkg.R b/trunk/R/debianpkg.R
index 22bb5b475db10babe094ceea4df65c20abaca02e..0012c2bd63464a7b6f938b0b1842fd969fa915d5 100644 (file)
--- a/trunk/R/debianpkg.R
+++ b/trunk/R/debianpkg.R
@@ -24,10 +24,10 @@ generate_changelog <- function(pkg) {
 generate_changelog_entry <- function(build, changelog) {
     # TODO: should say 'New upstream release' when necessary
     debversion <- version_new(build$r_version, build$deb_revision, build$deb_epoch)
-    cat(paste(paste(build$srcname,' (',debversion,') unstable; urgency=low',sep='')
+    cat(paste(paste(build$srcname,' (',debversion,') testing; 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)
 }
 
@@ -133,6 +133,8 @@ prepare_new_debian <- function(pkg,extra_deps) {
     generate_rules(pkg)
     generate_copyright(pkg)
     generate_control(pkg)
+    ## debdir <- file.path(pkg$path,'debian')
+    ## system(paste("ls ", debdir, "; ls -l ", debdir, "/patches/*", sep=""))
 
     # convert text to utf8 (who knows what the original character set is --
     # let's hope iconv DTRT).