2 # $Id: mockrun,v 1.2 2009/10/03 17:45:41 jkratoch Exp $
7 die "Need [/var/lib/mock/]<ROOTNAME> [<commandline...>]" if @ARGV<1;
9 delete @ENV{qw(PATH BASH_ENV)};
12 my $safe="([-_a-z0-9]+)";
14 my $rpath="/var/lib/mock/$_/root";
15 system "sudo /usr/local/sbin/mocksetup -s $_" and die "sudo mocksetup $_";
16 -e "$rpath/MOCK" or die "mocksetup $_ and still no $rpath/MOCK";
17 my $user=$ENV{"USER"};
18 $user=($user=~/$safe/)[0];
20 # ERROR: Build root is locked by another process.
21 # my $mock="/usr/bin/mock";
22 # my @l=(qw(mock -r),$_,qw(--shell));
23 my $mock="/usr/bin/setarch";
24 my $arch=(/-(i386|x86_64)(?:-.*)?$/)[0] or die;
25 my @l=("setarch",$arch,"/usr/bin/sudo","/usr/sbin/chroot",$rpath);
27 # Untaint @ARGV->@args.
31 $args.=(/^(.*)$/s)[0];
33 my @args=("-l","-c",$args) if $args;
35 push @l,qw(su -),$user,@args;
36 print STDERR "$mock @l\n";
37 $ENV{"HOSTNAME"}="MOCK-$_";