make
make distcheck
make dist-bzip2
+v=$(make echo-version)
d=$(make echo-distdir)
src=$d.tar.bz2
build() {
local h=$1 # build host
local f=$2
+ local vs=$3
+ local dist=$4
remote $h "mkdir -p _builds"
remote $h "rm -rf _builds/*.deb _builds/$d"
scp $src $h:_builds
remote $h "cd _builds && tar xfj $src"
+ if [ "$vs" != "" ]; then
+ remote $h "cd _builds/$d && scripts/setversion $v~$vs 'Backport to $vs' $dist"
+ fi
remote $h "cd _builds/$d && fakeroot debian/rules binary"
mkdir -p $web/$f
scp $h:_builds/*.deb $web/$f/.
# Build various debs
# Ubuntu dapper; binaries suit Debian etch too
-build dekabrach etch
+build dekabrach etch etch oldstable
# Debian lenny (32-bit)
-build leucomorph lenny
+build leucomorph lenny "" stable
# Debian lenny (64-bit)
-build araminta lenny
+build araminta lenny "" stable
# Update the web
cp $src $web
#! /usr/bin/perl -w
#
-# scripts/setversion VERSION
+# scripts/setversion VERSION [DESCRIPTION [DISTRIBUTION]]
#
# Sets a new version number, including a debian/changelog entry (albeit
# a rather terse and informal one).
use POSIX qw(strftime uname);
my $version = shift;
+my $description;
+my $distribution;
+if(@ARGV > 0) {
+ $description = shift;
+} else {
+ $description = "DisOrder $version";
+}
+if(@ARGV > 0) {
+ $distribution = shift;
+} else {
+ $distribution = "unstable";
+}
my $hostname = (uname)[1];
$hostname = (gethostbyname($hostname))[0];
my $name = (getpwuid($<))[6];
$name =~ s/,.*//;
my $email = "$logname\@$hostname";
+if(exists $ENV{"EMAIL"}) {
+ $email = $ENV{"EMAIL"};
+}
my $date = strftime("%a, %d %b %Y %H:%M:%S %z", localtime);
sub input {
@c = input("debian/changelog");
unshift(@c,
- "disorder ($version) unstable; urgency=low\n",
+ "disorder ($version) $distribution; urgency=low\n",
"\n",
- " * Disorder $version\n",
+ " * $description\n",
"\n",
" -- $name <$email> $date\n",
"\n");