mirror of
https://github.com/fspc/gbootroot.git
synced 2025-04-04 07:43:22 -04:00
Improves some text, and adds a correction to the alternatives generation.
This commit is contained in:
parent
80d4fe2172
commit
f9879d831e
@ -198,7 +198,7 @@ my $stuff = << "STUFF";
|
|||||||
/etc/resolv.conf
|
/etc/resolv.conf
|
||||||
/etc/hosts <= Replacements/etc/hosts
|
/etc/hosts <= Replacements/etc/hosts
|
||||||
/root/umlnet <= Replacements/root/umlnet # Example network setup script
|
/root/umlnet <= Replacements/root/umlnet # Example network setup script
|
||||||
/etc/network <= Replacements/etc/network
|
/etc/networks <= Replacements/etc/networks
|
||||||
/etc/network/if-down.d # empty
|
/etc/network/if-down.d # empty
|
||||||
/etc/network/if-post-down.d # ""
|
/etc/network/if-post-down.d # ""
|
||||||
/etc/network/if-pre-up.d # ""
|
/etc/network/if-pre-up.d # ""
|
||||||
@ -340,9 +340,14 @@ print DEBIAN status_info_divert();
|
|||||||
print DEBIAN "\n# Alternative stuff.\n";
|
print DEBIAN "\n# Alternative stuff.\n";
|
||||||
foreach (@alternatives) {
|
foreach (@alternatives) {
|
||||||
if ($alternatives{$_}) {
|
if ($alternatives{$_}) {
|
||||||
print DEBIAN "/etc/alternatives/", $alternatives{$_}, "\n";
|
foreach my $alt ( 0 .. $#{ $alternatives{$_} } ) {
|
||||||
print DEBIAN "/var/lib/dpkg/alternatives/", $alternatives{$_}, "\n";
|
print DEBIAN "/etc/alternatives/",
|
||||||
print DEBIAN dirname($_), "/", $alternatives{$_}, "\n";
|
$alternatives{$_}[$alt], "\n";
|
||||||
|
print DEBIAN "/var/lib/dpkg/alternatives/",
|
||||||
|
$alternatives{$_}[$alt], "\n";
|
||||||
|
print DEBIAN dirname($_), "/",
|
||||||
|
$alternatives{$_}[$alt], "\n";
|
||||||
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
@ -491,7 +496,12 @@ sub alternatives {
|
|||||||
my($left,$right) = split(" -> ");
|
my($left,$right) = split(" -> ");
|
||||||
chomp $right;
|
chomp $right;
|
||||||
$left =~ s/^.*\d+\s//g;
|
$left =~ s/^.*\d+\s//g;
|
||||||
$alternatives{$right} = $left;
|
if (!$alternatives{$right}) {
|
||||||
|
$alternatives{$right} = [$left];
|
||||||
|
}
|
||||||
|
else {
|
||||||
|
push @{ $alternatives {$right} }, $left;
|
||||||
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
close(LS);
|
close(LS);
|
||||||
|
Loading…
x
Reference in New Issue
Block a user