From 8e79ad9f544d1c4a0476e0d96aef0496ca7fc741 Mon Sep 17 00:00:00 2001 From: Daniel Baumann Date: Sun, 14 Apr 2024 15:46:56 +0200 Subject: Adding upstream version 0.85.6. Signed-off-by: Daniel Baumann --- bin/sbuild-shell | 49 +++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 49 insertions(+) create mode 100755 bin/sbuild-shell (limited to 'bin/sbuild-shell') diff --git a/bin/sbuild-shell b/bin/sbuild-shell new file mode 100755 index 0000000..90083f2 --- /dev/null +++ b/bin/sbuild-shell @@ -0,0 +1,49 @@ +#!/usr/bin/perl +# +# Run a shell in a chroot. +# Copyright © 2006 Roger Leigh +# +# This program is free software: you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation, either version 2 of the License, or +# (at your option) any later version. +# +# This program is distributed in the hope that it will be useful, but +# WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +# General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program. If not, see +# . +# +####################################################################### + +use strict; +use warnings; + +use Getopt::Long; +use Sbuild qw(help_text version_text usage_error check_group_membership); +use Sbuild::Utility qw(setup cleanup); +use Sbuild::ChrootSetup qw(shell); +use Sbuild::Sysconfig; +use Sbuild::Conf qw(); +use Sbuild::OptionsBase; + +my $conf = Sbuild::Conf::new(); +exit 1 if !defined($conf); +my $options = Sbuild::OptionsBase->new($conf, "sbuild-shell", "1"); +exit 1 if !defined($options); +check_group_membership(); + +usage_error("sbuild-shell", "Incorrect number of options") if (@ARGV != 1); + + +my $session = setup('source', $ARGV[0], $conf) or die "Chroot setup failed"; + +my $status = shell($session, $conf); +$status >>= 8; + +cleanup($conf); + +exit $status; -- cgit v1.2.3