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