Commit | Line | Data |
---|---|---|
805e021f CE |
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 | } |