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
|
#!/usr/bin/env perl
#
# vim: set ts=4:noet
#
# sboconfig
# script to handle sbotools configuration
#
# author: Jacob Pipkin <j@dawnrazor.net>
# date: Pungenday, the 40th day of Discord in the YOLD 3178
# license: WTFPL <http://sam.zoy.org/wtfpl/COPYING>
use 5.16.0;
use strict;
use warnings FATAL => 'all';
use SBO::Lib;
use File::Basename;
use Getopt::Std;
use File::Copy;
use File::Path qw(make_path);
use File::Temp qw(tempfile);;
my $self = basename ($0);
sub show_usage () {
print <<EOF
Usage: $self [options] [arguments]
Options:
-h: this screen.
-v: version information.
-l: show current options.
Config options (defaults shown):
-c FALSE:
NOCLEAN: if TRUE, do NOT clean up after building by default.
-d FALSE:
DISTCLEAN: if TRUE, DO clean distfiles by default after building.
-j FALSE:
JOBS: numeric -j setting to feed to make for multicore systems.
-p FALSE:
PKG_DIR: set a directory to store packages in.
-s /usr/sbo:
SBO_HOME: set the SBo directory.
EOF
}
my %options;
getopts ('hvlc:d:p:s:j:', \%options);
show_usage and exit 0 if exists $options{h};
show_version and exit 0 if exists $options{v};
my %valid_confs = (
c => 'NOCLEAN',
d => 'DISTCLEAN',
j => 'JOBS',
p => 'PKG_DIR',
s => 'SBO_HOME',
);
my %params = reverse %valid_confs;
if (exists $options{l}) {
my @keys = sort {$a cmp $b} keys %config;
say "sboconfig -$params{$_}:\n $_=$config{$_}" for @keys;
exit 0;
}
show_usage and exit 0 unless %options;
# setup what's being changed.
my %changes;
while (my ($key, $value) = each %valid_confs) {
$changes{$value} = $options{$key} if exists $options{$key};
}
if (exists $changes{JOBS}) {
die "You have provided an invalid parameter for -j\n" unless
($changes{JOBS} =~ /^\d+$/ || $changes{JOBS} eq 'FALSE');
}
# safely modify our conf file; write its contents to a temp file, modify the
# temp file, write the contents of the temp file back to the conf file
sub config_write ($$) {
exists $_[1] or script_error 'config_write requires two arguments.';
my ($key, $val) = @_;
if (! -d $conf_dir) {
mkdir $conf_dir or die "Unable to create $conf_dir. Exiting.\n";
}
if (-f $conf_file) {
my $tempfh = tempfile (DIR => $tempdir);
my $conffh = open_read $conf_file;
my $conftents = do {local $/; <$conffh>};
print {$tempfh} $conftents;
# tie the temp file so that if $key is already there, we just change
# that line and untie it
tie my @temp, 'Tie::File', $tempfh;
my $has;
my $regex = qr/\A\Q$key\E=/;
FIRST: for my $tmpline (@temp) {
$has++, $tmpline = "$key=$val", last FIRST if $tmpline =~ $regex;
}
untie @temp;
# otherwise, append our new $key=$value pair
print {$tempfh} "$key=$val\n" unless $has;
# then over write the conf file with the contents of the temp file
seek $tempfh, 0, 0;
my $contents = do {local $/; <$tempfh>};
close $conffh;
eval { $conffh = open_fh $conf_file, '>' };
warn "Cannot write configuration: $@\n" and return if $@;
print {$conffh} $contents or return;
close $conffh, close $tempfh;
} else {
# no config file, easiest case of all.
my $fh = open_fh $conf_file, '>' or return;
print {$fh} "$key=$val\n";
close $fh;
}
return 1;
}
while (my ($key, $value) = each %changes) {
print "Setting $key to $value...\n";
config_write $key, $value or warn "Unable to write to $conf_file\n";
}
exit 0;
|
