amd2sun.in revision 1.1.1.1.4.2
1#!@PERL@ 2# convert amd maps to Sun automount maps 3# usage: amd2sun file 4# 5# Package: am-utils-6.x 6# Author: "Mark D. Baushke" <mdb@cisco.com> 7 8print "# file created by amd2sun 9# 10# DO NOT EDIT THIS FILE AT ALL 11# It is automatically generated from the amd mount map - edit that instead 12# 13"; 14while (<>) { 15 print, next if /^#/; 16 chop; 17 $line = $_; 18 while ($line =~ /\\$/) { 19 chop $line; 20 $line2 = <>; 21 $line2 =~ s/^\s*//; 22 $line .= $line2; 23 chop $line; 24 } 25 26 next unless $line =~ /^([^\s]+)\s+(.*)$/; 27 28 $fs = $1; $rest=$2; 29 30 if ($fs =~ /^\/defaults/) { 31 ($defopts = $rest) =~ s/^.*[\s;]opts:=([^;\s]+)[;\s]*.*$/\1/; 32 next; 33 } 34 35 $opts=$defopts; 36 37 if ($rest =~ /opts:=([^;\s]+)[;\s]/) { 38 $opts = $1; 39 } 40 41 $opts =~ s/,ping=[-\d]+//g; 42 43 ($rhost = $rest) =~ s/^.*[\s;]rhost:=([^;\s]+)[;\s]*.*$/\1/; 44 ($rfs = $rest) =~ s/^.*[\s;]rfs:=([^;\s]+)[;\s]*.*$/\1/; 45 46 if ($rest =~ /sublink:=([^;\s]+)[;\s]/ ) { 47 $rfs .= "/$1"; 48 } 49 50 print "$fs -$opts $rhost:$rfs\n"; 51} 52