alemaire/image-specs
1
0
Fork 0
mirror of https://gitlab.com/alemaire/image-specs.git synced 2025-01-17 17:48:20 +00:00
Code Issues Projects Releases Wiki Activity

Rework set-sysconf not to require Sys::Sysconf

Browse Source 
Used a module not in the base Perl install; we fork to "logger" instead.
This commit is contained in:
Gunnar Wolf
2019-07-19 11:34:17 -03:00
parent c9e493a243
commit 8ae45e43de
2 changed files with 22 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

32
set-sysconf
View File

@@ -3,7 +3,6 @@ use strict;
use warnings;
use IO::File;
use IO::Pipe;
use Sys::Syslog qw(:standard);
use feature 'switch';
my ($filename, $fh, %conf);
@@ -11,29 +10,40 @@ my ($filename, $fh, %conf);
$filename = '/boot/firmware/sysconf.txt';
exit 0 unless -f $filename;
openlog('sysconf', 'ndelay', 'LOG_DAEMON');
syslog('info', 'Applying the system configuration settings in /boot/firmware');
END { closelog(); }
logger('info', "Applying the system configuration settings in $filename");
$fh = IO::File->new($filename, 'r');
while (my $line = $fh->readline) {
while (my $line = $fh->getline) {
my ($key, $value);
# Allow for comments, and properly ignore them
$line =~ s/#.+//;
if ( ($key, $value) = ($line =~ m/^\s*([^=]+)\s*=\s*(.*)\s*$/)) {
$key = lc($key);
if (exists($conf{$key})) {
syslog('warn', "Repeated configuration key: $key. Overwriting with new value ($value)");
logger('warn',
"Repeated configuration key: $key. " .
"Overwriting with new value ($value)");
}
$conf{$key} = $value;
}
}
if (my $pass = $conf{root_pw}) {
my $pipe = IO::Pipe->new();
$pipe->writer('/bin/passwd root');
print $pipe $pass;
print $pipe $pass;
if (my $pass = delete($conf{root_pw})) {
my $pipe;
open($pipe, '|-', '/usr/sbin/chpasswd') or die $!;
print $pipe "root:$pass";
close($pipe);
}
if (scalar keys %conf) {
logger('warn', 'Unprocessed keys left in $filename: ' .
join(', ', sort keys %conf));
}
exit 0;
sub logger {
my ($prio, $msg) = @_;
system('/bin/logger', '-p', "daemon.$prio",
'-t', 'set-sysconf', $msg);
}