home *** CD-ROM | disk | FTP | other *** search
/ H4CK3R 4 / hacker04 / 04_HACK04.ISO / darwin / darwinx86.iso / usr / sbin / update-alternatives < prev    next >
Encoding:
Text File  |  2001-09-18  |  15.7 KB  |  430 lines
  1. #! /usr/bin/perl --
  2.  
  3. #use POSIX; &ENOENT;
  4. sub ENOENT { 2; }
  5. # Sorry about this, but POSIX.pm isn't necessarily available
  6.  
  7. $version=""; # This line modified by Makefile
  8. sub usageversion {
  9.     print(STDERR <<END)
  10. Debian GNU/Linux update-alternatives $version.  Copyright (C) 1995
  11. Ian Jackson.  This is free software; see the GNU General Public Licence
  12. version 2 or later for copying conditions.  There is NO warranty.
  13.  
  14. Usage: update-alternatives --install <link> <name> <path> <priority>
  15.                           [--slave <link> <name> <path>] ...
  16.        update-alternatives --remove <name> <path>
  17.        update-alternatives --auto <name>
  18.        update-alternatives --display <name>
  19. <name> is the name in /etc/alternatives.
  20. <path> is the name referred to.
  21. <link> is the link pointing to /etc/alternatives/<name>.
  22. <priority> is an integer; options with higher numbers are chosen.
  23.  
  24. Options:  --verbose|--quiet  --test  --help  --version
  25.           --altdir <directory>  --admindir <directory>
  26. END
  27.         || &quit("failed to write usage: $!");
  28. }
  29. sub quit { print STDERR "update-alternatives: @_\n"; exit(2); }
  30. sub badusage { print STDERR "update-alternatives: @_\n\n"; &usageversion; exit(2); }
  31.  
  32. $altdir= '/etc/alternatives';
  33. $admindir= '/var/lib/dpkg/alternatives';
  34. $testmode= 0;
  35. $verbosemode= 0;
  36. $mode='';
  37. $manual= 'auto';
  38. $|=1;
  39.  
  40. sub checkmanymodes {
  41.     return unless $mode;
  42.     &badusage("two modes specified: $_ and --$mode");
  43. }
  44.  
  45. while (@ARGV) {
  46.     $_= shift(@ARGV);
  47.     last if m/^--$/;
  48.     if (!m/^--/) {
  49.         &quit("unknown argument \`$_'");
  50.     } elsif (m/^--(help|version)$/) {
  51.         &usageversion; exit(0);
  52.     } elsif (m/^--test$/) {
  53.         $testmode= 1;
  54.     } elsif (m/^--verbose$/) {
  55.         $verbosemode= +1;
  56.     } elsif (m/^--quiet$/) {
  57.         $verbosemode= -1;
  58.     } elsif (m/^--install$/) {
  59.         &checkmanymodes;
  60.         @ARGV >= 4 || &badusage("--install needs <link> <name> <path> <priority>");
  61.         ($alink,$name,$apath,$apriority,@ARGV) = @ARGV;
  62.         $apriority =~ m/^[-+]?\d+/ || &badusage("priority must be an integer");
  63.         $mode= 'install';
  64.     } elsif (m/^--remove$/) {
  65.         &checkmanymodes;
  66.         @ARGV >= 2 || &badusage("--remove needs <name> <path>");
  67.         ($name,$apath,@ARGV) = @ARGV;
  68.         $mode= 'remove';
  69.     } elsif (m/^--(display|auto)$/) {
  70.         &checkmanymodes;
  71.         @ARGV || &badusage("--$1 needs <name>");
  72.         $mode= $1;
  73.         $name= shift(@ARGV);
  74.     } elsif (m/^--slave$/) {
  75.         @ARGV >= 3 || &badusage("--slave needs <link> <name> <path>");
  76.         ($slink,$sname,$spath,@ARGV) = @ARGV;
  77.         defined($aslavelink{$sname}) && &badusage("slave name $sname duplicated");
  78.         $aslavelinkcount{$slink}++ && &badusage("slave link $slink duplicated");
  79.         $aslavelink{$sname}= $slink;
  80.         $aslavepath{$sname}= $spath;
  81.     } elsif (m/^--altdir$/) {
  82.         @ARGV || &badusage("--altdir needs a <directory> argument");
  83.         $altdir= shift(@ARGV);
  84.     } elsif (m/^--admindir$/) {
  85.         @ARGV || &badusage("--admindir needs a <directory> argument");
  86.         $admindir= shift(@ARGV);
  87.     } else {
  88.         &badusage("unknown option \`$_'");
  89.     }
  90. }
  91.  
  92. defined($aslavelink{$name}) && &badusage("name $name is both primary and slave");
  93. $aslavelinkcount{$alink} && &badusage("link $link is both primary and slave");
  94.  
  95. $mode || &badusage("need --display, --install, --remove or --auto");
  96. $mode eq 'install' || !%slavelink || &badusage("--slave only allowed with --install");
  97.  
  98. if (open(AF,"$admindir/$name")) {
  99.     $manual= &gl("manflag");
  100.     $manual eq 'auto' || $manual eq 'manual' || &badfmt("manflag");
  101.     $link= &gl("link");
  102.     while (($sname= &gl("sname")) ne '') {
  103.         push(@slavenames,$sname);
  104.         defined($slavenum{$sname}) && &badfmt("duplicate slave $tsname");
  105.         $slavenum{$sname}= $#slavenames;
  106.         $slink= &gl("slink");
  107.         $slink eq $link && &badfmt("slave link same as main link $link");
  108.         $slavelinkcount{$slink}++ && &badfmt("duplicate slave link $slink");
  109.         push(@slavelinks,$slink);
  110.     }
  111.     while (($version= &gl("version")) ne '') {
  112.         defined($versionnum{$version}) && &badfmt("duplicate path $tver");
  113.         push(@versions,$version);
  114.         $versionnum{$version}= $i= $#versions;
  115.         $priority= &gl("priority");
  116.         $priority =~ m/^[-+]?\d+$/ || &badfmt("priority $version $priority");
  117.         $priorities[$i]= $priority;
  118.         for ($j=0; $j<=$#slavenames; $j++) {
  119.             $slavepath{$i,$j}= &gl("spath");
  120.         }
  121.     }
  122.     close(AF);
  123.     $dataread=1;
  124. } elsif ($! != &ENOENT) {
  125.     &quit("failed to open $admindir/$name: $!");
  126. }
  127.  
  128. if ($mode eq 'display') {
  129.     if (!$dataread) {
  130.         &pr("No alternatives for $name.");
  131.     } else {
  132.         &pr("$name - status is $manual.");
  133.         if (defined($linkname= readlink("$altdir/$name"))) {
  134.             &pr(" link currently points to $linkname");
  135.         } elsif ($! == &ENOENT) {
  136.             &pr(" link currently absent");
  137.         } else {
  138.             &pr(" link unreadable - $!");
  139.         }
  140.         $best= '';
  141.         for ($i=0; $i<=$#versions; $i++) {
  142.             if ($best eq '' || $priorities[$i] > $bestpri) {
  143.                 $best= $versions[$i]; $bestpri= $priorities[$i];
  144.             }
  145.             &pr("$versions[$i] - priority $priorities[$i]");
  146.             for ($j=0; $j<=$#slavenames; $j++) {
  147.                 next unless length($tspath= $slavepath{$i,$j});
  148.                 &pr(" slave $slavenames[$j]: $tspath");
  149.             }
  150.         }
  151.         if ($best eq '') {
  152.             &pr("No versions available.");
  153.         } else {
  154.             &pr("Current \`best' version is $best.");
  155.         }
  156.     }
  157.     exit 0;
  158. }
  159.  
  160. $best= '';
  161. for ($i=0; $i<=$#versions; $i++) {
  162.     if ($best eq '' || $priorities[$i] > $bestpri) {
  163.         $best= $versions[$i]; $bestpri= $priorities[$i];
  164.     }
  165. }
  166.  
  167. if (defined($linkname= readlink("$altdir/$name"))) {
  168.     if ($linkname eq $best) {
  169.         $state= 'expected';
  170.     } elsif (defined($linkname2= readlink("$altdir/$name.dpkg-tmp"))) {
  171.         $state= 'expected-inprogress';
  172.     } else {
  173.         $state= 'unexpected';
  174.     }
  175. } elsif ($! == &ENOENT) {
  176.     $state= 'nonexistent';
  177. } else {
  178.     $state= 'unexpected';
  179. }
  180.  
  181. # Possible values for:
  182. #   $manual      manual, auto
  183. #   $state       expected, expected-inprogress, unexpected, nonexistent
  184. #   $mode        auto, install, remove
  185. # all independent
  186.  
  187. if ($mode eq 'auto') {
  188.     &pr("Setting up automatic selection of $name.");
  189.     unlink("$altdir/$name.dpkg-tmp") || $! == &ENOENT ||
  190.         &quit("unable to remove $altdir/$name.dpkg-tmp: $!");
  191.     unlink("$altdir/$name") || $! == &ENOENT ||
  192.         &quit("unable to remove $altdir/$name.dpkg-tmp: $!");
  193.     $state= 'nonexistent';
  194.     $manual= 'auto';
  195. } elsif ($state eq 'nonexistent') {
  196.     if ($mode eq 'manual') {
  197.         &pr("$altdir/$name has been deleted, returning to automatic selection.");
  198.         $mode= 'auto';
  199.     }
  200. }
  201.  
  202. #   $manual      manual, auto
  203. #   $state       expected, expected-inprogress, unexpected, nonexistent
  204. #   $mode        auto, install, remove
  205. # mode=auto <=> state=nonexistent
  206.  
  207. if ($state eq 'unexpected' && $manual eq 'auto') {
  208.     &pr("$altdir/$name has been changed (manually or by a script).\n".
  209.         "Switching to manual updates only.");
  210.     $manual= 'manual';
  211. }
  212.  
  213. #   $manual      manual, auto
  214. #   $state       expected, expected-inprogress, unexpected, nonexistent
  215. #   $mode        auto, install, remove
  216. # mode=auto <=> state=nonexistent
  217. # state=unexpected => manual=manual
  218.  
  219. &pr("Checking available versions of $name, updating links in $altdir ...\n".
  220.     "(You may modify the symlinks there yourself if desired - see \`man ln'.)");
  221.  
  222. if ($mode eq 'install') {
  223.     if ($link ne $alink && $link ne '') {
  224.         &pr("Renaming $name link from $link to $alink.");
  225.         rename($link,$alink) || $! == &ENOENT ||
  226.             &quit("unable to rename $link to $alink: $!");
  227.     }
  228.     $link= $alink;
  229.     if (!defined($i= $versionnum{$apath})) {
  230.         push(@versions,$apath);
  231.         $versionnum{$apath}= $i= $#versions;
  232.     }
  233.     $priorities[$i]= $apriority;
  234.     for $sname (keys %aslavelink) {
  235.         if (!defined($j= $slavenum{$sname})) {
  236.             push(@slavenames,$sname);
  237.             $slavenum{$sname}= $j= $#slavenames;
  238.         }
  239.         $oldslavelink= $slavelinks[$j];
  240.         $newslavelink= $aslavelink{$sname};
  241.         $slavelinkcount{$oldslavelink}-- if $oldslavelink ne '';
  242.         $slavelinkcount{$newslavelink}++ &&
  243.             &quit("slave link name $newslavelink duplicated");
  244.         if ($newslavelink ne $oldslavelink && $oldslavelink ne '') {
  245.             &pr("Renaming $sname slave link from $oldslavelink to $newslavelink.");
  246.             rename($oldslavelink,$newslavelink) || $! == &ENOENT ||
  247.                 &quit("unable to rename $oldslavelink to $newslavelink: $!");
  248.         }
  249.         $slavelinks[$j]= $newslavelink;
  250.     }
  251.     for ($j=0; $j<=$#slavenames; $j++) {
  252.         $slavepath{$i,$j}= $aslavepath{$slavenames[$j]};
  253.     }
  254. }
  255.  
  256. if ($mode eq 'remove') {
  257.     if (defined($i= $versionnum{$apath})) {
  258.         $k= $#versions;
  259.         $versionnum{$versions[$k]}= $i;
  260.         delete $versionnum{$versions[$i]};
  261.         $versions[$i]= $versions[$k]; $#versions--;
  262.         $priorities[$i]= $priorities[$k]; $#priorities--;
  263.         for ($j=0; $j<=$#slavenames; $j++) {
  264.             $slavepath{$i,$j}= $slavepath{$k,$j};
  265.             delete $slavepath{$k,$j};
  266.         }
  267.     } else {
  268.         &pr("Alternative $apath for $name not registered, not removing.");
  269.     }
  270. }
  271.  
  272. for ($j=0; $j<=$#slavenames; $j++) {
  273.     for ($i=0; $i<=$#versions; $i++) {
  274.         last if $slavepath{$i,$j} ne '';
  275.     }
  276.     if ($i > $#versions) {
  277.         &pr("Discarding obsolete slave link $slavenames[$j] ($slavelinks[$j]).");
  278.         unlink("$altdir/$slavenames[$j]") || $! == &ENOENT ||
  279.             &quit("unable to remove $slavenames[$j]: $!");
  280.         unlink($slavelinks[$j]) || $! == &ENOENT ||
  281.             &quit("unable to remove $slavelinks[$j]: $!");
  282.         $k= $#slavenames;
  283.         $slavenum{$slavenames[$k]}= $j;
  284.         delete $slavenum{$slavenames[$j]};
  285.         $slavelinkcount{$slavelinks[$j]}--;
  286.         $slavenames[$j]= $slavenames[$k]; $#slavenames--;
  287.         $slavelinks[$j]= $slavelinks[$k]; $#slavelinks--;
  288.         for ($i=0; $i<=$#versions; $i++) {
  289.             $slavepath{$i,$j}= $slavepath{$i,$k};
  290.             delete $slavepath{$i,$k};
  291.         }
  292.         $j--;
  293.     }
  294. }
  295.         
  296. if ($manual eq 'manual') {
  297.     &pr("Automatic updates of $altdir/$name are disabled, leaving it alone.");
  298.     &pr("To return to automatic updates use \`update-alternatives --auto $name'.");
  299. } else {
  300.     if ($state eq 'expected-inprogress') {
  301.         &pr("Recovering from previous failed update of $name ...");
  302.         rename("$altdir/$name.dpkg-tmp","$altdir/$name") ||
  303.             &quit("unable to rename $altdir/$name.dpkg-tmp to $altdir/$name: $!");
  304.         $state= 'expected';
  305.     }
  306. }
  307.  
  308. #   $manual      manual, auto
  309. #   $state       expected, expected-inprogress, unexpected, nonexistent
  310. #   $mode        auto, install, remove
  311. # mode=auto <=> state=nonexistent
  312. # state=unexpected => manual=manual
  313. # manual=auto => state!=expected-inprogress && state!=unexpected
  314.  
  315. open(AF,">$admindir/$name.dpkg-new") ||
  316.     &quit("unable to open $admindir/$name.dpkg-new for write: $!");
  317. &paf($manual);
  318. &paf($link);
  319. for ($j=0; $j<=$#slavenames; $j++) {
  320.     &paf($slavenames[$j]);
  321.     &paf($slavelinks[$j]);
  322. }
  323. &paf('');
  324. $best= '';
  325. for ($i=0; $i<=$#versions; $i++) {
  326.     if ($best eq '' || $priorities[$i] > $bestpri) {
  327.         $best= $versions[$i]; $bestpri= $priorities[$i]; $bestnum= $i;
  328.     }
  329.     &paf($versions[$i]);
  330.     &paf($priorities[$i]);
  331.     for ($j=0; $j<=$#slavenames; $j++) {
  332.         &paf($slavepath{$i,$j});
  333.     }
  334. }
  335. &paf('');
  336. close(AF) || &quit("unable to close $admindir/$name.dpkg-new: $!");
  337.  
  338. if ($manual eq 'auto') {
  339.     if ($best eq '') {
  340.         &pr("Last package providing $name ($link) removed, deleting it.");
  341.         unlink("$altdir/$name") || $! == &ENOENT ||
  342.             &quit("unable to remove $altdir/$name: $!");
  343.         unlink("$link") || $! == &ENOENT ||
  344.             &quit("unable to remove $altdir/$name: $!");
  345.         unlink("$admindir/$name.dpkg-new") ||
  346.             &quit("unable to remove $admindir/$name.dpkg-new: $!");
  347.         unlink("$admindir/$name") || $! == &ENOENT ||
  348.             &quit("unable to remove $admindir/$name: $!");
  349.         exit(0);
  350.     } else {
  351.         if (!defined($linkname= readlink($link)) && $! != &ENOENT) {
  352.             &pr("warning: $link is supposed to be a symlink to $altdir/$name\n".
  353.                 " (or nonexistent); however, readlink failed: $!");
  354.         } elsif ($linkname ne "$altdir/$name") {
  355.             unlink("$link.dpkg-tmp") || $! == &ENOENT ||
  356.                 &quit("unable to ensure $link.dpkg-tmp nonexistent: $!");
  357.             symlink("$altdir/$name","$link.dpkg-tmp") ||
  358.                 &quit("unable to make $link.dpkg-tmp a symlink to $altdir/$name: $!");
  359.             rename("$link.dpkg-tmp",$link) ||
  360.                 &quit("unable to install $link.dpkg-tmp as $link: $!");
  361.         }
  362.         if (defined($linkname= readlink("$altdir/$name")) && $linkname eq $best) {
  363.             &pr("Leaving $name ($link) pointing to $best.");
  364.         } else {
  365.             &pr("Updating $name ($link) to point to $best.");
  366.         }
  367.         unlink("$altdir/$name.dpkg-tmp") || $! == &ENOENT ||
  368.             &quit("unable to ensure $altdir/$name.dpkg-tmp nonexistent: $!");
  369.         symlink($best,"$altdir/$name.dpkg-tmp");
  370.     }
  371. }
  372.  
  373. rename("$admindir/$name.dpkg-new","$admindir/$name") ||
  374.     &quit("unable to rename $admindir/$name.dpkg-new to $admindir/$name: $!");
  375.  
  376. if ($manual eq 'auto') {
  377.     rename("$altdir/$name.dpkg-tmp","$altdir/$name") ||
  378.         &quit("unable to install $altdir/$name.dpkg-tmp as $altdir/$name");
  379.     for ($j=0; $j<=$#slavenames; $j++) {
  380.         $sname= $slavenames[$j];
  381.         $slink= $slavelinks[$j];
  382.         if (!defined($linkname= readlink($slink)) && $! != &ENOENT) {
  383.             &pr("warning: $slink is supposed to be a slave symlink to\n".
  384.                 " $altdir/$sname, or nonexistent; however, readlink failed: $!");
  385.         } elsif ($linkname ne "$altdir/$sname") {
  386.             unlink("$slink.dpkg-tmp") || $! == &ENOENT ||
  387.                 &quit("unable to ensure $slink.dpkg-tmp nonexistent: $!");
  388.             symlink("$altdir/$sname","$slink.dpkg-tmp") ||
  389.                 &quit("unable to make $slink.dpkg-tmp a symlink to $altdir/$sname: $!");
  390.             rename("$slink.dpkg-tmp",$slink) ||
  391.                 &quit("unable to install $slink.dpkg-tmp as $slink: $!");
  392.         }
  393.         $spath= $slavepath{$bestnum,$j};
  394.         unlink("$altdir/$sname.dpkg-tmp") || $! == &ENOENT ||
  395.             &quit("unable to ensure $altdir/$sname.dpkg-tmp nonexistent: $!");
  396.         if ($spath eq '') {
  397.             &pr("Removing $sname ($slink), not appropriate with $best.");
  398.             unlink("$altdir/$sname") || $! == &ENOENT ||
  399.                 &quit("unable to remove $altdir/$sname: $!");
  400.         } else {
  401.             if (defined($linkname= readlink("$altdir/$sname")) && $linkname eq $spath) {
  402.                 &pr("Leaving $sname ($slink) pointing to $spath.");
  403.             } else {
  404.                 &pr("Updating $sname ($slink) to point to $spath.");
  405.             }
  406.             symlink("$spath","$altdir/$sname.dpkg-tmp") ||
  407.                 &quit("unable to make $altdir/$sname.dpkg-tmp a symlink to $spath: $!");
  408.             rename("$altdir/$sname.dpkg-tmp","$altdir/$sname") ||
  409.                 &quit("unable to install $altdir/$sname.dpkg-tmp as $altdir/$sname: $!");
  410.         }
  411.     }
  412. }
  413.  
  414. sub pr { print(STDOUT "@_\n") || &quit("error writing stdout: $!"); }
  415. sub paf {
  416.     $_[0] =~ m/\n/ && &quit("newlines prohibited in update-alternatives files ($_[0])");
  417.     print(AF "$_[0]\n") || &quit("error writing stdout: $!");
  418. }
  419. sub gl {
  420.     $!=0; $_= <AF>;
  421.     length($_) || &quit("error or eof reading $admindir/$name for $_[0] ($!)");
  422.     s/\n$// || &badfmt("missing newline after $_[0]");
  423.     $_;
  424. }
  425. sub badfmt {
  426.     &quit("internal error: $admindir/$name corrupt: $_[0]");
  427. }
  428.  
  429. exit(0);
  430.