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 installing the AFS aware file system checker | |
9 | # For Sun systems running Solaris 2.6 | |
10 | # | |
11 | ||
12 | sub vfsck { | |
13 | my($ufs, , $afs, $file); | |
14 | $ufs = "/usr/lib/fs/ufs"; | |
15 | $afs = "/usr/lib/fs/afs"; | |
16 | ||
17 | &CreateDir($afs); | |
18 | &Copy("root.server/etc/vfsck", "$afs/fsck"); | |
19 | ||
20 | &ErrorsAreFatal(1); | |
21 | $rc = opendir(UFS, $ufs); | |
22 | &ErrorMsg("Could not opendir", $ufs) if (!$rc); | |
23 | while($file = readdir(UFS)) { | |
24 | next if ($file eq "."); | |
25 | next if ($file eq ".."); | |
26 | next if ($file eq "fsck"); | |
27 | next if (-e "$afs/$file"); | |
28 | &Symlink("$ufs/$file", "$afs/$file"); }; | |
29 | &ErrorsAreFatal(0); | |
30 | closedir(UFS); | |
31 | } | |
32 |