src/afsinstall/lib/InstallGuides/RS_AIX4x/login

   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 AFS login
   9 # For IBM RS/6000 systems running AIX 4.x
  10 #
  11
  12 sub login {
  13   &Copy ("root.client/usr/vice/etc/afs_dynamic_auth", "/usr/vice/etc");
  14   &Copy ("root.client/usr/vice/etc/afs_dynamic_kerbauth", "/usr/vice/etc");
  15
  16   $File1="/etc/security/user";
  17   $File2="/etc/security/login.cfg";
  18   &Patch::Verbose if ($InstallVerbose);
  19   &Patch::FileOpen($File1);
  20   &Patch::FileOpen($File2);
  21
  22   $Search = << "xxENDxx";
  23         expires = 0
  24         SYSTEM = "compat"
  25 xxENDxx
  26
  27   $New = << "xxENDxx";
  28         expires = 0
  29         SYSTEM = "AFS OR (AFS[UNAVAIL] OR compat[SUCCESS])"
  30         registry = DCE
  31 xxENDxx
  32
  33   $Search1 = << "xxENDxx";
  34 root:
  35 xxENDxx
  36
  37   $New1 = << "xxENDxx";
  38 root:
  39         registry = files
  40 xxENDxx
  41
  42   $New2 = << "xxENDxx";
  43 rootl:
  44         admin = true
  45         SYSTEM = "compat"
  46         loginretries = 0
  47         registry = files
  48         account_locked = false
  49
  50 xxENDxx
  51
  52   $Search3 = << "xxENDxx";
  53 daemon:
  54         admin = true
  55         expires = 0101000070
  56 xxENDxx
  57
  58   $New3 = << "xxENDxx";
  59 daemon:
  60         admin = true
  61         account_locked = false
  62 xxENDxx
  63
  64   if (!&Patch::Patch($File1, [[0, "Replace", $Search, $New],
  65                               [0, "Replace", $Search1, $New1],
  66                               [0, "EOF", "", $New2],
  67                               [0, "Replace", $Search3, $New3]])) {
  68     &VPrint("Did not succeed in patching $File1");
  69   }
  70
  71   $New = << "xxENDxx";
  72 DCE:
  73         program = /usr/vice/etc/afs_dynamic_auth
  74
  75 AFS:
  76         program = /usr/vice/etc/afs_dynamic_auth
  77         retry = 3
  78         timeout = 30
  79         retry_delay = 10
  80 xxENDxx
  81
  82   if (!&Patch::Patch($File2, [[0, "EOF", "", $New]])) {
  83     &VPrint("Did not succeed in patching $File2");
  84   }
  85
  86 }
  87