src/afsinstall/lib/InstallGuides/alpha_dux40/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 AFS modified Unix commands
   9 # For Alpha systems running Digital Unix 4.x and SIA
  10 #
  11
  12 sub DUXunix {
  13   &Copy("etc/inetd", "/usr/sbin/inetd.afs");
  14   &Copy("etc/inetd.conf",  "/etc/inetd.conf.afs");
  15   &CopyStat("/etc/inetd.conf", "/etc/inetd.conf.afs");
  16
  17   &ErrorsAreFatal(1);
  18   &CreateDir("/usr/vice/bin");
  19
  20   &Copy("bin/rcp", "/usr/vice/bin");
  21   &Chown (0,2,   "/usr/vice/bin/rcp");
  22   &Chmod (04755, "/usr/vice/bin/rcp");
  23
  24   &Copy("bin/rsh", "/usr/vice/bin");
  25   &Chown (0,2,   "/usr/vice/bin/rsh");
  26   &Chmod (04755, "/usr/vice/bin/rsh");
  27
  28   # comment out the rshd line in inetd.conf
  29   $InetdConf = "/etc/inetd.conf";
  30   &Patch::Verbose if ($InstallVerbose);
  31   &Patch::FileOpen($InetdConf);
  32
  33   $Search = "^(shell\\s+.+)";
  34   $Replace = '"#".$1';
  35
  36   if (!&Patch::Patch($InetdConf, [[1, "Substitution", $Search, $Replace]])) {
  37     &ErrorMsg("Did not succeed with patch", $InetdConf);
  38   }
  39
  40   # Modify the /etc/services file
  41   &ReadInstallGuide("$InstallGuideDir/GENERIC/unix");
  42   &unix;
  43 }
  44
  45 sub unix {
  46   goto &DUXunix;
  47 }