src/afsinstall/lib/InstallGuides/GENERIC/unix

   1 # Copyright 2000, International Business Machines Corporation and others.
   2 # All Rights Reserved.
   3 #
   4 # This software has been released under the terms of the IBM Public
   5 # License.  For details, see the LICENSE file in the top-level source
   6 # directory or online at http://www.openafs.org/dl/license10.html
   7
   8 # An InstallGuide for the unix remote commands
   9 #
  10
  11 sub unix {
  12   # append the ta-rauth to the services file
  13   $Services = "/etc/services";
  14   &ErrorsAreFatal(1);
  15   &Patch::Verbose if ($InstallVerbose);
  16   &Patch::FileOpen($Services);
  17
  18   $ServicesAppend = "ta-rauth   601/tcp rauth";
  19
  20   if (!&Patch::Patch($Services, [[0, "EOF", "", $ServicesAppend]])) {
  21     &ErrorMsg("Did not succeed with patch", $Services);
  22   }
  23 }