bike/gbootroot
1
0
Fork 0
mirror of https://github.com/fspc/gbootroot.git synced 2025-02-22 00:23:28 -05:00
Code Issues Projects Releases Wiki Activity

Improves some text, and adds a correction to the alternatives generation.

Browse Source
This commit is contained in:
freesource 2001-08-24 02:48:47 +00:00
parent 80d4fe2172
commit f9879d831e
1 changed files with 15 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
yard/scripts/make_debian
View File

@ -198,7 +198,7 @@ my $stuff = << "STUFF";
/etc/resolv.conf
/etc/hosts <= Replacements/etc/hosts
/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-post-down.d # ""
/etc/network/if-pre-up.d # ""
@ -340,9 +340,14 @@ print DEBIAN status_info_divert();
print DEBIAN "\n# Alternative stuff.\n";
foreach (@alternatives) {
if ($alternatives{$_}) {
print DEBIAN "/etc/alternatives/", $alternatives{$_}, "\n";
print DEBIAN "/var/lib/dpkg/alternatives/", $alternatives{$_}, "\n";
print DEBIAN dirname($_), "/", $alternatives{$_}, "\n";
foreach my $alt ( 0 .. $#{ $alternatives{$_} } ) {
print DEBIAN "/etc/alternatives/",
$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(" -> ");
chomp $right;
$left =~ s/^.*\d+\s//g;
$alternatives{$right} = $left;
if (!$alternatives{$right}) {
$alternatives{$right} = [$left];
}
else {
push @{ $alternatives {$right} }, $left;
}
}
}
close(LS);