src/afsinstall/lib/InstallGuides/RS_AIX3x/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 #
  10
  11 sub AIXunix {
  12   &Copy("etc/inetd", "/usr/sbin/inetd.afs");
  13   &Copy("etc/ftpd",  "/usr/sbin/ftpd.afs");
  14   &Copy("etc/rlogind",  "/usr/sbin/rlogind.afs");
  15   &Symlink ("/usr/sbin/inetd.afs",   "/etc/inetd.afs");
  16   &Symlink ("/usr/sbin/ftpd.afs",    "/etc/ftpd.afs");
  17   &Symlink ("/usr/sbin/rlogind.afs", "/etc/rlogind.afs");
  18
  19   &ErrorsAreFatal(1);
  20   &Patch::Verbose if ($InstallVerbose);
  21   &CreateDir("/usr/vice/bin");
  22
  23   &Copy("bin/rcp", "/usr/vice/bin");
  24   &Chown (0,2,   "/usr/vice/bin/rcp");
  25   &Chmod (04755, "/usr/vice/bin/rcp");
  26
  27   &Copy("bin/rsh", "/usr/vice/bin");
  28   &Chown (0,2,   "/usr/vice/bin/rsh");
  29   &Chmod (04755, "/usr/vice/bin/rsh");
  30
  31   # Create the inetd.conf.afs file
  32   $InetdConfAfs = "/etc/inetd.conf.afs";
  33   open(INETD, ">$InetdConfAfs") || &ErrorMsg("Can't open file", $InetdConfAfs);
  34   print INETD <<"EOINETD";
  35 ftp             stream tcp nowait root /etc/ftpd.afs    ftpd.afs
  36 shell           stream tcp nowait root /etc/rshd        rshd
  37 login           stream tcp nowait root /etc/rlogind.afs         rlogind.afs
  38 ta-rauth        stream tcp nowait root internal         ta-rauth
  39 EOINETD
  40
  41  # comment out the rshd line in inetd.conf
  42   $InetdConf = "/etc/inetd.conf";
  43   &CopyStat($InetdConf, $InetdConfAfs);
  44   &Patch::FileOpen($InetdConf);
  45
  46   $Search1 = "^(ftp\\s+.+)";
  47   $Replace1 = '"#".$1';
  48
  49   $Search2 = "^(shell\\s+.+)";
  50   $Replace2 = '"#".$1';
  51
  52   $Search3 = "^(login\\s+.+)";
  53   $Replace3 = '"#".$1';
  54
  55   if (!&Patch::Patch($InetdConf, [[1, "Substitution", $Search1, $Replace1],
  56                                   [1, "Substitution", $Search2, $Replace2],
  57                                   [1, "Substitution", $Search3, $Replace3]])) {
  58     &ErrorMsg("Did not succeed with patch", $InetdConf);
  59   }
  60
  61   # Modify the /etc/services file
  62   &ReadInstallGuide("$InstallGuideDir/GENERIC/unix");
  63   &unix;
  64 }
  65
  66 sub unix {
  67   goto &AIXunix;
  68 }
  69
  70