mirror of
https://git.launchpad.net/ubuntu-dev-tools
synced 2025-03-12 23:51:08 +00:00
adding new tools I wrote and use
This commit is contained in:
Kees Cook
parent
4f74d71a39
commit
4c6b3cbe98
168
dch-repeat
Executable file
168
dch-repeat
Executable file
@ -0,0 +1,168 @@
|
|||||||
|
#!/usr/bin/perl
|
||||||
|
# Copyright 2007, Kees Cook <kees@ubuntu.com>
|
||||||
|
# License: GPLv2
|
||||||
|
# This script is used to repeat a change log into an older release. It
|
||||||
|
# expects that --build-tree is layed out with each Ubuntu release as a
|
||||||
|
# separate directory ("feisty", "edgy", etc).
|
||||||
|
#
|
||||||
|
# For example, if gimp had a security update prepared for Feisty in
|
||||||
|
# $TREE/feisty/gimp-2.2.13, running "dch-repeat" in
|
||||||
|
# $TREE/edgy/gimp-2.2.13 would pull in the latest changelog from the Feisty
|
||||||
|
# build.
|
||||||
|
use strict;
|
||||||
|
use warnings;
|
||||||
|
use Getopt::Long;
|
||||||
|
use Cwd;
|
||||||
|
use File::Glob ':glob';
|
||||||
|
|
||||||
|
sub Usage
|
||||||
|
{
|
||||||
|
print <<EOM;
|
||||||
|
Usage: $0 [OPTIONS]
|
||||||
|
--build-tree PATH Base of build trees
|
||||||
|
-s, --source-release RELEASE Which release to snag a changelog from
|
||||||
|
--target-release RELEASE Which release to build into
|
||||||
|
--devel-release RELEASE Which release is the devel release
|
||||||
|
--pocket POCKET Which pocket to use
|
||||||
|
EOM
|
||||||
|
exit(0);
|
||||||
|
}
|
||||||
|
|
||||||
|
my @releases = ('dapper', 'edgy', 'feisty', 'gutsy');
|
||||||
|
|
||||||
|
#Getopt::Long::Configure("bundling", "no_ignore_case");
|
||||||
|
our $opt_build_tree = "/scratch/ubuntu/build";
|
||||||
|
our $opt_devel_release = $releases[$#releases];
|
||||||
|
our $opt_pocket = undef;
|
||||||
|
our $opt_package = undef;
|
||||||
|
our $opt_source_release = undef;
|
||||||
|
our $opt_target_release = undef;
|
||||||
|
|
||||||
|
our $opt_help = undef;
|
||||||
|
our $opt_verbose = undef;
|
||||||
|
|
||||||
|
Usage() unless (GetOptions(
|
||||||
|
"build-tree=s",
|
||||||
|
"source-release|s=s",
|
||||||
|
"target-release=s",
|
||||||
|
"package|p=s",
|
||||||
|
"help|h",
|
||||||
|
"verbose|v",
|
||||||
|
));
|
||||||
|
Usage() if ($opt_help);
|
||||||
|
|
||||||
|
sub get_changelog($)
|
||||||
|
{
|
||||||
|
my ($path) = @_;
|
||||||
|
|
||||||
|
open(LOG,"<$path/debian/changelog") || die "Cannot find changelog for '$path'\n";
|
||||||
|
my $log="";
|
||||||
|
my $line="";
|
||||||
|
# Skip to package name
|
||||||
|
$line = <LOG>;
|
||||||
|
# Collect changelog
|
||||||
|
while ($line=<LOG>) {
|
||||||
|
last if ($line=~/^\S/); # Stop on next changelog entry
|
||||||
|
$log.=$line;
|
||||||
|
}
|
||||||
|
close(LOG);
|
||||||
|
return $log;
|
||||||
|
}
|
||||||
|
|
||||||
|
sub replace_changelog($)
|
||||||
|
{
|
||||||
|
my ($log) = @_;
|
||||||
|
open(LOG,"<debian/changelog") || die "Cannot find changelog\n";
|
||||||
|
open(NEWLOG,">debian/changelog.new") || die "Cannot write changelog\n";
|
||||||
|
my $line;
|
||||||
|
while ($line=<LOG>) {
|
||||||
|
last if ($line =~ /^\s*$/);
|
||||||
|
print NEWLOG $line || die "Changelog write failed: $!\n";
|
||||||
|
}
|
||||||
|
print NEWLOG $log || die "Changelog write failed: $!\n";
|
||||||
|
# Skip log items
|
||||||
|
while ($line=<LOG>) {
|
||||||
|
last if ($line =~ /^\S/);
|
||||||
|
}
|
||||||
|
print NEWLOG $line || die "Changelog write failed: $!\n";
|
||||||
|
while ($line=<LOG>) {
|
||||||
|
print NEWLOG $line || die "Changelog write failed: $!\n";
|
||||||
|
}
|
||||||
|
close(LOG);
|
||||||
|
close(NEWLOG) || die "Changelog close failed: $!\n";
|
||||||
|
rename("debian/changelog.new","debian/changelog") || die "Changelog rename failed: $!\n";
|
||||||
|
}
|
||||||
|
|
||||||
|
# By default examine Cwd for target release
|
||||||
|
if (!defined($opt_target_release)) {
|
||||||
|
my $dir = getcwd;
|
||||||
|
if ($dir =~ m#^$opt_build_tree/([^/]+)/[^/]+$#) {
|
||||||
|
$opt_target_release = $1;
|
||||||
|
}
|
||||||
|
else {
|
||||||
|
die "No --target-release used, or current directory '$dir' outside of --build-tree of '$opt_build_tree'\n";
|
||||||
|
}
|
||||||
|
}
|
||||||
|
warn "target-release: '$opt_target_release'\n" if ($opt_verbose);
|
||||||
|
|
||||||
|
# By default, examine changelog for package
|
||||||
|
if (!defined($opt_package)) {
|
||||||
|
chomp($opt_package=`dpkg-parsechangelog | grep ^"Source: " | cut -d" " -f2`);
|
||||||
|
if ($opt_package eq "") {
|
||||||
|
die "Cannot figure out package name from changelog\n";
|
||||||
|
}
|
||||||
|
}
|
||||||
|
warn "package: '$opt_package\n" if ($opt_verbose);
|
||||||
|
|
||||||
|
# By default, take changelog from newer release
|
||||||
|
if (!defined($opt_source_release)) {
|
||||||
|
if ($opt_target_release eq $opt_devel_release) {
|
||||||
|
die "No more recent release than '$opt_devel_release' to take changelog from\n";
|
||||||
|
}
|
||||||
|
foreach my $i (0 .. $#releases) {
|
||||||
|
if ($releases[$i] eq $opt_target_release) {
|
||||||
|
$opt_source_release = $releases[$i+1];
|
||||||
|
}
|
||||||
|
}
|
||||||
|
if (!defined($opt_source_release)) {
|
||||||
|
die "Could not locate a newer release than '$releases[$#releases]'";
|
||||||
|
}
|
||||||
|
}
|
||||||
|
warn "source-release: '$opt_source_release\n" if ($opt_verbose);
|
||||||
|
warn "devel-release: '$opt_devel_release\n" if ($opt_verbose);
|
||||||
|
|
||||||
|
# By default, use "security" pocket for non-devel releases
|
||||||
|
if (!defined($opt_pocket)) {
|
||||||
|
if ($opt_target_release eq $opt_devel_release) {
|
||||||
|
$opt_pocket = "";
|
||||||
|
}
|
||||||
|
else {
|
||||||
|
$opt_pocket = "security";
|
||||||
|
}
|
||||||
|
}
|
||||||
|
warn "pocket: '$opt_pocket'\n" if ($opt_verbose);
|
||||||
|
|
||||||
|
# Source location
|
||||||
|
my @dirs = grep((-d $_),bsd_glob("$opt_build_tree/$opt_source_release/$opt_package-*"));
|
||||||
|
if (scalar(@dirs)==0) {
|
||||||
|
die "Cannot find '$opt_build_tree/$opt_source_release/$opt_package-*'\n";
|
||||||
|
}
|
||||||
|
elsif (scalar(@dirs)>1) {
|
||||||
|
warn "Multiple possible source dirs, using '$dirs[0]'\n";
|
||||||
|
}
|
||||||
|
warn "source dir: '$dirs[0]'\n" if ($opt_verbose);
|
||||||
|
my $log = get_changelog($dirs[0]);
|
||||||
|
my $args = "";
|
||||||
|
if ($opt_pocket ne "") {
|
||||||
|
$args = "-s -D $opt_target_release-$opt_pocket";
|
||||||
|
}
|
||||||
|
else {
|
||||||
|
$args = "-i";
|
||||||
|
}
|
||||||
|
system("dch $args auto-changelog")==0 || die "dch failed: $!\n";
|
||||||
|
replace_changelog($log);
|
||||||
|
|
||||||
|
# Report!
|
||||||
|
system("dpkg-parsechangelog");
|
||||||
|
|
||||||
|
exit(0);
|
||||||
264
mk-sbuild-lv
Executable file
264
mk-sbuild-lv
Executable file
@ -0,0 +1,264 @@
|
|||||||
|
#!/bin/bash
|
||||||
|
# Script to create LVM snapshot chroots via schroot and sbuild.
|
||||||
|
# Much love to "man sbuild-setup", https://wiki.ubuntu.com/PbuilderHowto,
|
||||||
|
# and https://help.ubuntu.com/community/SbuildLVMHowto.
|
||||||
|
#
|
||||||
|
# This script assumes that sbuild has not be installed and configured before.
|
||||||
|
#
|
||||||
|
# If using schroot earlier than 1.1.4-1, it's a good idea to apply the
|
||||||
|
# process-cleaning patch to /etc/schroot/setup.d/10mount. Without this, any
|
||||||
|
# processes left running from the build (like cron, dbus, etc) will stop
|
||||||
|
# schroot from umounting and shutting down cleanly:
|
||||||
|
# http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=391319
|
||||||
|
#
|
||||||
|
# If using sbuild 0.50 or earlier, and you intend to use the "arch" argument
|
||||||
|
# to do i386 builds on amd64, you will need to patch "sbuild" to correctly
|
||||||
|
# detect the chroot architecture:
|
||||||
|
# http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=392992
|
||||||
|
#
|
||||||
|
# Version: 0.11
|
||||||
|
#
|
||||||
|
# Copyright 2006-2007, Canonical Ltd, Kees Cook <kees@ubuntu.com>
|
||||||
|
# License: GPLv2
|
||||||
|
set -e
|
||||||
|
|
||||||
|
# Make sure we've got a regular user
|
||||||
|
if [ -w /etc/passwd ]; then
|
||||||
|
echo "Please run this script as a regular user, not root." >&2
|
||||||
|
exit 1
|
||||||
|
fi
|
||||||
|
|
||||||
|
# Perform once-only things to initially set up for using sbuild+schroot+lvm
|
||||||
|
if [ ! -w /var/lib/sbuild ]; then
|
||||||
|
# Load all the packages you'll need to do work
|
||||||
|
sudo apt-get install sbuild schroot debootstrap lvm2
|
||||||
|
# Make sure LVM tools that operate on the snapshots have needed module
|
||||||
|
sudo modprobe dm_snapshot
|
||||||
|
sudo bash -c "grep ^dm_snapshot /etc/modules >/dev/null || echo dm_snapshot >> /etc/modules"
|
||||||
|
# Add self to the sbuild group
|
||||||
|
sudo adduser "$USER" sbuild
|
||||||
|
|
||||||
|
# Create some default build/log areas
|
||||||
|
mkdir -p ~/ubuntu/build ~/ubuntu/logs
|
||||||
|
# Prepare a usable default .sbuildrc
|
||||||
|
if [ ! -e ~/.sbuildrc ]; then
|
||||||
|
cat > ~/.sbuildrc <<EOM
|
||||||
|
# *** VERIFY AND UPDATE \$mailto and \$maintainer_name BELOW ***
|
||||||
|
|
||||||
|
# Mail address where logs are sent to (mandatory, no default!)
|
||||||
|
\$mailto = '$USER';
|
||||||
|
|
||||||
|
# Name to use as override in .changes files for the Maintainer: field
|
||||||
|
# (mandatory, no default!).
|
||||||
|
\$maintainer_name='$USER <$USER@localhost>';
|
||||||
|
|
||||||
|
# Chroot behaviour; possible values are "split" (apt and dpkg are run
|
||||||
|
# from the host system) and "schroot" (all package operations are done in
|
||||||
|
# the chroot with schroot, but the chroot must allow networking)
|
||||||
|
\$chroot_mode = "schroot";
|
||||||
|
|
||||||
|
# Directory for chroot symlinks and sbuild logs. Defaults to the
|
||||||
|
# current directory if unspecified.
|
||||||
|
#\$build_dir='$HOME/ubuntu/build';
|
||||||
|
|
||||||
|
# Directory for writing build logs to
|
||||||
|
\$log_dir="$HOME/ubuntu/logs";
|
||||||
|
|
||||||
|
# don't remove this, Perl needs it:
|
||||||
|
1;
|
||||||
|
EOM
|
||||||
|
sensible-editor ~/.sbuildrc
|
||||||
|
else
|
||||||
|
echo "Your ~/.sbuildrc already exists -- leaving it as-is."
|
||||||
|
fi
|
||||||
|
|
||||||
|
echo '***********************************************'
|
||||||
|
echo '* Before continuing, you MUST restart your *'
|
||||||
|
echo '* session to gain "sbuild" group permissions! *'
|
||||||
|
echo '***********************************************'
|
||||||
|
exit 0
|
||||||
|
fi
|
||||||
|
|
||||||
|
if ! id | fgrep -q '(sbuild)'; then
|
||||||
|
echo "You must be a member of the 'sbuild' group." >&2
|
||||||
|
exit 1
|
||||||
|
fi
|
||||||
|
|
||||||
|
function usage()
|
||||||
|
{
|
||||||
|
echo "Usage: $0 [OPTIONS] VG Release" >&2
|
||||||
|
echo "Options:"
|
||||||
|
echo " --arch=ARCH What architecture to select"
|
||||||
|
echo " --name=NAME Base name for the schroot (arch is appended)"
|
||||||
|
echo " --debug Turn on script debugging"
|
||||||
|
exit 1
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
if [ -z "$1" ]; then
|
||||||
|
usage
|
||||||
|
fi
|
||||||
|
OPTS=`getopt -o '' --long "help,debug,arch:,name::" -- "$@"`
|
||||||
|
eval set -- "$OPTS"
|
||||||
|
|
||||||
|
name=""
|
||||||
|
while :; do
|
||||||
|
case "$1" in
|
||||||
|
--debug)
|
||||||
|
set -x
|
||||||
|
shift
|
||||||
|
;;
|
||||||
|
--arch)
|
||||||
|
# By default, use the native architecture.
|
||||||
|
arch_opt="--arch $2"
|
||||||
|
arch_suffix="-$2"
|
||||||
|
shift 2
|
||||||
|
;;
|
||||||
|
--name)
|
||||||
|
name="$2"
|
||||||
|
shift 2
|
||||||
|
;;
|
||||||
|
--)
|
||||||
|
shift
|
||||||
|
break
|
||||||
|
;;
|
||||||
|
--help|*)
|
||||||
|
usage
|
||||||
|
;;
|
||||||
|
esac
|
||||||
|
done
|
||||||
|
|
||||||
|
# To build the LV, we need to know which volume group to use, and which
|
||||||
|
# release of Ubuntu to debootstrap
|
||||||
|
VG="$1"
|
||||||
|
RELEASE="$2"
|
||||||
|
if [ -z "$VG" ] || [ -z "$RELEASE" ]; then
|
||||||
|
usage
|
||||||
|
fi
|
||||||
|
|
||||||
|
# By default, name the schroot the same as the release
|
||||||
|
if [ -z "$name" ]; then
|
||||||
|
name="$RELEASE"
|
||||||
|
fi
|
||||||
|
|
||||||
|
# Set up some variables for use in the paths and names
|
||||||
|
CHROOT_LV="${name}_chroot${arch_suffix}"
|
||||||
|
CHROOT_PATH="/dev/$VG/$CHROOT_LV"
|
||||||
|
CHROOT_NAME="${name}${arch_suffix}"
|
||||||
|
|
||||||
|
# Does the specified VG exist? (vgdisplay doesn't set error codes...)
|
||||||
|
if [ `sudo vgdisplay -c "$VG" | wc -l` -eq 0 ]; then
|
||||||
|
exit 1
|
||||||
|
fi
|
||||||
|
|
||||||
|
# Is the specified release known to debootstrap?
|
||||||
|
if [ ! -f "/usr/lib/debootstrap/scripts/$RELEASE" ]; then
|
||||||
|
echo "Specified release not known to debootstrap" >&2
|
||||||
|
exit 1
|
||||||
|
else
|
||||||
|
# Look for a buildd variant to work with
|
||||||
|
if [ -f "/usr/lib/debootstrap/scripts/${RELEASE}.buildd" ]; then
|
||||||
|
variant_opt="--variant=buildd"
|
||||||
|
fi
|
||||||
|
fi
|
||||||
|
|
||||||
|
# Allocate the "golden" chroot LV
|
||||||
|
sudo lvcreate -n "$CHROOT_LV" -L 5G "$VG"
|
||||||
|
sudo mkfs -t ext3 "$CHROOT_PATH"
|
||||||
|
|
||||||
|
# Mount and debootstrap the chroot
|
||||||
|
MNT=`mktemp -d -t schroot-XXXXXX`
|
||||||
|
sudo mount "$CHROOT_PATH" "$MNT"
|
||||||
|
sudo debootstrap $arch_opt $variant_opt "$RELEASE" "$MNT" "${DEBOOTSTRAP_MIRROR:-http://archive.ubuntu.com/ubuntu}"
|
||||||
|
# Update the package sources
|
||||||
|
TEMP_SOURCES=`mktemp -t sources-XXXXXX`
|
||||||
|
TEMPLATE_SOURCES=~/.mk-sbuild-lv.sources
|
||||||
|
if [ -r "$TEMPLATE_SOURCES" ]; then
|
||||||
|
cat "$TEMPLATE_SOURCES" > "$TEMP_SOURCES"
|
||||||
|
else
|
||||||
|
cat > "$TEMP_SOURCES" <<EOM
|
||||||
|
deb http://archive.ubuntu.com/ubuntu RELEASE main restricted universe multiverse
|
||||||
|
deb-src http://archive.ubuntu.com/ubuntu RELEASE main restricted universe multiverse
|
||||||
|
deb http://archive.ubuntu.com/ubuntu RELEASE-updates main restricted universe multiverse
|
||||||
|
deb-src http://archive.ubuntu.com/ubuntu RELEASE-updates main restricted universe multiverse
|
||||||
|
deb http://security.ubuntu.com/ubuntu RELEASE-security main restricted universe multiverse
|
||||||
|
deb-src http://security.ubuntu.com/ubuntu RELEASE-security main restricted universe multiverse
|
||||||
|
EOM
|
||||||
|
fi
|
||||||
|
cat "$TEMP_SOURCES" | sed -e "s|RELEASE|$RELEASE|g" | \
|
||||||
|
sudo bash -c "cat > $MNT/etc/apt/sources.list"
|
||||||
|
rm -f "$TEMP_SOURCES"
|
||||||
|
# Copy the timezone (comment this out if you want to leave the chroot at UTC)
|
||||||
|
sudo cp /etc/localtime /etc/timezone "$MNT"/etc/
|
||||||
|
# Create an LVM-snapshot-based schroot entry for this LV
|
||||||
|
TEMP_SCHROOTCONF=`mktemp -t schrootconf-XXXXXX`
|
||||||
|
TEMPLATE_SCHROOTCONF=~/.mk-sbuild-lv.schroot.conf
|
||||||
|
if [ -r "$TEMPLATE_SCHROOTCONF" ]; then
|
||||||
|
cat "$TEMPLATE_SCHROOTCONF" > "$TEMP_SCHROOTCONF"
|
||||||
|
else
|
||||||
|
cat > "$TEMPLATE_SCHROOTCONF" <<EOM
|
||||||
|
|
||||||
|
[CHROOT_NAME]
|
||||||
|
type=lvm-snapshot
|
||||||
|
description=CHROOT_NAME
|
||||||
|
priority=3
|
||||||
|
groups=sbuild,root,admin
|
||||||
|
root-groups=root,sbuild,admin
|
||||||
|
source-groups=sbuild,root,admin
|
||||||
|
source-root-groups=root,sbuild,admin
|
||||||
|
device=CHROOT_PATH
|
||||||
|
mount-options=-o noatime
|
||||||
|
lvm-snapshot-options=--size 4G
|
||||||
|
run-setup-scripts=true
|
||||||
|
run-exec-scripts=true
|
||||||
|
EOM
|
||||||
|
fi
|
||||||
|
cat "$TEMP_SCHROOTCONF" | sed \
|
||||||
|
-e "s|CHROOT_NAME|$CHROOT_NAME|g" \
|
||||||
|
-e "s|CHROOT_PATH|$CHROOT_PATH|g" \
|
||||||
|
| \
|
||||||
|
sudo bash -c "cat >> /etc/schroot/schroot.conf"
|
||||||
|
rm -f "$TEMP_SCHROOTCONF"
|
||||||
|
# Create image finalization script
|
||||||
|
BUILD_PKGS="build-essential fakeroot devscripts"
|
||||||
|
# Add edgy+ buildd tools
|
||||||
|
if [ "$RELEASE" != "breezy" ] && [ "$RELEASE" != "dapper" ]; then
|
||||||
|
BUILD_PKGS="$BUILD_PKGS pkg-create-dbgsym pkgbinarymangler"
|
||||||
|
fi
|
||||||
|
sudo bash -c "cat >> $MNT/finish.sh" <<EOM
|
||||||
|
#!/bin/bash
|
||||||
|
#set -x
|
||||||
|
set -e
|
||||||
|
# Reload package lists
|
||||||
|
apt-get update || true
|
||||||
|
# Pull down signature requirements
|
||||||
|
apt-get -y --force-yes install gnupg ubuntu-keyring
|
||||||
|
# Reload package lists
|
||||||
|
apt-get update || true
|
||||||
|
# Disable debconf questions so that automated builds won't prompt
|
||||||
|
echo set debconf/frontend Noninteractive | debconf-communicate
|
||||||
|
echo set debconf/priority critical | debconf-communicate
|
||||||
|
# Install basic build tool set, trying to match buildd
|
||||||
|
apt-get -y install $BUILD_PKGS
|
||||||
|
# Set up expected /dev entries
|
||||||
|
ln -s /proc/self/fd/0 /dev/stdin
|
||||||
|
ln -s /proc/self/fd/1 /dev/stdout
|
||||||
|
ln -s /proc/self/fd/2 /dev/stderr
|
||||||
|
# Clean up
|
||||||
|
apt-get clean
|
||||||
|
rm /finish.sh
|
||||||
|
EOM
|
||||||
|
sudo chmod +x "$MNT"/finish.sh
|
||||||
|
sudo umount "$MNT"
|
||||||
|
rmdir "$MNT"
|
||||||
|
# Run finalization script on the "golden" copy via schroot.
|
||||||
|
(cd / && schroot -c "$CHROOT_NAME"-source -u root /finish.sh)
|
||||||
|
|
||||||
|
# Finished
|
||||||
|
echo ""
|
||||||
|
echo "Done building $CHROOT_NAME."
|
||||||
|
echo ""
|
||||||
|
echo " To UPDATE the golden image: schroot -c ${CHROOT_NAME}-source -u root"
|
||||||
|
echo " To ENTER an image snapshot: schroot -c ${CHROOT_NAME}"
|
||||||
|
echo " To BUILD within a snapshot: sbuild -d ${CHROOT_NAME} PACKAGE*.dsc"
|
||||||
|
echo ""
|
||||||
143
pull-debian-debdiff
Executable file
143
pull-debian-debdiff
Executable file
@ -0,0 +1,143 @@
|
|||||||
|
#!/usr/bin/perl
|
||||||
|
# Copyright 2007 Kees Cook <kees@ubuntu.com>
|
||||||
|
# License GPLv2
|
||||||
|
# This script attempts to find and download a specific version of a Debian
|
||||||
|
# package and its immediate parent to generate a debdiff.
|
||||||
|
# Requires: devscripts diffstat dpkg-dev
|
||||||
|
# Cleanups needed:
|
||||||
|
# - general cleanup
|
||||||
|
# - parse diff.gz/orig.tar.gz from .dsc file instead of guessing version
|
||||||
|
use strict;
|
||||||
|
use warnings;
|
||||||
|
|
||||||
|
sub geturls
|
||||||
|
{
|
||||||
|
my ($urlbase,$pkg,$version)=@_;
|
||||||
|
my $file;
|
||||||
|
|
||||||
|
$file = "${pkg}_${version}.dsc";
|
||||||
|
warn "Trying $urlbase/$file ...\n";
|
||||||
|
if (! -r "$file") {
|
||||||
|
|
||||||
|
system("wget $urlbase/$file");
|
||||||
|
return 0 if ($? != 0);
|
||||||
|
}
|
||||||
|
|
||||||
|
warn "Pulling source of $urlbase/$file ...\n";
|
||||||
|
|
||||||
|
$file = "${pkg}_${version}.diff.gz";
|
||||||
|
if (! -r "$file") {
|
||||||
|
system("wget $urlbase/$file");
|
||||||
|
return 0 if ($? != 0);
|
||||||
|
}
|
||||||
|
|
||||||
|
my $orig_ver = $version;
|
||||||
|
$orig_ver =~ s/-.*//;
|
||||||
|
|
||||||
|
$file = "${pkg}_${orig_ver}.orig.tar.gz";
|
||||||
|
if (! -r "$file") {
|
||||||
|
system("wget $urlbase/$file");
|
||||||
|
return 0 if ($? != 0);
|
||||||
|
}
|
||||||
|
|
||||||
|
return 1;
|
||||||
|
}
|
||||||
|
|
||||||
|
sub generate_base
|
||||||
|
{
|
||||||
|
my ($pkg)=@_;
|
||||||
|
|
||||||
|
my @path;
|
||||||
|
push(@path,"main");
|
||||||
|
if ($pkg =~ /^(lib.)/) {
|
||||||
|
push(@path,$1);
|
||||||
|
}
|
||||||
|
else {
|
||||||
|
push(@path,substr($pkg,0,1));
|
||||||
|
}
|
||||||
|
push(@path,$pkg);
|
||||||
|
return join("/",@path);
|
||||||
|
}
|
||||||
|
|
||||||
|
sub download_source
|
||||||
|
{
|
||||||
|
my ($pkg,$version)=@_;
|
||||||
|
my $urlbase;
|
||||||
|
|
||||||
|
my $base = generate_base($pkg);
|
||||||
|
|
||||||
|
# Attempt to pull from security updates first
|
||||||
|
$urlbase = "http://security.debian.org/pool/updates/$base";
|
||||||
|
|
||||||
|
if (!geturls($urlbase,$pkg,$version)) {
|
||||||
|
# Try regular pool
|
||||||
|
|
||||||
|
$urlbase = "http://ftp.debian.org/debian/pool/$base";
|
||||||
|
if (!geturls($urlbase,$pkg,$version)) {
|
||||||
|
# Try snapshot
|
||||||
|
|
||||||
|
$urlbase=`curl -sI 'http://snapshot.debian.net/package/$pkg/$version' | grep ^[lL]ocation | cut -d' ' -f2 | head -1`;
|
||||||
|
$urlbase =~ s/[\r\n]//g;
|
||||||
|
warn "Trying snapshot location '$urlbase' ...\n";
|
||||||
|
|
||||||
|
if ($urlbase ne "" && !geturls($urlbase,$pkg,$version)) {
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
return 1;
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
my $pkg = $ARGV[0];
|
||||||
|
my $version = $ARGV[1];
|
||||||
|
my $skip = $ARGV[2] || 1;
|
||||||
|
$skip+=0;
|
||||||
|
|
||||||
|
if (!defined($pkg) || !defined($version)) {
|
||||||
|
die "Usage: $0 PKG VERSION\n";
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
# Extract latest source
|
||||||
|
die "Cannot locate $pkg $version\n" unless download_source($pkg,$version);
|
||||||
|
system("dpkg-source -x ${pkg}_${version}.dsc");
|
||||||
|
die "Unpack of $pkg $version failed\n" unless ($? == 0);
|
||||||
|
|
||||||
|
# Locate prior changelog entry
|
||||||
|
my $prev_ver;
|
||||||
|
my $srcdir;
|
||||||
|
opendir(DIR,".");
|
||||||
|
while ($srcdir = readdir(DIR)) {
|
||||||
|
last if ($srcdir =~ /^${pkg}-/ && -d $srcdir);
|
||||||
|
}
|
||||||
|
closedir(DIR);
|
||||||
|
die "Cannot locate source tree\n" if (!defined($srcdir));
|
||||||
|
open(LOG,"<$srcdir/debian/changelog");
|
||||||
|
while (my $line=<LOG>) {
|
||||||
|
if ($line =~ /^$pkg \((?:\d+:)?([^\)]+)\)/) {
|
||||||
|
my $seen = $1;
|
||||||
|
if ($seen ne $version) {
|
||||||
|
$skip--;
|
||||||
|
|
||||||
|
if ($skip==0) {
|
||||||
|
$prev_ver=$seen;
|
||||||
|
last;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
close(LOG);
|
||||||
|
die "Cannot find earlier source version\n" if (!defined($prev_ver));
|
||||||
|
|
||||||
|
die "Cannot locate $pkg $prev_ver\n" unless download_source($pkg,$prev_ver);
|
||||||
|
system("dpkg-source -x ${pkg}_${prev_ver}.dsc");
|
||||||
|
die "Unpack of $pkg $prev_ver failed\n" unless ($? == 0);
|
||||||
|
|
||||||
|
system("debdiff ${pkg}_${prev_ver}.dsc ${pkg}_${version}.dsc > ${pkg}_${version}.debdiff");
|
||||||
|
die "Cannot debdiff\n" unless ($? == 0);
|
||||||
|
|
||||||
|
system("diffstat -p0 ${pkg}_${version}.debdiff");
|
||||||
|
print "${pkg}_${version}.debdiff\n";
|
||||||
13
what-patch
Executable file
13
what-patch
Executable file
@ -0,0 +1,13 @@
|
|||||||
|
#!/bin/bash
|
||||||
|
# Copyright 2006,2007 (C) Kees Cook <kees@ubuntu.com>
|
||||||
|
# License: GPLv2
|
||||||
|
for filename in $(echo "debian/rules"; grep ^include debian/rules | fgrep -v '$(' | awk '{print $2}')
|
||||||
|
do
|
||||||
|
fgrep -q patchsys.mk "$filename" && { echo "cdbs"; exit; }
|
||||||
|
fgrep -q quilt "$filename" && { echo "quilt"; exit; }
|
||||||
|
fgrep -q dbs-build.mk "$filename" && { echo "dbs"; exit; }
|
||||||
|
fgrep -q dpatch "$filename" && { echo "dpatch"; exit; }
|
||||||
|
fgrep -q '*.diff' "$filename" && { echo "diff splash"; exit; }
|
||||||
|
done
|
||||||
|
[ -d debian/patches ] || { echo "patchless?"; exit; }
|
||||||
|
echo "unknown patch system"
|
||||||
Loading…
x
Reference in New Issue
Block a user