mudler
83 lines
1.9 KiB
Perl
Executable File
83 lines
1.9 KiB
Perl
Executable File
#!/usr/bin/env perl
|
|
|
|
use Getopt::Long;
|
|
|
|
|
|
my $profile = $ENV{BUILDER_PROFILE} // 3;
|
|
my $jobs = $ENV{BUILDER_JOBS} // 1;
|
|
my @overlays;
|
|
|
|
GetOptions('layman:s{,}' => \@overlays);
|
|
|
|
if (@ARGV==0) {
|
|
help();die();
|
|
}
|
|
|
|
$ENV{LC_ALL} = "en_US.UTF-8"; #here be dragons
|
|
|
|
sub depgraph {
|
|
map { $_ =~ s/^.*\]|\s|\n//g; $_ }
|
|
grep {/\]/} qx/emerge -poq --color n @_/;
|
|
}
|
|
|
|
sub depgraph_atom {
|
|
map { $_ =~ s/^.*\]|\s|\n//g; &atom($_); $_ } grep {/\]/}
|
|
qx/emerge -poq --color n @_/; #depth=0 it's all
|
|
}
|
|
|
|
# Input : complete gentoo package ($P)
|
|
sub atom { s/-[0-9]{1,}.*$//; }
|
|
|
|
sub say { print join( "\n", @_ ) . "\n"; }
|
|
|
|
sub help {
|
|
say "You should feed me with something", "$0 app-text/tree" , "$0 plasma-meta --layman kde", "You can supply multiple overlays as well: $0 plasma-meta --layman kde plab";
|
|
}
|
|
|
|
|
|
if(@overlays>0){
|
|
say "Overlay(s) to add", "";
|
|
foreach my $overlay (@overlays){
|
|
say "\t- $overlay";
|
|
}
|
|
}
|
|
|
|
say "Installing:";
|
|
|
|
say "\t* ".$_ for @ARGV;
|
|
|
|
say "* Syncing stuff for you, if it's the first time, can take a while";
|
|
|
|
# Syncronizing Portage and Entropy
|
|
system("echo 'en_US.UTF-8 UTF-8' > /etc/locale.gen"); #be sure about that.
|
|
system("cd /etc/portage/;git checkout master; git pull");
|
|
system("echo 'y' | layman -f -a $_") for @overlays;
|
|
system("layman -S;emerge --sync --quiet");
|
|
qx|eselect profile set $profile|;
|
|
qx{ls /usr/portage/licenses -1 | xargs -0 > /etc/entropy/packages/license.accept}
|
|
; #HAHA
|
|
system("equo up && equo u"); # Better don't be behind
|
|
qx|echo 'ACCEPT_LICENSE="*"' >> /etc/portage/make.conf|; #just plain evil.
|
|
|
|
say "* Ready to compile, finger crossed";
|
|
|
|
# Separating packages from args
|
|
my @args;
|
|
my @packages;
|
|
foreach my $value (@ARGV) {
|
|
if ( $value =~ /^\-/ ) {
|
|
push( @args, $value );
|
|
}
|
|
else {
|
|
push( @packages, $value );
|
|
}
|
|
}
|
|
|
|
my @packages_deps = depgraph(@packages);
|
|
say @packages_deps;
|
|
|
|
system("equo i $_") for @packages_deps;
|
|
|
|
system("emerge @args -j $jobs --buildpkg @packages");
|
|
|