123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768 |
- #!/usr/bin/perl --
- use strict;
- use warnings;
- my $admindir = "/var/lib/dpkg"; # This line modified by Makefile
- my $dpkglibdir = "../utils"; # This line modified by Makefile
- my $version = '0.93.80'; # This line modified by Makefile
- push (@INC, $dpkglibdir);
- require 'dpkg-gettext.pl';
- textdomain("dpkg");
- ($0) = $0 =~ m:.*/(.+):;
- # Global variables:
- my $altdir = '/etc/alternatives';
- # FIXME: this should not override the previous assignment.
- $admindir = $admindir . '/alternatives';
- my $testmode = 0;
- my $verbosemode = 0;
- my $action = ''; # Action to perform (display / install / remove / display / auto / config)
- my $mode = 'auto'; # Update mode for alternative (manual / auto)
- my $state; # State of alternative:
- # expected: alternative with highest priority is the active alternative
- # expected-inprogress: busy selecting alternative with highest priority
- # unexpected: alternative another alternative is active / error during readlink
- # nonexistent: alternative-symlink does not exist
- my %versionnum; # Map from currently available versions into @versions and @priorities
- my @versions; # List of available versions for alternative
- my @priorities; # Map from @version-index to priority
- my $best;
- my $bestpri;
- my $bestnum;
- my $link; # Link we are working with
- my $linkname;
- my $alink; # Alternative we are managing (ie the symlink we're making/removing) (install only)
- my $name; # Name of the alternative (the symlink) we are processing
- my $apath; # Path of alternative we are offering
- my $apriority; # Priority of link (only when we are installing an alternative)
- my %aslavelink;
- my %aslavepath;
- my %aslavelinkcount;
- my $slink;
- my $sname;
- my $spath;
- my @slavenames; # List with names of slavelinks
- my %slavenum; # Map from name of slavelink to slave-index (into @slavelinks)
- my @slavelinks; # List of slavelinks (indexed by slave-index)
- my %slavepath; # Map from (@version-index,slavename) to slave-path
- my %slavelinkcount;
- my $enoent = `$dpkglibdir/enoent` || die sprintf(_g("Cannot get ENOENT value from %s: %s"), "$dpkglibdir/enoent", $!);
- sub ENOENT { $enoent; }
- sub version {
- printf _g("Debian %s version %s.\n"), $0, $version;
- printf _g("
- Copyright (C) 1995 Ian Jackson.
- Copyright (C) 2000-2002 Wichert Akkerman.");
- printf _g("
- This is free software; see the GNU General Public Licence version 2 or
- later for copying conditions. There is NO warranty.
- ");
- }
- sub usage {
- printf _g(
- "Usage: %s [<option> ...] <command>
- Commands:
- --install <link> <name> <path> <priority>
- [--slave <link> <name> <path>] ...
- add a group of alternatives to the system.
- --remove <name> <path> remove <path> from the <name> group alternative.
- --remove-all <name> remove <name> group from the alternatives system.
- --auto <name> switch the master link <name> to automatic mode.
- --display <name> display information about the <name> group.
- --list <name> display all targets of the <name> group.
- --config <name> show alternatives for the <name> group and ask the
- user to select which one to use.
- --set <name> <path> set <path> as alternative for <name>.
- --all call --config on all alternatives.
- <link> is the symlink pointing to %s/<name>.
- (e.g. /usr/bin/pager)
- <name> is the master name for this link group.
- (e.g. pager)
- <path> is the location of one of the alternative target files.
- (e.g. /usr/bin/less)
- <priority> is an integer; options with higher numbers have higher priority in
- automatic mode.
- Options:
- --altdir <directory> change the alternatives directory.
- --admindir <directory> change the administrative directory.
- --test don't do anything, just demonstrate.
- --verbose verbose operation, more output.
- --quiet quiet operation, minimal output.
- --help show this help message.
- --version show the version.
- "), $0, $altdir;
- }
- sub quit
- {
- printf STDERR "%s: %s\n", $0, "@_";
- exit(2);
- }
- sub badusage
- {
- printf STDERR "%s: %s\n\n", $0, "@_";
- &usage;
- exit(2);
- }
- sub read_link_group
- {
- if (open(AF, "$admindir/$name")) {
- $mode = gl("update_mode");
- $mode eq 'auto' || $mode eq 'manual' || badfmt(_g("invalid update mode"));
- $link = gl("link");
- while (($sname = gl("sname")) ne '') {
- push(@slavenames, $sname);
- defined($slavenum{$sname}) && badfmt(sprintf(_g("duplicate slave %s"), $sname));
- $slavenum{$sname} = $#slavenames;
- $slink = gl("slink");
- $slink eq $link && badfmt(sprintf(_g("slave link same as main link %s"), $link));
- $slavelinkcount{$slink}++ && badfmt(sprintf(_g("duplicate slave link %s"), $slink));
- push(@slavelinks, $slink);
- }
- while (($version = gl("version")) ne '') {
- defined($versionnum{$version}) && badfmt(sprintf(_g("duplicate path %s"), $version));
- if (-r $version) {
- push(@versions, $version);
- my $i;
- $versionnum{$version} = $i = $#versions;
- my $priority = gl("priority");
- $priority =~ m/^[-+]?\d+$/ || badfmt(sprintf(_g("priority %s %s"), $version, $priority));
- $priorities[$i] = $priority;
- for (my $j = 0; $j <= $#slavenames; $j++) {
- $slavepath{$i,$j} = gl("spath");
- }
- } else {
- # File not found - remove
- pr(sprintf(_g("Alternative for %s points to %s - which wasn't found. Removing from list of alternatives."), $name, $version))
- if $verbosemode > 0;
- gl("priority");
- for (my $j = 0; $j <= $#slavenames; $j++) {
- gl("spath");
- }
- }
- }
- close(AF);
- return 0;
- } elsif ($! != ENOENT) {
- quit(sprintf(_g("unable to open %s: %s"), "$admindir/$name", $!));
- } elsif ($! == ENOENT) {
- return 1;
- }
- }
- sub fill_missing_slavepaths()
- {
- for (my $j = 0; $j <= $#slavenames; $j++) {
- for (my $i = 0; $i <= $#versions; $i++) {
- $slavepath{$i,$j} = '' if !defined $slavepath{$i,$j};
- }
- }
- }
- sub find_best_version
- {
- $best = '';
- for (my $i = 0; $i <= $#versions; $i++) {
- if ($best eq '' || $priorities[$i] > $bestpri) {
- $best = $versions[$i];
- $bestpri = $priorities[$i];
- $bestnum = $i;
- }
- }
- }
- sub display_link_group
- {
- pr(sprintf(_g("%s - status is %s."), $name, $mode));
- $linkname = readlink("$altdir/$name");
- if (defined($linkname)) {
- pr(sprintf(_g(" link currently points to %s"), $linkname));
- } elsif ($! == ENOENT) {
- pr(_g(" link currently absent"));
- } else {
- pr(sprintf(_g(" link unreadable - %s"), $!));
- }
- for (my $i = 0; $i <= $#versions; $i++) {
- pr(sprintf(_g("%s - priority %s"), $versions[$i], $priorities[$i]));
- for (my $j = 0; $j <= $#slavenames; $j++) {
- my $tspath = $slavepath{$i, $j};
- next unless length($tspath);
- pr(sprintf(_g(" slave %s: %s"), $slavenames[$j], $tspath));
- }
- }
- if ($best eq '') {
- pr(_g("No versions available."));
- } else {
- pr(sprintf(_g("Current \`best' version is %s."), $best));
- }
- }
- sub list_link_group
- {
- for (my $i = 0; $i <= $#versions; $i++) {
- pr("$versions[$i]");
- }
- }
- sub check_many_actions()
- {
- return unless $action;
- badusage(sprintf(_g("two commands specified: %s and --%s"), $_, $action));
- }
- #
- # Main program
- #
- $| = 1;
- while (@ARGV) {
- $_= shift(@ARGV);
- last if m/^--$/;
- if (!m/^--/) {
- &quit(sprintf(_g("unknown argument \`%s'"), $_));
- } elsif (m/^--help$/) {
- &usage; exit(0);
- } elsif (m/^--version$/) {
- &version; exit(0);
- } elsif (m/^--test$/) {
- $testmode= 1;
- } elsif (m/^--verbose$/) {
- $verbosemode= +1;
- } elsif (m/^--quiet$/) {
- $verbosemode= -1;
- } elsif (m/^--install$/) {
- check_many_actions();
- @ARGV >= 4 || &badusage(_g("--install needs <link> <name> <path> <priority>"));
- ($alink,$name,$apath,$apriority,@ARGV) = @ARGV;
- $apriority =~ m/^[-+]?\d+/ || &badusage(_g("priority must be an integer"));
- $action = 'install';
- } elsif (m/^--(remove|set)$/) {
- check_many_actions();
- @ARGV >= 2 || &badusage(sprintf(_g("--%s needs <name> <path>"), $1));
- ($name,$apath,@ARGV) = @ARGV;
- $action = $1;
- } elsif (m/^--(display|auto|config|list|remove-all)$/) {
- check_many_actions();
- @ARGV || &badusage(sprintf(_g("--%s needs <name>"), $1));
- $action = $1;
- $name= shift(@ARGV);
- } elsif (m/^--slave$/) {
- @ARGV >= 3 || &badusage(_g("--slave needs <link> <name> <path>"));
- ($slink,$sname,$spath,@ARGV) = @ARGV;
- defined($aslavelink{$sname}) && &badusage(sprintf(_g("slave name %s duplicated"), $sname));
- $aslavelinkcount{$slink}++ && &badusage(sprintf(_g("slave link %s duplicated"), $slink));
- $aslavelink{$sname}= $slink;
- $aslavepath{$sname}= $spath;
- } elsif (m/^--altdir$/) {
- @ARGV || &badusage(sprintf(_g("--%s needs a <directory> argument"), "altdir"));
- $altdir= shift(@ARGV);
- } elsif (m/^--admindir$/) {
- @ARGV || &badusage(sprintf(_g("--%s needs a <directory> argument"), "admindir"));
- $admindir= shift(@ARGV);
- } elsif (m/^--all$/) {
- $action = 'all';
- } else {
- &badusage(sprintf(_g("unknown option \`%s'"), $_));
- }
- }
- defined($name) && defined($aslavelink{$name}) &&
- badusage(sprintf(_g("name %s is both primary and slave"), $name));
- defined($alink) && $aslavelinkcount{$alink} &&
- badusage(sprintf(_g("link %s is both primary and slave"), $alink));
- $action ||
- badusage(_g("need --display, --config, --set, --install, --remove, --all, --remove-all or --auto"));
- $action eq 'install' || !%aslavelink ||
- badusage(_g("--slave only allowed with --install"));
- if ($action eq 'all') {
- &config_all();
- exit 0;
- }
- if (read_link_group()) {
- if ($action eq 'remove') {
- # FIXME: Be consistent for now with the case when we try to remove a
- # non-existing path from an existing link group file.
- exit 0;
- } elsif ($action ne 'install') {
- pr(sprintf(_g("No alternatives for %s."), $name));
- exit 1;
- }
- }
- if ($action eq 'display') {
- find_best_version();
- display_link_group();
- exit 0;
- }
- if ($action eq 'list') {
- list_link_group();
- exit 0;
- }
- find_best_version();
- if ($action eq 'config') {
- config_alternatives($name);
- }
- if ($action eq 'set') {
- set_alternatives($name);
- }
- if (defined($linkname= readlink("$altdir/$name"))) {
- if ($linkname eq $best) {
- $state= 'expected';
- } elsif (defined(readlink("$altdir/$name.dpkg-tmp"))) {
- $state= 'expected-inprogress';
- } else {
- $state= 'unexpected';
- }
- } elsif ($! == &ENOENT) {
- $state= 'nonexistent';
- } else {
- $state= 'unexpected';
- }
- # Possible values for:
- # $mode manual, auto
- # $state expected, expected-inprogress, unexpected, nonexistent
- # $action auto, install, remove, remove-all
- # all independent
- if ($action eq 'auto') {
- &pr(sprintf(_g("Setting up automatic selection of %s."), $name))
- if $verbosemode > 0;
- unlink("$altdir/$name.dpkg-tmp") || $! == &ENOENT ||
- &quit(sprintf(_g("unable to remove %s: %s"), "$altdir/$name.dpkg-tmp", $!));
- unlink("$altdir/$name") || $! == &ENOENT ||
- &quit(sprintf(_g("unable to remove %s: %s"), "$altdir/$name", $!));
- $state= 'nonexistent';
- $mode = 'auto';
- }
- # $mode manual, auto
- # $state expected, expected-inprogress, unexpected, nonexistent
- # $action auto, install, remove
- # action=auto <=> state=nonexistent
- if ($state eq 'unexpected' && $mode eq 'auto') {
- &pr(sprintf(_g("%s has been changed (manually or by a script).\n".
- "Switching to manual updates only."), "$altdir/$name"))
- if $verbosemode > 0;
- $mode = 'manual';
- }
- # $mode manual, auto
- # $state expected, expected-inprogress, unexpected, nonexistent
- # $action auto, install, remove
- # action=auto <=> state=nonexistent
- # state=unexpected => mode=manual
- &pr(sprintf(_g("Checking available versions of %s, updating links in %s ...\n".
- "(You may modify the symlinks there yourself if desired - see \`man ln'.)"), $name, $altdir))
- if $verbosemode > 0;
- if ($action eq 'install') {
- if (defined($link) && $link ne $alink) {
- &pr(sprintf(_g("Renaming %s link from %s to %s."), $name, $link, $alink))
- if $verbosemode > 0;
- rename_mv($link,$alink) || $! == &ENOENT ||
- &quit(sprintf(_g("unable to rename %s to %s: %s"), $link, $alink, $!));
- }
- $link= $alink;
- my $i;
- if (!defined($i= $versionnum{$apath})) {
- push(@versions,$apath);
- $versionnum{$apath}= $i= $#versions;
- }
- $priorities[$i]= $apriority;
- for $sname (keys %aslavelink) {
- my $j;
- if (!defined($j= $slavenum{$sname})) {
- push(@slavenames,$sname);
- $slavenum{$sname}= $j= $#slavenames;
- }
- my $oldslavelink = $slavelinks[$j];
- my $newslavelink = $aslavelink{$sname};
- $slavelinkcount{$oldslavelink}-- if defined($oldslavelink);
- $slavelinkcount{$newslavelink}++ &&
- &quit(sprintf(_g("slave link name %s duplicated"), $newslavelink));
- if (defined($oldslavelink) && $newslavelink ne $oldslavelink) {
- &pr(sprintf(_g("Renaming %s slave link from %s to %s."), $sname, $oldslavelink, $newslavelink))
- if $verbosemode > 0;
- rename_mv($oldslavelink,$newslavelink) || $! == &ENOENT ||
- &quit(sprintf(_g("unable to rename %s to %s: %s"), $oldslavelink, $newslavelink, $!));
- }
- $slavelinks[$j]= $newslavelink;
- }
- for (my $j = 0; $j <= $#slavenames; $j++) {
- $slavepath{$i,$j}= $aslavepath{$slavenames[$j]};
- }
- fill_missing_slavepaths();
- }
- if ($action eq 'remove') {
- my $hits = 0;
- if ($mode eq "manual" and $state ne "expected" and (map { $hits += $apath eq $_ } @versions) and $hits and $linkname eq $apath) {
- &pr(_g("Removing manually selected alternative - switching to auto mode"));
- $mode = "auto";
- }
- if (defined(my $i = $versionnum{$apath})) {
- my $k = $#versions;
- $versionnum{$versions[$k]}= $i;
- delete $versionnum{$versions[$i]};
- $versions[$i]= $versions[$k]; $#versions--;
- $priorities[$i]= $priorities[$k]; $#priorities--;
- for (my $j = 0; $j <= $#slavenames; $j++) {
- $slavepath{$i,$j}= $slavepath{$k,$j};
- delete $slavepath{$k,$j};
- }
- } else {
- &pr(sprintf(_g("Alternative %s for %s not registered, not removing."), $apath, $name))
- if $verbosemode > 0;
- }
- }
- if ($action eq 'remove-all') {
- $mode = "auto";
- my $k = $#versions;
- for (my $i = 0; $i <= $#versions; $i++) {
- $k--;
- delete $versionnum{$versions[$i]};
- $#priorities--;
- for (my $j = 0; $j <= $#slavenames; $j++) {
- $slavepath{$i,$j}= $slavepath{$k,$j};
- delete $slavepath{$k,$j};
- }
- }
- $#versions=$k;
- }
- for (my $j = 0; $j <= $#slavenames; $j++) {
- my $i;
- for ($i = 0; $i <= $#versions; $i++) {
- last if $slavepath{$i,$j} ne '';
- }
- if ($i > $#versions) {
- &pr(sprintf(_g("Discarding obsolete slave link %s (%s)."), $slavenames[$j], $slavelinks[$j]))
- if $verbosemode > 0;
- unlink("$altdir/$slavenames[$j]") || $! == &ENOENT ||
- &quit(sprintf(_g("unable to remove %s: %s"), "$altdir/$slavenames[$j]", $!));
- unlink($slavelinks[$j]) || $! == &ENOENT ||
- &quit(sprintf(_g("unable to remove %s: %s"), $slavelinks[$j], $!));
- my $k = $#slavenames;
- $slavenum{$slavenames[$k]}= $j;
- delete $slavenum{$slavenames[$j]};
- $slavelinkcount{$slavelinks[$j]}--;
- $slavenames[$j]= $slavenames[$k]; $#slavenames--;
- $slavelinks[$j]= $slavelinks[$k]; $#slavelinks--;
- for (my $i = 0; $i <= $#versions; $i++) {
- $slavepath{$i,$j}= $slavepath{$i,$k};
- delete $slavepath{$i,$k};
- }
- $j--;
- }
- }
-
- if ($mode eq 'manual') {
- &pr(sprintf(_g("Automatic updates of %s are disabled, leaving it alone."), "$altdir/$name"))
- if $verbosemode > 0;
- &pr(sprintf(_g("To return to automatic updates use \`update-alternatives --auto %s'."), $name))
- if $verbosemode > 0;
- } else {
- if ($state eq 'expected-inprogress') {
- &pr(sprintf(_g("Recovering from previous failed update of %s ..."), $name));
- rename_mv("$altdir/$name.dpkg-tmp","$altdir/$name") ||
- &quit(sprintf(_g("unable to rename %s to %s: %s"), "$altdir/$name.dpkg-tmp", "$altdir/$name", $!));
- $state= 'expected';
- }
- }
- # $mode manual, auto
- # $state expected, expected-inprogress, unexpected, nonexistent
- # $action auto, install, remove
- # action=auto <=> state=nonexistent
- # state=unexpected => mode=manual
- # mode=auto => state!=expected-inprogress && state!=unexpected
- open(AF,">$admindir/$name.dpkg-new") ||
- &quit(sprintf(_g("unable to open %s for write: %s"), "$admindir/$name.dpkg-new", $!));
- paf($mode);
- &paf($link);
- for (my $j = 0; $j <= $#slavenames; $j++) {
- &paf($slavenames[$j]);
- &paf($slavelinks[$j]);
- }
- find_best_version();
- &paf('');
- for (my $i = 0; $i <= $#versions; $i++) {
- &paf($versions[$i]);
- &paf($priorities[$i]);
- for (my $j = 0; $j <= $#slavenames; $j++) {
- &paf($slavepath{$i,$j});
- }
- }
- &paf('');
- close(AF) || &quit(sprintf(_g("unable to close %s: %s"), "$admindir/$name.dpkg-new", $!));
- if ($mode eq 'auto') {
- if ($best eq '') {
- &pr(sprintf(_g("Last package providing %s (%s) removed, deleting it."), $name, $link))
- if $verbosemode > 0;
- unlink("$altdir/$name") || $! == &ENOENT ||
- &quit(sprintf(_g("unable to remove %s: %s"), "$altdir/$name", $!));
- unlink("$link") || $! == &ENOENT ||
- &quit(sprintf(_g("unable to remove %s: %s"), "$link", $!));
- unlink("$admindir/$name.dpkg-new") ||
- &quit(sprintf(_g("unable to remove %s: %s"), "$admindir/$name.dpkg-new", $!));
- unlink("$admindir/$name") || $! == &ENOENT ||
- &quit(sprintf(_g("unable to remove %s: %s"), "$admindir/$name", $!));
- exit(0);
- } else {
- $linkname = readlink($link);
- if (!defined($linkname) && $! != ENOENT) {
- &pr(sprintf(_g("warning: %s is supposed to be a symlink to %s\n".
- " (or nonexistent); however, readlink failed: %s"), $link, "$altdir/$name", $!))
- if $verbosemode > 0;
- } elsif (!defined($linkname) ||
- (defined($linkname) && $linkname ne "$altdir/$name")) {
- unlink("$link.dpkg-tmp") || $! == &ENOENT ||
- &quit(sprintf(_g("unable to ensure %s nonexistent: %s"), "$link.dpkg-tmp", $!));
- symlink("$altdir/$name","$link.dpkg-tmp") ||
- &quit(sprintf(_g("unable to make %s a symlink to %s: %s"), "$link.dpkg-tmp", "$altdir/$name", $!));
- rename_mv("$link.dpkg-tmp",$link) ||
- &quit(sprintf(_g("unable to install %s as %s: %s"), "$link.dpkg-tmp", $link, $!));
- }
- if (defined($linkname= readlink("$altdir/$name")) && $linkname eq $best) {
- &pr(sprintf(_g("Leaving %s (%s) pointing to %s."), $name, $link, $best))
- if $verbosemode > 0;
- } else {
- &pr(sprintf(_g("Updating %s (%s) to point to %s."), $name, $link, $best))
- if $verbosemode > 0;
- }
- unlink("$altdir/$name.dpkg-tmp") || $! == &ENOENT ||
- &quit(sprintf(_g("unable to ensure %s nonexistent: %s"), "$altdir/$name.dpkg-tmp", $!));
- symlink($best,"$altdir/$name.dpkg-tmp");
- }
- }
- rename_mv("$admindir/$name.dpkg-new","$admindir/$name") ||
- &quit(sprintf(_g("unable to rename %s to %s: %s"), "$admindir/$name.dpkg-new", "$admindir/$name", $!));
- if ($mode eq 'auto') {
- rename_mv("$altdir/$name.dpkg-tmp","$altdir/$name") ||
- &quit(sprintf(_g("unable to install %s as %s: %s"), "$altdir/$name.dpkg-tmp", "$altdir/$name", $!));
- for (my $j = 0; $j <= $#slavenames; $j++) {
- $sname= $slavenames[$j];
- $slink= $slavelinks[$j];
- $linkname = readlink($slink);
- if (!defined($linkname) && $! != ENOENT) {
- &pr(sprintf(_g("warning: %s is supposed to be a slave symlink to\n".
- " %s, or nonexistent; however, readlink failed: %s"), $slink, "$altdir/$sname", $!))
- if $verbosemode > 0;
- } elsif (!defined($linkname) ||
- (defined($linkname) && $linkname ne "$altdir/$sname")) {
- unlink("$slink.dpkg-tmp") || $! == &ENOENT ||
- &quit(sprintf(_g("unable to ensure %s nonexistent: %s"), "$slink.dpkg-tmp", $!));
- symlink("$altdir/$sname","$slink.dpkg-tmp") ||
- &quit(sprintf(_g("unable to make %s a symlink to %s: %s"), "$slink.dpkg-tmp", "$altdir/$sname", $!));
- rename_mv("$slink.dpkg-tmp",$slink) ||
- &quit(sprintf(_g("unable to install %s as %s: %s"), "$slink.dpkg-tmp", $slink, $!));
- }
- $spath= $slavepath{$bestnum,$j};
- unlink("$altdir/$sname.dpkg-tmp") || $! == &ENOENT ||
- &quit(sprintf(_g("unable to ensure %s nonexistent: %s"), "$altdir/$sname.dpkg-tmp", $!));
- if ($spath eq '') {
- &pr(sprintf(_g("Removing %s (%s), not appropriate with %s."), $sname, $slink, $best))
- if $verbosemode > 0;
- unlink("$altdir/$sname") || $! == &ENOENT ||
- &quit(sprintf(_g("unable to remove %s: %s"), "$altdir/$sname", $!));
- unlink("$slink") || $! == &ENOENT ||
- &quit(sprintf(_g("unable to remove %s: %s"), $slink, $!));
- } else {
- if (defined($linkname= readlink("$altdir/$sname")) && $linkname eq $spath) {
- &pr(sprintf(_g("Leaving %s (%s) pointing to %s."), $sname, $slink, $spath))
- if $verbosemode > 0;
- } else {
- &pr(sprintf(_g("Updating %s (%s) to point to %s."), $sname, $slink, $spath))
- if $verbosemode > 0;
- }
- symlink("$spath","$altdir/$sname.dpkg-tmp") ||
- &quit(sprintf(_g("unable to make %s a symlink to %s: %s"), "$altdir/$sname.dpkg-tmp", $spath, $!));
- rename_mv("$altdir/$sname.dpkg-tmp","$altdir/$sname") ||
- &quit(sprintf(_g("unable to install %s as %s: %s"), "$altdir/$sname.dpkg-tmp", "$altdir/$sname", $!));
- }
- }
- }
- sub config_message {
- if ($#versions < 0) {
- print "\n";
- printf _g("There is no program which provides %s.\n".
- "Nothing to configure.\n"), $name;
- return -1;
- }
- if ($#versions == 0) {
- print "\n";
- printf _g("There is only 1 program which provides %s\n".
- "(%s). Nothing to configure.\n"), $name, $versions[0];
- return -1;
- }
- print STDOUT "\n";
- printf(STDOUT _g("There are %s alternatives which provide \`%s'.\n\n".
- " Selection Alternative\n".
- "-----------------------------------------------\n"),
- $#versions+1, $name);
- for (my $i = 0; $i <= $#versions; $i++) {
- printf(STDOUT "%s%s %8s %s\n",
- (readlink("$altdir/$name") eq $versions[$i]) ? '*' : ' ',
- ($best eq $versions[$i]) ? '+' : ' ',
- $i+1, $versions[$i]);
- }
- printf(STDOUT "\n"._g("Press enter to keep the default[*], or type selection number: "));
- return 0;
- }
- sub config_alternatives {
- my $preferred;
- do {
- return if config_message() < 0;
- $preferred=<STDIN>;
- chop($preferred);
- } until $preferred eq '' || $preferred>=1 && $preferred<=$#versions+1 &&
- ($preferred =~ m/[0-9]*/);
- if ($preferred ne '') {
- $mode = "manual";
- $preferred--;
- printf STDOUT _g("Using \`%s' to provide \`%s'.")."\n", $versions[$preferred], $name;
- my $spath = $versions[$preferred];
- symlink("$spath","$altdir/$name.dpkg-tmp") ||
- &quit(sprintf(_g("unable to make %s a symlink to %s: %s"), "$altdir/$name.dpkg-tmp", $spath, $!));
- rename_mv("$altdir/$name.dpkg-tmp","$altdir/$name") ||
- &quit(sprintf(_g("unable to install %s as %s: %s"), "$altdir/$name.dpkg-tmp", "$altdir/$name", $!));
- # Link slaves...
- for( my $slnum = 0; $slnum < @slavenames; $slnum++ ) {
- my $slave = $slavenames[$slnum];
- if ($slavepath{$preferred,$slnum} ne '') {
- checked_symlink($slavepath{$preferred,$slnum},
- "$altdir/$slave.dpkg-tmp");
- checked_mv("$altdir/$slave.dpkg-tmp", "$altdir/$slave");
- } else {
- &pr(sprintf(_g("Removing %s (%s), not appropriate with %s."), $slave, $slavelinks[$slnum], $versions[$preferred]))
- if $verbosemode > 0;
- unlink("$altdir/$slave") || $! == &ENOENT ||
- &quit(sprintf(_g("unable to remove %s: %s"), "$altdir/$slave", $!));
- }
- }
- }
- }
- sub set_alternatives {
- $mode = "manual";
- # Get prefered number
- my $preferred = -1;
- for (my $i = 0; $i <= $#versions; $i++) {
- if($versions[$i] eq $apath) {
- $preferred = $i;
- last;
- }
- }
- if($preferred == -1){
- &quit(sprintf(_g("Cannot find alternative `%s'."), $apath)."\n")
- }
- printf STDOUT _g("Using \`%s' to provide \`%s'.")."\n", $apath, $name;
- symlink("$apath","$altdir/$name.dpkg-tmp") ||
- &quit(sprintf(_g("unable to make %s a symlink to %s: %s"), "$altdir/$name.dpkg-tmp", $apath, $!));
- rename_mv("$altdir/$name.dpkg-tmp","$altdir/$name") ||
- &quit(sprintf(_g("unable to install %s as %s: %s"), "$altdir/$name.dpkg-tmp", "$altdir/$name", $!));
- # Link slaves...
- for (my $slnum = 0; $slnum < @slavenames; $slnum++ ) {
- my $slave = $slavenames[$slnum];
- if ($slavepath{$preferred,$slnum} ne '') {
- checked_symlink($slavepath{$preferred,$slnum},
- "$altdir/$slave.dpkg-tmp");
- checked_mv("$altdir/$slave.dpkg-tmp", "$altdir/$slave");
- } else {
- &pr(sprintf(_g("Removing %s (%s), not appropriate with %s."), $slave, $slavelinks[$slnum], $versions[$preferred]))
- if $verbosemode > 0;
- unlink("$altdir/$slave") || $! == &ENOENT ||
- &quit(sprintf(_g("unable to remove %s: %s"), "$altdir/$slave", $!));
- }
- }
- }
- sub pr { print(STDOUT "@_\n") || &quit(sprintf(_g("error writing stdout: %s"), $!)); }
- sub paf {
- $_[0] =~ m/\n/ && &quit(sprintf(_g("newlines prohibited in update-alternatives files (%s)"), $_[0]));
- print(AF "$_[0]\n") || &quit(sprintf(_g("error writing stdout: %s"), $!));
- }
- sub gl {
- $!=0; $_= <AF>;
- length($_) || &quit(sprintf(_g("error or eof reading %s for %s (%s)"), "$admindir/$name", $_[0], $!));
- s/\n$// || &badfmt(sprintf(_g("missing newline after %s"), $_[0]));
- $_;
- }
- sub badfmt {
- &quit(sprintf(_g("internal error: %s corrupt: %s"), "$admindir/$name", $_[0]));
- }
- sub rename_mv {
- return (rename($_[0], $_[1]) || (system(("mv", $_[0], $_[1])) == 0));
- }
- sub checked_symlink {
- my ($filename, $linkname) = @_;
- symlink($filename, $linkname) ||
- &quit(sprintf(_g("unable to make %s a symlink to %s: %s"), $linkname, $filename, $!));
- }
- sub checked_mv {
- my ($source, $dest) = @_;
- rename_mv($source, $dest) ||
- &quit(sprintf(_g("unable to install %s as %s: %s"), $source, $dest, $!));
- }
- sub config_all {
- opendir ADMINDIR, $admindir or die sprintf(_g("Serious problem: %s"), $!);
- my @filenames = grep !/^\.\.?$/, readdir ADMINDIR;
- close ADMINDIR;
- foreach my $name (@filenames) {
- system "$0 --config $name";
- exit $? if $?;
- }
- }
- exit(0);
- # vim: nowrap ts=8 sw=4
|