1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
|
#!/usr/bin/env perl
#
# vim: set ts=4:noet
#
# sboinstall
# script to install (a) SlackBuild(s) by name
#
# authors: Jacob Pipkin <j@dawnrazor.net>
# Luke Williams <xocel@iquidus.org>
# license: WTFPL <http://sam.zoy.org/wtfpl/COPYING>
use 5.16.0;
use strict;
use warnings FATAL => 'all';
use SBO::Lib;
use Getopt::Long qw(:config bundling);
use File::Basename;
my $self = basename($0);
sub show_usage() {
print <<EOF
Usage: $self [options] sbo
Options (defaults shown first where applicable):
-h|--help:
this screen.
-v|--version:
version information.
-c|--noclean (FALSE|TRUE):
set whether or not to clean working files/directories after the build.
-d|--distclean (TRUE|FALSE):
set whether or not to clean distfiles afterward.
-i|--noinstall:
do not run installpkg at the end of the build process.
-j|--jobs (FALSE|#):
specify "-j" setting to make, for multicore systems; overrides conf file.
-p|--compat32:
install an SBo as a -compat32 pkg on a multilib x86_64 system.
-r|--nointeractive:
non-interactive; skips README and all prompts.
-R|--norequirements:
view the README but do not parse requirements, commands, or options.
EOF
}
my $noclean = $config{NOCLEAN};
my $distclean = $config{DISTCLEAN};
my $jobs = $config{JOBS};
my ($help, $vers, $no_install, $non_int, $no_reqs, $compat32);
GetOptions(
'help|h' => \$help,
'version|v' => \$vers,
'noclean|c=s' => \$noclean,
'distclean|d=s' => \$distclean,
'noinstall|i' => \$no_install,
'jobs|j=s' => \$jobs,
'compat32|p' => \$compat32,
'nointeractive|r' => \$non_int,
'norequirements|R' => \$no_reqs,
);
show_usage and exit 0 if $help;
show_version and exit 0 if $vers;
show_usage and exit 0 unless exists $ARGV[0];
$noclean = $noclean eq 'TRUE' ? 1 : 0;
$distclean = $distclean eq 'TRUE' ? 1 : 0;
if ($jobs) {
usage_error "You have provided an invalid value for -j|--jobs"
unless ($jobs =~ /^\d+$/ || $jobs eq 'FALSE');
}
if ($compat32) {
usage_error "compat32 only works on x86_64." unless get_arch eq 'x86_64';
}
# if we can't find SLACKBUILDS.TXT in $config{HOME}, prompt to fetch the tree
slackbuilds_or_fetch;
my (%warnings, $build_queue, %locations);
if ($no_reqs or $non_int) {
$build_queue = \@ARGV;
} else {
for my $sbo (@ARGV) {
my $queue = get_build_queue([$sbo], \%warnings);
$build_queue = merge_queues($build_queue, $queue);
}
}
# populate %locations and sanity check
$locations = get_sbo_location($build_queue);
for my $sbo (@$build_queue) {
usage_error "Unable to locate $sbo in the SlackBuilds.org tree." unless
defined $locations{$sbo};
if ($compat32) {
usage_error "-p|--compat32 is not supported with Perl SBos."
if $locations{$sbo} =~ qr|/perl/[^/]+$|;
}
}
# get lists of installed packages and perl modules from CPAN
my $inst_names = get_inst_names(get_installed_packages 'ALL');
my $pms = get_installed_cpans;
s/::/-/g for @$pms;
# check for already-installeds and prompt for the rest
my (@temp_queue, %commands, %options);
my $added = ' added to install queue.';
FIRST: for my $sbo (@$build_queue) {
my $name = $compat32 ? "$sbo-compat32" : $sbo;
if ($name ~~ @$inst_names) {
say "$name already installed.";
next FIRST;
} else {
my $pm_name = $sbo;
$pm_name =~ s/^perl-//;
if (/$pm_name/i ~~ @$pms) {
say "$sbo installed via the cpan.";
next FIRST;
}
}
$locations{$name} = get_sbo_location($sbo) if $compat32;
unless ($non_int) {
# if compat32 is TRUE, we need to see if the non-compat version exists.
if ($compat32) {
unless ($sbo ~~ @$inst_names) {
say "$name requires $sbo.";
my ($cmds, $opts) = user_prompt($sbo, $locations{$sbo});
if ($cmds) {
next FIRST if $cmds eq 'N';
}
push(@temp_queue, $sbo);
$commands{$sbo} = $cmds;
$options{$sbo} = $cmds;
say "$sbo$added";
}
}
my ($cmds, $opts) = user_prompt($name, $locations{$name});
if ($cmds) {
next FIRST if $cmds eq 'N';
}
push(@temp_queue, $name);
$commands{$sbo} = $cmds;
$options{$sbo} = $opts;
say "$name$added";
} else {
push(@temp_queue, $sbo);
say "\n$name$added";
}
}
@$build_queue = @temp_queue;
exit 0 unless exists $$build_queue[0];
say "\nInstall queue: " . join(' ', @$build_queue);
unless ($non_int) {
print "\nAre you sure you wish to continue? [y]: ";
exit 0 unless <STDIN> =~ /^[Yy\n]/;
}
my %failures = process_sbos(
TODO => $build_queue,
CMDS => \%commands,
OPTS => \%options,
JOBS => $jobs,
LOCATIONS => \%locations,
NOINSTALL => $no_install,
NOCLEAN => $noclean,
DISTCLEAN => $distclean,
);
print_failures(%failures);
exit keys %failures > 0 ? 1 : 0;
|
