openafs-tools-cmd-20020115
[openafs.git] / src / tools / install / write_fstab.pl
1 #!/usr/bin/perl
2 #
3 # A perl script that will replace the line in /etc/fstab
4 # corresponding to the device given by the first argument,
5 # with a new line mounting that device to the second
6 # argument, or add it if necessary.
7 #
8 # openafs-tools, Version 1.2.2
9
10 # Copyright 2001, International Business Machines Corporation and others.
11 # All Rights Reserved.
12
13 # This software has been released under the terms of the IBM Public
14 # License.  For details, see the LICENSE file in the top-level source
15 # directory or online at http://www.openafs.org/dl/license10.html
16 #
17
18 open( FSTAB, "</etc/fstab");
19 @fstab = <FSTAB>;
20 close(FSTAB);
21
22 open( FSTAB, ">/etc/fstab");
23
24 $replaced = 0;
25
26 foreach $line (@fstab) {
27   @splitline = split(/\s+/, $line);
28   if( $splitline[0] eq "/dev/$ARGV[0]" ) {
29       print FSTAB "/dev/$ARGV[0]\t\t$ARGV[1]\t\t\text2\tdefaults     0  2\n";
30       $replaced = 1;
31   } else {
32       print FSTAB $line;
33   }
34 }
35
36 if( $replaced == 0 ) {
37     print FSTAB "/dev/$ARGV[0]\t\t$ARGV[1]\t\t\text2\tdefaults     0  2\n";
38 }