Merge pull request #185067 from stigtsp/refactor/stc-no-net-debus

use File::Path qw(make_path);

use File::Basename;

use File::Slurp qw(read_file write_file edit_file);

use Net::DBus;

use JSON::PP;

use IPC::Cmd;

use Sys::Syslog qw(:standard :macros);

use Cwd qw(abs_path);

# virtual console 1 and we restart the "tty1" unit.

$SIG{PIPE} = "IGNORE";

# Replacement for Net::DBus that calls busctl of the current systemd, parses

# it's json output and returns the response using only core modules to reduce

# dependencies on perlPackages in baseSystem

sub busctl_call_systemd1_mgr {

    my (@args) = @_;

    my $cmd = [

        "$cur_systemd/busctl", "--json=short", "call", "org.freedesktop.systemd1",

        "/org/freedesktop/systemd1", "org.freedesktop.systemd1.Manager",

        @args

    ];

    my ($ok, $err, undef, $stdout) = IPC::Cmd::run(command => $cmd);

    die $err unless $ok;

    my $res = decode_json(join "", @$stdout);

    return $res;

}

# Asks the currently running systemd instance via dbus which units are active.

# Returns a hash where the key is the name of each unit and the value a hash

# of load, state, substate.

sub get_active_units {

    my $mgr = Net::DBus->system->get_service("org.freedesktop.systemd1")->get_object("/org/freedesktop/systemd1");

    my $units = $mgr->ListUnitsByPatterns([], []);

    my $units = busctl_call_systemd1_mgr("ListUnitsByPatterns", "asas", 0, 0)->{data}->[0];

    my $res = {};

    for my $item (@{$units}) {

        my ($id, $description, $load_state, $active_state, $sub_state,

# Takes the name of the unit as an argument and returns a bool whether the unit is active or not.

sub unit_is_active {

    my ($unit_name) = @_;

    my $mgr = Net::DBus->system->get_service("org.freedesktop.systemd1")->get_object("/org/freedesktop/systemd1");

    my $units = $mgr->ListUnitsByNames([$unit_name]);

    my $units = busctl_call_systemd1_mgr("ListUnitsByNames", "as", 1, $unit_name)->{data}->[0];

    if (scalar(@{$units}) == 0) {

        return 0;

    }

    configurationName = config.boot.loader.grub.configurationName;

    # Needed by switch-to-configuration.

    perl = pkgs.perl.withPackages (p: with p; [ ConfigIniFiles FileSlurp NetDBus ]);

    perl = pkgs.perl.withPackages (p: with p; [ ConfigIniFiles FileSlurp ]);

  };

  # Handle assertions and warnings