src/afsinstall/lib/InstallGuides/SGI_x/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 SGI systems running IRIX
  10 #
  11
  12 sub IRIXunix {
  13   &Copy("etc/inetd", "/usr/etc/inetd.afs");
  14
  15   &ErrorsAreFatal(1);
  16   &Patch::Verbose if ($InstallVerbose);
  17
  18   # Create the inetd.conf.afs file
  19   $InetdConfAfs = "/etc/inetd.conf.afs";
  20   open(INETD, ">$InetdConfAfs") || &ErrorMsg("Can't open file", $InetdConfAfs);
  21   print INETD <<"EOINETD";
  22 ftp     stream  tcp     nowait  root    /usr/etc/ftpd   ftpd -l
  23 shell   stream  tcp     nowait  root    /usr/etc/rshd   rshd -L
  24 login   stream  tcp     nowait  root    /usr/etc/rlogind        rlogind
  25 ta-rauth        stream  tcp     nowait  root    internal        ta-rauth
  26 EOINETD
  27
  28   # comment out the lines in inetd.conf
  29   $InetdConf = "/etc/inetd.conf";
  30   &CopyStat($InetdConf, $InetdConfAfs);
  31   &Patch::FileOpen($InetdConf);
  32
  33   $Search1 = "^(ftp\\s+.+)";
  34   $Replace1 = '"#".$1';
  35
  36   $Search2 = "^(shell\\s+.+)";
  37   $Replace2 = '"#".$1';
  38
  39   $Search3 = "^(login\\s+.+)";
  40   $Replace3 = '"#".$1';
  41
  42   if (!&Patch::Patch($InetdConf, [[1, "Substitution", $Search1, $Replace1],
  43                                   [1, "Substitution", $Search2, $Replace2],
  44                                   [1, "Substitution", $Search3, $Replace3]])) {
  45     &ErrorMsg("Did not succeed with patch", $InetdConf);
  46   }
  47
  48   # Modify the /etc/services file
  49   &ReadInstallGuide("$InstallGuideDir/GENERIC/unix");
  50   &unix;
  51 }
  52
  53 sub unix {
  54   goto &IRIXunix;
  55 }
  56
  57