1 # Copyright 2000, International Business Machines Corporation and others.
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
8 # An InstallGuide for the AFS modified Unix commands
9 # For Sun systems running Solaris 5.x
13 &Copy("etc/inetd", "/usr/sbin/inetd.afs");
14 &Copy("etc/ftpd", "/usr/sbin/in.ftpd.afs");
17 &Patch::Verbose if ($InstallVerbose);
18 &CreateDir("/usr/vice/bin");
20 &Copy("bin/rcp", "/usr/vice/bin");
21 &Chown (0,2, "/usr/vice/bin/rcp");
22 &Chmod (04755, "/usr/vice/bin/rcp");
24 &Copy("bin/rsh", "/usr/vice/bin");
25 &Chown (0,2, "/usr/vice/bin/rsh");
26 &Chmod (04755, "/usr/vice/bin/rsh");
28 # Create the inetd.conf.afs file
29 $InetdConfAfs = "/etc/inet/inetd.conf.afs";
30 open(INETD, ">$InetdConfAfs") || &ErrorMsg("Can't open file", $InetdConfAfs);
31 print INETD <<"EOINETD";
32 ftp stream tcp nowait root /usr/sbin/in.ftpd.afs in.ftpd.afs
33 shell stream tcp nowait root /usr/sbin/in.rshd in.rshd
34 ta-rauth stream tcp nowait root internal ta-rauth
36 &Symlink("./inet/inetd.conf.afs", "/etc/inetd.conf.afs");
38 # comment out the lines in inetd.conf
39 $InetdConf = "/etc/inet/inetd.conf";
40 &CopyStat($InetdConf, $InetdConfAfs);
41 &Patch::FileOpen($InetdConf);
43 $Search1 = "^(ftp\\s+.+)";
46 $Search2 = "^(shell\\s+.+)";
49 if (!&Patch::Patch($InetdConf, [[1, "Substitution", $Search1, $Replace1],
50 [1, "Substitution", $Search2, $Replace2]])) {
51 &ErrorMsg("Did not succeed with patch", $InetdConf);
54 # Modify the /etc/inet/services file
55 # append the ta-rauth to the services file
56 $Services = "/etc/inet/services";
57 &Patch::FileOpen($Services);
58 $ServicesAppend = "ta-rauth 601/tcp rauth";
60 if (!&Patch::Patch($Services, [[0, "EOF", "", $ServicesAppend]])) {
61 &ErrorMsg("Did not succeed with patch", $Services);