contrib/amd/scripts/amd2sun.in

   1 #!@PERL@
   2 # convert amd maps to Sun automount maps
   3 # usage: amd2sun file
   4 #
   5 # Package:      am-utils-6.0
   6 # Author:       "Mark D. Baushke" <mdb@cisco.com>
   7
   8 print "# 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 ";
  14 while (<>) {
  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 }