From 2e3311bac6b25568eb57780aa938f9c8563f9958 Mon Sep 17 00:00:00 2001
From: ranke <ranke@f247ebf9-aa24-0410-a698-f940e971ad2b>
Date: Mon, 18 Dec 2006 22:33:30 +0000
Subject: Working backporting environment

git-svn-id: svn+ssh://stiller/home/schatz/reps/r-backports@4 f247ebf9-aa24-0410-a698-f940e971ad2b
---
 add_changelog_entry.sh  |  6 ------
 backport_recommended.sh | 10 ++++++++++
 changelog_entry         |  6 ------
 clean.sh                |  1 -
 edit_changelog.py       | 26 ++++++++++++++++++++++++++
 edit_changelogs.py      | 28 ----------------------------
 get_sources.sh          |  3 ---
 7 files changed, 36 insertions(+), 44 deletions(-)
 delete mode 100644 add_changelog_entry.sh
 create mode 100644 backport_recommended.sh
 delete mode 100644 changelog_entry
 create mode 100644 edit_changelog.py
 delete mode 100644 edit_changelogs.py

diff --git a/add_changelog_entry.sh b/add_changelog_entry.sh
deleted file mode 100644
index 03f6710..0000000
--- a/add_changelog_entry.sh
+++ /dev/null
@@ -1,6 +0,0 @@
-#!/bin/bash
-rbasedir=`ls -d r-base/r-base-*`
-echo Adding changelog entry in $rbasedir
-cat changelog_entry > changelog_tmp
-cat $rbasedir/debian/changelog >> changelog_tmp
-mv changelog_tmp $rbasedir/debian/changelog
diff --git a/backport_recommended.sh b/backport_recommended.sh
new file mode 100644
index 0000000..65d9af6
--- /dev/null
+++ b/backport_recommended.sh
@@ -0,0 +1,10 @@
+#!/bin/bash
+for i in boot cluster foreign kernsmooth lattice mgcv nlme rpart survival vr; do
+	cd $i
+	rm -rf *
+	apt-get source -t unstable r-cran-$i
+	cd $i-*
+	python ../../edit_changelog.py
+	fakeroot dpkg-buildpackage
+	cd ..
+done
diff --git a/changelog_entry b/changelog_entry
deleted file mode 100644
index caa4776..0000000
--- a/changelog_entry
+++ /dev/null
@@ -1,6 +0,0 @@
-r-base (2.4.1-1~cran.1) etch-backports; urgency=low
-
-  * Backport to etch for CRAN repository
-
- -- Johannes Ranke <jranke@uni-bremen.de>  Fri, 15 Dec 2006 16:18:19 +0100
-
diff --git a/clean.sh b/clean.sh
index 7b3ccfa..522f315 100644
--- a/clean.sh
+++ b/clean.sh
@@ -1,5 +1,4 @@
 #!/bin/bash
-rm -rf r-base/*
 for i in boot cluster foreign kernsmooth lattice mgcv nlme rpart survival vr; do
 	rm -rf $i/*
 done
diff --git a/edit_changelog.py b/edit_changelog.py
new file mode 100644
index 0000000..d85d48b
--- /dev/null
+++ b/edit_changelog.py
@@ -0,0 +1,26 @@
+#!/usr/bin/python
+# edit_changelog.py
+
+from time import strftime
+from debian_bundle.changelog import Changelog, Version
+
+author = 'Johannes Ranke <jranke@uni-bremen.de>'
+
+chlg = "debian/changelog"
+content = file(chlg).read()
+changelog = Changelog(content)
+newVersion = changelog.upstream_version()  + "-" + changelog.debian_version()  + "~cran.1"
+
+changelog.new_block(package=changelog.package(),
+                    version=Version(newVersion),
+                    distributions='etch-backports',
+                    urgency='low',
+                    author=author,
+                    date=strftime("%a, %e %b %Y %H:%M:%S %z"),
+                    )
+
+changelog.add_change('');
+changelog.add_change('  * Backport to etch for repository on CRAN');
+changelog.add_change('');
+
+file(chlg,"w").write(str(changelog))
diff --git a/edit_changelogs.py b/edit_changelogs.py
deleted file mode 100644
index 927e01d..0000000
--- a/edit_changelogs.py
+++ /dev/null
@@ -1,28 +0,0 @@
-#!/usr/bin/python
-# edit_changelogs.py
-
-import glob
-from time import strftime
-from debian_bundle.changelog import Changelog, Version
-
-author = 'Johannes Ranke <jranke@uni-bremen.de>'
-
-path = glob.glob("r-base/r-base-*")[0]
-chlg = path + "/debian/changelog"
-content = file(chlg).read()
-changelog = Changelog(content)
-newVersion = changelog.upstream_version()  + "-" + changelog.debian_version()  + "~cran.1"
-
-changelog.new_block(package=changelog.package(),
-                    version=Version(newVersion),
-                    distributions='etch-backports',
-                    urgency='low',
-                    author=author,
-                    date=strftime("%a, %e %b %Y %H:%M:%S %z"),
-                    )
-
-changelog.add_change('');
-changelog.add_change('  * Backport to etch for CRAN repository');
-changelog.add_change('');
-
-#file(chlg,"w+").write(changelog)
diff --git a/get_sources.sh b/get_sources.sh
index 59acbaf..dbfd1f8 100644
--- a/get_sources.sh
+++ b/get_sources.sh
@@ -1,7 +1,4 @@
 #!/bin/bash
-cd r-base;
-apt-get source -t unstable r-base
-cd ..
 for i in boot cluster foreign kernsmooth lattice mgcv nlme rpart survival vr; do
 	cd $i
 	apt-get source -t unstable r-cran-$i
-- 
cgit v1.2.1