initial import
This commit is contained in:
Wolfgang Bumiller
commit
7b25f3312e
|
|
@ -0,0 +1,9 @@
|
|||
rootfs
|
||||
config
|
||||
logfile
|
||||
PVE
|
||||
.veid
|
||||
pacman.conf
|
||||
pkgcache
|
||||
rootfs
|
||||
aab.conf
|
||||
|
|
@ -0,0 +1,629 @@
|
|||
package PVE::AAB;
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
|
||||
use File::Path;
|
||||
use File::Copy;
|
||||
use IO::File;
|
||||
use IO::Select;
|
||||
use IPC::Open3;
|
||||
use UUID;
|
||||
use Cwd;
|
||||
|
||||
my @BASE_PACKAGES = qw(base openssh);
|
||||
my @BASE_EXCLUDES = qw(e2fsprogs
|
||||
jfsutils
|
||||
linux
|
||||
lvm2
|
||||
mdadm
|
||||
netctl
|
||||
pcmciautils
|
||||
reiserfsprogs
|
||||
xfsprogs);
|
||||
|
||||
my $PKGDIR = "/var/cache/pacman/pkg";
|
||||
|
||||
my ($aablibdir, $fake_init);
|
||||
|
||||
sub setup_defaults($) {
|
||||
my ($dir) = @_;
|
||||
$aablibdir = $dir;
|
||||
$fake_init = "$aablibdir/scripts/init.bash";
|
||||
}
|
||||
|
||||
setup_defaults('/usr/lib/aab');
|
||||
|
||||
sub write_file {
|
||||
my ($data, $file, $perm) = @_;
|
||||
|
||||
die "no filename" if !$file;
|
||||
unlink $file;
|
||||
|
||||
my $fh = IO::File->new ($file, O_WRONLY | O_CREAT, $perm) ||
|
||||
die "unable to open file '$file'";
|
||||
|
||||
print $fh $data;
|
||||
$fh->close;
|
||||
}
|
||||
|
||||
sub copy_file {
|
||||
my ($a, $b) = @_;
|
||||
copy($a, $b) or die "failed to copy $a => $b: $!";
|
||||
}
|
||||
|
||||
sub rename_file {
|
||||
my ($a, $b) = @_;
|
||||
rename($a, $b) or die "failed to rename $a => $b: $!";
|
||||
}
|
||||
|
||||
sub symln {
|
||||
my ($a, $b) = @_;
|
||||
symlink($a, $b) or die "failed to symlink $a => $b: $!";
|
||||
}
|
||||
|
||||
sub logmsg {
|
||||
my $self = shift;
|
||||
print STDERR @_;
|
||||
$self->writelog (@_);
|
||||
}
|
||||
|
||||
sub writelog {
|
||||
my $self = shift;
|
||||
my $fd = $self->{logfd};
|
||||
print $fd @_;
|
||||
}
|
||||
|
||||
sub read_config {
|
||||
my ($filename) = @_;
|
||||
|
||||
my $res = {};
|
||||
|
||||
my $fh = IO::File->new ("<$filename") || return $res;
|
||||
my $rec = '';
|
||||
|
||||
while (defined (my $line = <$fh>)) {
|
||||
next if $line =~ m/^\#/;
|
||||
next if $line =~ m/^\s*$/;
|
||||
$rec .= $line;
|
||||
};
|
||||
|
||||
close ($fh);
|
||||
|
||||
chomp $rec;
|
||||
$rec .= "\n";
|
||||
|
||||
while ($rec) {
|
||||
if ($rec =~ s/^Description:\s*([^\n]*)(\n\s+.*)*$//si) {
|
||||
$res->{headline} = $1;
|
||||
chomp $res->{headline};
|
||||
my $long = $2;
|
||||
$long =~ s/^\s+/ /;
|
||||
$res->{description} = $long;
|
||||
chomp $res->{description};
|
||||
} elsif ($rec =~ s/^([^:]+):\s*(.*\S)\s*\n//) {
|
||||
my ($key, $value) = (lc ($1), $2);
|
||||
if ($key eq 'source' || $key eq 'mirror') {
|
||||
push @{$res->{$key}}, $value;
|
||||
} else {
|
||||
die "duplicate key '$key'\n" if defined ($res->{$key});
|
||||
$res->{$key} = $value;
|
||||
}
|
||||
} else {
|
||||
die "unable to parse config file: $rec";
|
||||
}
|
||||
}
|
||||
|
||||
die "unable to parse config file" if $rec;
|
||||
|
||||
return $res;
|
||||
}
|
||||
|
||||
sub new {
|
||||
my ($class, $config) = @_;
|
||||
|
||||
$config = read_config ('aab.conf') if !$config;
|
||||
my $version = $config->{version};
|
||||
die "no 'version' specified\n" if !$version;
|
||||
die "no 'section' specified\n" if !$config->{section};
|
||||
die "no 'description' specified\n" if !$config->{headline};
|
||||
die "no 'maintainer' specified\n" if !$config->{maintainer};
|
||||
|
||||
my $name = $config->{name} || die "no 'name' specified\n";
|
||||
$name =~ m/^[a-z][0-9a-z\-\*\.]+$/ ||
|
||||
die "illegal characters in name '$name'\n";
|
||||
|
||||
my $targetname;
|
||||
if ($name =~ m/^archlinux/) {
|
||||
$targetname = "${name}_${version}_$config->{architecture}";
|
||||
} else {
|
||||
$targetname = "archlinux-${name}_${version}_$config->{architecture}";
|
||||
}
|
||||
|
||||
my $self = { logfile => 'logfile',
|
||||
config => $config,
|
||||
targetname => $targetname,
|
||||
incl => [@BASE_PACKAGES],
|
||||
excl => [@BASE_EXCLUDES],
|
||||
};
|
||||
|
||||
$self->{logfd} = IO::File->new($self->{logfile}, O_WRONLY | O_APPEND | O_CREAT)
|
||||
or die "unable to open log file";
|
||||
|
||||
bless $self, $class;
|
||||
|
||||
$self->__allocate_ve();
|
||||
|
||||
return $self;
|
||||
}
|
||||
|
||||
sub __sample_config {
|
||||
my ($self) = @_;
|
||||
|
||||
my $arch = $self->{config}->{architecture};
|
||||
|
||||
return <<"CFG";
|
||||
lxc.arch = $arch
|
||||
lxc.include = /usr/share/lxc/config/archlinux.common.conf
|
||||
lxc.utsname = localhost
|
||||
lxc.rootfs = $self->{rootfs}
|
||||
lxc.mount.entry = $self->{pkgcache} $self->{pkgdir} none bind 0 0
|
||||
CFG
|
||||
}
|
||||
|
||||
sub __allocate_ve {
|
||||
my ($self) = @_;
|
||||
|
||||
my $cid;
|
||||
if (my $fd = IO::File->new(".veid")) {
|
||||
$cid = <$fd>;
|
||||
chomp $cid;
|
||||
close ($fd);
|
||||
}
|
||||
|
||||
|
||||
$self->{working_dir} = getcwd;
|
||||
$self->{veconffile} = "$self->{working_dir}/config";
|
||||
$self->{rootfs} = "$self->{working_dir}/rootfs";
|
||||
$self->{pkgdir} = "$self->{working_dir}/rootfs/$PKGDIR";
|
||||
$self->{pkgcache} = "$self->{working_dir}/pkgcache";
|
||||
$self->{'pacman.conf'} = "$self->{working_dir}/pacman.conf";
|
||||
|
||||
if ($cid) {
|
||||
$self->{veid} = $cid;
|
||||
return $cid;
|
||||
}
|
||||
|
||||
my $uuid;
|
||||
my $uuid_str;
|
||||
UUID::generate($uuid);
|
||||
UUID::unparse($uuid, $uuid_str);
|
||||
$self->{veid} = $uuid_str;
|
||||
|
||||
my $fd = IO::File->new (">.veid") ||
|
||||
die "unable to write '.veid'\n";
|
||||
print $fd "$self->{veid}\n";
|
||||
close ($fd);
|
||||
$self->logmsg("allocated VE $self->{veid}\n");
|
||||
}
|
||||
|
||||
sub initialize {
|
||||
my ($self) = @_;
|
||||
|
||||
my $config = $self->{config};
|
||||
|
||||
$self->{logfd} = IO::File->new($self->{logfile}, O_WRONLY | O_TRUNC | O_CREAT)
|
||||
or die "unable to open log file";
|
||||
|
||||
my $cdata = $self->__sample_config();
|
||||
|
||||
my $fh = IO::File->new($self->{veconffile}, O_WRONLY|O_CREAT|O_EXCL) ||
|
||||
die "unable to write lxc config file '$self->{veconffile}' - $!";
|
||||
print $fh $cdata;
|
||||
close ($fh);
|
||||
|
||||
if (!$config->{source} && !$config->{mirror}) {
|
||||
die "no sources/mirrors specified";
|
||||
}
|
||||
|
||||
$config->{source} //= [];
|
||||
$config->{mirror} //= [];
|
||||
|
||||
my $servers = "Server = "
|
||||
. join("\nServer = ", @{$config->{source}}, @{$config->{mirror}})
|
||||
. "\n";
|
||||
|
||||
$fh = IO::File->new($self->{'pacman.conf'}, O_WRONLY|O_CREAT|O_EXCL) ||
|
||||
die "unable to write pacman config file $self->{'pacman.conf'} - $!";
|
||||
print $fh <<"EOF";
|
||||
[options]
|
||||
HoldPkg = pacman glibc
|
||||
Architecture = $config->{architecture}
|
||||
CheckSpace
|
||||
SigLevel = Never
|
||||
|
||||
[core]
|
||||
$servers
|
||||
[extra]
|
||||
$servers
|
||||
[community]
|
||||
$servers
|
||||
[multilib]
|
||||
$servers
|
||||
EOF
|
||||
|
||||
mkdir $self->{rootfs} || die "unable to create rootfs - $!";
|
||||
|
||||
$self->logmsg("configured VE $self->{veid}\n");
|
||||
}
|
||||
|
||||
sub ve_status {
|
||||
my ($self) = @_;
|
||||
|
||||
my $veid = $self->{veid};
|
||||
|
||||
my $res = { running => 0 };
|
||||
|
||||
$res->{exist} = 1 if -d "$self->{rootfs}/usr";
|
||||
|
||||
my $filename = "/proc/net/unix";
|
||||
|
||||
# similar test is used by lcxcontainers.c: list_active_containers
|
||||
my $fh = IO::File->new ($filename, "r");
|
||||
return $res if !$fh;
|
||||
|
||||
while (defined(my $line = <$fh>)) {
|
||||
if ($line =~ m/^[a-f0-9]+:\s\S+\s\S+\s\S+\s\S+\s\S+\s\d+\s(\S+)$/) {
|
||||
my $path = $1;
|
||||
if ($path =~ m!^@/\S+/$veid/command$!) {
|
||||
$res->{running} = 1;
|
||||
}
|
||||
}
|
||||
}
|
||||
close($fh);
|
||||
|
||||
return $res;
|
||||
}
|
||||
|
||||
sub ve_destroy {
|
||||
my ($self) = @_;
|
||||
|
||||
my $veid = $self->{veid}; # fixme
|
||||
|
||||
my $vestat = $self->ve_status();
|
||||
if ($vestat->{running}) {
|
||||
$self->stop_container();
|
||||
}
|
||||
|
||||
rmtree $self->{rootfs};
|
||||
unlink $self->{veconffile};
|
||||
}
|
||||
|
||||
sub ve_init {
|
||||
my ($self) = @_;
|
||||
|
||||
|
||||
my $veid = $self->{veid};
|
||||
|
||||
$self->logmsg ("initialize VE $veid\n");
|
||||
|
||||
my $vestat = $self->ve_status();
|
||||
if ($vestat->{running}) {
|
||||
$self->run_command ("lxc-stop -n $veid --kill");
|
||||
}
|
||||
|
||||
rmtree $self->{rootfs};
|
||||
mkpath $self->{rootfs};
|
||||
}
|
||||
|
||||
sub ve_command {
|
||||
my ($self, $cmd, $input) = @_;
|
||||
|
||||
my $veid = $self->{veid};
|
||||
|
||||
if (ref ($cmd) eq 'ARRAY') {
|
||||
unshift @$cmd, 'lxc-attach', '-n', $veid, '--clear-env', '--';
|
||||
$self->run_command ($cmd, $input);
|
||||
} else {
|
||||
$self->run_command ("lxc-attach -n $veid --clear-env -- $cmd", $input);
|
||||
}
|
||||
}
|
||||
|
||||
sub ve_exec {
|
||||
my ($self, @cmd) = @_;
|
||||
|
||||
my $veid = $self->{veid};
|
||||
|
||||
my $reader;
|
||||
my $pid = open2($reader, "<&STDIN", 'lxc-attach', '-n', $veid, '--', @cmd)
|
||||
or die "unable to exec command";
|
||||
|
||||
while (defined (my $line = <$reader>)) {
|
||||
$self->logmsg ($line);
|
||||
}
|
||||
|
||||
waitpid ($pid, 0);
|
||||
my $rc = $? >> 8;
|
||||
|
||||
die "ve_exec failed - status $rc\n" if $rc != 0;
|
||||
}
|
||||
|
||||
sub run_command {
|
||||
my ($self, $cmd, $input, $getoutput) = @_;
|
||||
|
||||
my $reader = IO::File->new();
|
||||
my $writer = IO::File->new();
|
||||
my $error = IO::File->new();
|
||||
|
||||
my $orig_pid = $$;
|
||||
|
||||
my $cmdstr = ref ($cmd) eq 'ARRAY' ? join (' ', @$cmd) : $cmd;
|
||||
|
||||
my $pid;
|
||||
eval {
|
||||
if (ref ($cmd) eq 'ARRAY') {
|
||||
$pid = open3 ($writer, $reader, $error, @$cmd) || die $!;
|
||||
} else {
|
||||
$pid = open3 ($writer, $reader, $error, $cmdstr) || die $!;
|
||||
}
|
||||
};
|
||||
|
||||
my $err = $@;
|
||||
|
||||
# catch exec errors
|
||||
if ($orig_pid != $$) {
|
||||
$self->logmsg ("ERROR: command '$cmdstr' failed - fork failed\n");
|
||||
POSIX::_exit (1);
|
||||
kill ('KILL', $$);
|
||||
}
|
||||
|
||||
die $err if $err;
|
||||
|
||||
print $writer $input if defined $input;
|
||||
close $writer;
|
||||
|
||||
my $select = new IO::Select;
|
||||
$select->add ($reader);
|
||||
$select->add ($error);
|
||||
|
||||
my $res = '';
|
||||
my $logfd = $self->{logfd};
|
||||
|
||||
while ($select->count) {
|
||||
my @handles = $select->can_read ();
|
||||
|
||||
foreach my $h (@handles) {
|
||||
my $buf = '';
|
||||
my $count = sysread ($h, $buf, 4096);
|
||||
if (!defined ($count)) {
|
||||
waitpid ($pid, 0);
|
||||
die "command '$cmdstr' failed: $!";
|
||||
}
|
||||
$select->remove ($h) if !$count;
|
||||
|
||||
print $logfd $buf;
|
||||
|
||||
$res .= $buf if $getoutput;
|
||||
}
|
||||
}
|
||||
|
||||
waitpid ($pid, 0);
|
||||
my $ec = ($? >> 8);
|
||||
|
||||
die "command '$cmdstr' failed with exit code $ec\n" if $ec;
|
||||
|
||||
return $res;
|
||||
}
|
||||
|
||||
sub start_container {
|
||||
my ($self) = @_;
|
||||
my $veid = $self->{veid};
|
||||
$self->run_command(['lxc-start', '-n', $veid, '-f', $self->{veconffile}, '/usr/bin/aab_fake_init']);
|
||||
}
|
||||
|
||||
sub stop_container {
|
||||
my ($self) = @_;
|
||||
my $veid = $self->{veid};
|
||||
$self->run_command ("lxc-stop -n $veid --kill");
|
||||
}
|
||||
|
||||
sub pacman_command {
|
||||
my ($self) = @_;
|
||||
my $root = $self->{rootfs};
|
||||
return ('/usr/bin/pacman',
|
||||
'--root', $root,
|
||||
'--cachedir', $self->{pkgcache},
|
||||
'--noconfirm');
|
||||
}
|
||||
|
||||
sub cache_packages {
|
||||
my ($self, $packages) = @_;
|
||||
my $root = $self->{rootfs};
|
||||
|
||||
my @pacman = $self->pacman_command();
|
||||
$self->run_command([@pacman, '-Sw', '--', @$packages]);
|
||||
}
|
||||
|
||||
sub bootstrap {
|
||||
my ($self, $include, $exclude) = @_;
|
||||
my $root = $self->{rootfs};
|
||||
|
||||
my @pacman = $self->pacman_command();
|
||||
|
||||
print "Fetching package database...\n";
|
||||
mkpath $self->{pkgcache};
|
||||
mkpath $self->{pkgdir};
|
||||
mkpath "$root/var/lib/pacman";
|
||||
$self->run_command([@pacman, '-Sy']);
|
||||
|
||||
print "Figuring out what to install...\n";
|
||||
my $incl = { map { $_ => 1 } @{$self->{incl}} };
|
||||
my $excl = { map { $_ => 1 } @{$self->{excl}} };
|
||||
|
||||
foreach my $addinc (@$include) {
|
||||
$incl->{$addinc} = 1;
|
||||
delete $excl->{$addinc};
|
||||
}
|
||||
foreach my $addexc (@$exclude) {
|
||||
$excl->{$addexc} = 1;
|
||||
delete $incl->{$addexc};
|
||||
}
|
||||
|
||||
my $expand = sub {
|
||||
my ($lst) = @_;
|
||||
foreach my $inc (keys %$lst) {
|
||||
my $group;
|
||||
eval { $group = $self->run_command([@pacman, '-Sqg', $inc], undef, 1); };
|
||||
if ($group && !$@) {
|
||||
# add the group
|
||||
delete $lst->{$inc};
|
||||
$lst->{$_} = 1 foreach split(/\s+/, $group);
|
||||
}
|
||||
}
|
||||
};
|
||||
|
||||
$expand->($incl);
|
||||
$expand->($excl);
|
||||
|
||||
my $packages = [ grep { !$excl->{$_} } keys %$incl ];
|
||||
|
||||
print "Setting up basic environment...\n";
|
||||
mkpath "$root/etc";
|
||||
mkpath "$root/usr/bin";
|
||||
|
||||
my $data = "# UNCONFIGURED FSTAB FOR BASE SYSTEM\n";
|
||||
write_file ($data, "$root/etc/fstab", 0644);
|
||||
|
||||
write_file ("", "$root/etc/resolv.conf", 0644);
|
||||
write_file("localhost\n", "$root/etc/hostname", 0644);
|
||||
$self->run_command(['install', '-m0755', $fake_init, "$root/usr/bin/aab_fake_init"]);
|
||||
|
||||
unlink "$root/etc/localtime";
|
||||
symln '/usr/share/zoneinfo/UTC', "$root/etc/localtime";
|
||||
|
||||
print "Caching packages...\n";
|
||||
$self->cache_packages($packages);
|
||||
#$self->copy_packages();
|
||||
|
||||
print "Installing package manager and essentials...\n";
|
||||
# inetutils for 'hostname' for our init
|
||||
$self->run_command([@pacman, '-S', 'pacman', 'inetutils', 'archlinux-keyring']);
|
||||
|
||||
print "Setting up pacman for installation from cache...\n";
|
||||
my $file = "$root/etc/pacman.d/mirrorlist";
|
||||
my $backup = "${file}.aab_orig";
|
||||
if (!-f $backup) {
|
||||
rename_file($file, $backup);
|
||||
write_file("Server = file://$PKGDIR\n", $file);
|
||||
}
|
||||
|
||||
print "Populating keyring...\n";
|
||||
$self->run_command(['mount', '-t', 'devtmpfs', '-o', 'mode=0755,nosuid', 'udev', "$root/dev"]);
|
||||
$self->run_command(['unshare', '--fork', '--pid', 'chroot', "$root", 'pacman-key', '--init']);
|
||||
$self->run_command(['unshare', '--fork', '--pid', 'chroot', "$root", 'pacman-key', '--populate']);
|
||||
$self->run_command(['umount', "$root/dev"]);
|
||||
|
||||
print "Starting container...\n";
|
||||
$self->start_container();
|
||||
|
||||
print "Installing packages...\n";
|
||||
$self->ve_command(['pacman', '-S', '--needed', '--noconfirm', '--', @$packages]);
|
||||
}
|
||||
|
||||
sub install {
|
||||
my ($self, $pkglist) = @_;
|
||||
|
||||
$self->cache_packages($pkglist);
|
||||
$self->ve_command(['pacman', '-S', '--needed', '--noconfirm', '--', @$pkglist]);
|
||||
}
|
||||
|
||||
sub write_config {
|
||||
my ($self, $filename, $size) = @_;
|
||||
|
||||
my $config = $self->{config};
|
||||
|
||||
my $data = '';
|
||||
|
||||
$data .= "Name: $config->{name}\n";
|
||||
$data .= "Version: $config->{version}\n";
|
||||
$data .= "Type: lxc\n";
|
||||
$data .= "OS: archlinux\n";
|
||||
$data .= "Section: $config->{section}\n";
|
||||
$data .= "Maintainer: $config->{maintainer}\n";
|
||||
$data .= "Architecture: $config->{architecture}\n";
|
||||
$data .= "Installed-Size: $size\n";
|
||||
|
||||
# optional
|
||||
$data .= "Infopage: $config->{infopage}\n" if $config->{infopage};
|
||||
$data .= "ManageUrl: $config->{manageurl}\n" if $config->{manageurl};
|
||||
$data .= "Certified: $config->{certified}\n" if $config->{certified};
|
||||
|
||||
# description
|
||||
$data .= "Description: $config->{headline}\n";
|
||||
$data .= "$config->{description}\n" if $config->{description};
|
||||
|
||||
write_file ($data, $filename, 0644);
|
||||
}
|
||||
|
||||
sub finalize {
|
||||
my ($self) = @_;
|
||||
my $rootdir = $self->{rootfs};
|
||||
|
||||
print "Stopping container...\n";
|
||||
$self->stop_container();
|
||||
|
||||
print "Rolling back mirrorlist changes...\n";
|
||||
my $file = "$rootdir/etc/pacman.d/mirrorlist";
|
||||
unlink $file;
|
||||
rename_file($file.'.aab_orig', $file);
|
||||
|
||||
my $sizestr = $self->run_command("du -sm $rootdir", undef, 1);
|
||||
my $size;
|
||||
if ($sizestr =~ m/^(\d+)\s+\Q$rootdir\E$/) {
|
||||
$size = $1;
|
||||
} else {
|
||||
die "unable to detect size\n";
|
||||
}
|
||||
$self->logmsg ("$size MB\n");
|
||||
|
||||
$self->write_config ("$rootdir/etc/appliance.info", $size);
|
||||
|
||||
$self->logmsg ("creating final appliance archive\n");
|
||||
|
||||
my $target = "$self->{targetname}.tar";
|
||||
unlink $target;
|
||||
unlink "$target.gz";
|
||||
|
||||
$self->run_command ("tar cpf $target --numeric-owner -C '$rootdir' ./etc/appliance.info");
|
||||
$self->run_command ("tar rpf $target --numeric-owner -C '$rootdir' --exclude ./etc/appliance.info .");
|
||||
$self->run_command ("gzip $target");
|
||||
}
|
||||
|
||||
sub enter {
|
||||
my ($self) = @_;
|
||||
my $veid = $self->{veid};
|
||||
|
||||
my $vestat = $self->ve_status();
|
||||
if (!$vestat->{exist}) {
|
||||
$self->logmsg ("Please create the appliance first (bootstrap)");
|
||||
return;
|
||||
}
|
||||
|
||||
if (!$vestat->{running}) {
|
||||
$self->start_container();
|
||||
}
|
||||
|
||||
system ("lxc-attach -n $veid --clear-env");
|
||||
}
|
||||
|
||||
sub clean {
|
||||
my ($self, $all) = @_;
|
||||
|
||||
unlink $self->{logfile};
|
||||
unlink $self->{'pacman.conf'};
|
||||
$self->ve_destroy();
|
||||
unlink '.veid';
|
||||
rmtree $self->{pkgcache} if $all;
|
||||
}
|
||||
|
||||
1;
|
||||
|
|
@ -0,0 +1,148 @@
|
|||
#!/usr/bin/perl
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
use Getopt::Long;
|
||||
|
||||
use PVE::AAB;
|
||||
|
||||
$ENV{'LC_ALL'} = 'C';
|
||||
|
||||
sub print_usage {
|
||||
my ($msg) = @_;
|
||||
|
||||
if ($msg) {
|
||||
print STDERR "ERROR: $msg\n";
|
||||
}
|
||||
print STDERR "aab <command> [parameters]\n";
|
||||
}
|
||||
|
||||
$SIG{INT} = $SIG{TERM} = $SIG{QUIT} = $SIG{HUP} = sub {
|
||||
die "interrupted by signal\n";
|
||||
};
|
||||
|
||||
my $aab = PVE::AAB->new();
|
||||
|
||||
$aab->writelog("aab: " . join(' ', @ARGV) . "\n");
|
||||
|
||||
my $cmd = shift @ARGV;
|
||||
if (!$cmd) {
|
||||
print_usage('missing command');
|
||||
exit -1;
|
||||
}
|
||||
|
||||
eval {
|
||||
if ($cmd eq 'init') {
|
||||
|
||||
die "command '$cmd' expects no arguments.\n" if scalar (@ARGV) != 0;
|
||||
$aab->initialize();
|
||||
|
||||
} elsif ($cmd eq 'bootstrap') {
|
||||
|
||||
my ($datadir, $keep);
|
||||
if (!GetOptions('datadir=s' => \$datadir,
|
||||
'keep' => \$keep)) {
|
||||
print_usage();
|
||||
exit -1;
|
||||
}
|
||||
|
||||
my $here = "$aab->{working_dir}/scripts/init.bash";
|
||||
if (!$datadir && -f $here) {
|
||||
print "Using current working directory as data directory\n";
|
||||
$datadir = $aab->{working_dir};
|
||||
}
|
||||
|
||||
PVE::AAB::setup_defaults($datadir) if $datadir;
|
||||
$aab->ve_init() if !$keep;
|
||||
$aab->bootstrap();
|
||||
|
||||
} elsif ($cmd eq 'basedir') {
|
||||
|
||||
die "command '$cmd' expects no arguments.\n" if scalar (@ARGV) != 0;
|
||||
print $aab->{rootfs} . "\n";
|
||||
|
||||
} elsif ($cmd eq 'veid') {
|
||||
|
||||
die "command '$cmd' expects no arguments.\n" if scalar (@ARGV) != 0;
|
||||
print $aab->{veid} . "\n";
|
||||
|
||||
} elsif ($cmd eq 'packagefile') {
|
||||
|
||||
die "command '$cmd' expects no arguments.\n" if scalar (@ARGV) != 0;
|
||||
|
||||
print "$aab->{targetname}.tar.gz\n";
|
||||
|
||||
} elsif ($cmd eq 'finalize') {
|
||||
|
||||
$aab->finalize();
|
||||
|
||||
} elsif ($cmd eq 'install') {
|
||||
|
||||
my $required;
|
||||
foreach my $arg (@ARGV) {
|
||||
if ($arg =~ m/\.pkglist$/) {
|
||||
open my $fh, $arg or
|
||||
die "cant open package list '$arg' - $!";
|
||||
while (defined (my $line = <$fh>)) {
|
||||
chomp $line;
|
||||
next if $line =~ m/^\s*$/;
|
||||
next if $line =~ m/\#/;
|
||||
if ($line =~ m/^\s*(\S+)\s*$/) {
|
||||
push @$required, $1;
|
||||
} else {
|
||||
die "invalid package name in '$arg' - $line\n";
|
||||
}
|
||||
}
|
||||
close ($fh);
|
||||
} else {
|
||||
push @$required, $arg;
|
||||
}
|
||||
}
|
||||
|
||||
$aab->install ($required);
|
||||
|
||||
} elsif ($cmd eq 'exec') {
|
||||
|
||||
$aab->ve_exec (@ARGV);
|
||||
|
||||
} elsif ($cmd eq 'enter') {
|
||||
|
||||
$aab->enter();
|
||||
|
||||
} elsif ($cmd eq 'clean') {
|
||||
|
||||
$aab->clean();
|
||||
|
||||
} elsif ($cmd eq 'dist-clean') {
|
||||
|
||||
$aab->clean(1);
|
||||
|
||||
} elsif ($cmd eq 'list') {
|
||||
|
||||
my $verbose;
|
||||
|
||||
if (!GetOptions ('verbose' =>\$verbose)) {
|
||||
print_usage ();
|
||||
exit (-1);
|
||||
}
|
||||
|
||||
die "command '$cmd' expects no arguments.\n" if scalar (@ARGV) != 0;
|
||||
|
||||
my $query = '-Q';
|
||||
$query .= 'q' if !$verbose;
|
||||
print $aab->run_command(['chroot', $aab->{rootfs}, 'pacman', $query], undef, 1);
|
||||
|
||||
} else {
|
||||
|
||||
print_usage("invalid command '$cmd'");
|
||||
exit (-1);
|
||||
|
||||
}
|
||||
};
|
||||
|
||||
if (my $err = $@) {
|
||||
$aab->logmsg($err);
|
||||
die $err;
|
||||
}
|
||||
|
||||
exit 0;
|
||||
|
|
@ -0,0 +1,33 @@
|
|||
#!/usr/bin/bash
|
||||
|
||||
# no runlevels
|
||||
(($$ != 1)) && exit 0
|
||||
|
||||
msg() {
|
||||
local mesg="$1"; shift
|
||||
printf "${mesg}\n" "$@"
|
||||
}
|
||||
|
||||
die() {
|
||||
local mesg="$1"; shift
|
||||
printf "error: ${mesg}\n" "$@" >&2
|
||||
exit 1
|
||||
}
|
||||
|
||||
do_exit() {
|
||||
msg "stopping init";
|
||||
exit 0
|
||||
}
|
||||
|
||||
# lxc sends 48 for some reason with --kill instead of stopsignal
|
||||
trap do_exit SIGINT SIGTERM SIGHUP SIGPWR 48
|
||||
|
||||
msg "starting bash init... $*"
|
||||
|
||||
[[ -d "/proc/$$" ]] || mount -t proc proc /proc \
|
||||
|| die 'unable to mount /proc'
|
||||
|
||||
hostname localhost || die 'unable to set hostname'
|
||||
|
||||
sleep infinity &
|
||||
wait
|
||||
Loading…
Reference in New Issue