[Midnightbsd-cvs] mports: make_chroot_tarball.pl: Add script for building the chroot

[ctriv at midnightbsd.org]

Log Message:
-----------
Add script for building the chroot envirement that ports are tested in.

Added Files:
-----------
    mports/Tools/magus:
        make_chroot_tarball.pl (r1.1)

-------------- next part --------------
--- /dev/null
+++ Tools/magus/make_chroot_tarball.pl
@@ -0,0 +1,151 @@
+#!/usr/local/bin/perl
+#
+# Copyright (c) 2007 Chris Reinhardt. All rights reserved.
+#
+# Redistribution and use in source and binary forms, with or without
+# modification, are permitted provided that the following conditions are
+# met:
+#
+# 1. Redistributions of source code must retain the above copyright notice
+#    this list of conditions and the following disclaimer.
+#
+# 2. Redistributions in binary form must reproduce the above copyright
+#    notice, this list of conditions and the following disclaimer in the
+#    documentation and/or other materials provided with the distribution.
+#
+# THIS SOFTWARE IS PROVIDED "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES,
+# INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY
+# AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE
+# COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,
+# INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
+# NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
+# DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
+# THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
+# (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
+# THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+#
+# $MidnightBSD: mports/Tools/magus/make_chroot_tarball.pl,v 1.1 2007/09/02 03:02:31 ctriv Exp $
+#
+# MAINTAINER=   ctriv at MidnightBSD.org
+#
+# Build a tarball for the magus chroot envirement.
+#
+# usage:  make_chroot_tarball.pl <tarballname>
+#
+use strict;
+use warnings;
+
+my $ballname = shift || die "Usage: $0 <tarball name>\n";
+
+# list of dirs we don't want to recuse into
+my @dirs = qw(
+  /dev
+  /mnt
+  /proc
+  /sys
+  /tmp
+  /usr/local
+  /usr/obj
+  /usr/mports
+  /usr/src
+  /usr/X11R6
+  /var/db/pkg
+  /var/db/ports
+  /var/db/portsnap
+  /var/log
+  /var/cron/tabs
+  /var/mail
+  /var/msgs
+  /var/rwho
+  /var/spool
+);
+
+# list of files and dirs that are passed to tar normally.
+my @files = qw(
+  /.cshrc
+  /.profile
+  /bin
+  /boot/beastie.4th
+  /boot/boot
+  /boot/boot0
+  /boot/boot0sio
+  /boot/boot1
+  /boot/boot2
+  /boot/cdboot
+  /boot/defaults
+  /boot/defaults/loader.conf
+  /boot/device.hints
+  /boot/frames.4th
+  /boot/kernel
+  /boot/loader
+  /boot/loader.4th
+  /boot/loader.help
+  /boot/loader.rc
+  /boot/mbr
+  /boot/modules
+  /boot/pxeboot
+  /boot/screen.4th
+  /boot/support.4th
+  /COPYRIGHT
+  /etc
+  /lib
+  /mnt
+  /proc
+  /rescue
+  /root/.cshrc
+  /root/.k5login
+  /root/.login
+  /root/.profile
+  /sbin
+  /usr/bin
+  /usr/games
+  /usr/include
+  /usr/lib
+  /usr/libdata
+  /usr/libexec
+  /usr/sbin
+  /usr/share
+  /var/account
+  /var/at
+  /var/at/jobs
+  /var/at/spool
+  /var/audit
+  /var/backups
+  /var/crash/minfree
+  /var/db/entropy
+  /var/db/ipf
+  /var/db/locate.database
+  /var/empty
+  /var/games
+  /var/heimdal
+  /var/named
+  /var/preserve
+  /var/run/named
+  /var/run/ppp
+  /var/tmp/vi.recover
+  /var/yp/Makefile
+  /var/yp/Makefile.dist
+);
+
+
+sub run {
+  my ($command) = @_;
+  
+  print "$command\n";
+  system($command);
+  
+  if ($? == 0) {
+    return;
+  }
+  
+  if ($? == -1) {
+    die "Couldn't execute: $!\n";
+  }
+  
+  die "Command returned non-zero ($?)\n";
+}
+
+run(qq(/usr/bin/tar -c -f $ballname @files));
+run(qq(/usr/bin/tar -n -r -f $ballname @dirs));
+run(qq(/bin/ls -hl $ballname));
+