contrib/shell_utils/afpd-mtab.pl.in

   1 #!@PERL@
   2 #
   3 # $Id: afpd-mtab.pl.in,v 1.1 2002-01-17 05:59:25 srittau Exp $
   4 #
   5 # Create an afpd.mtab on standard output from the mtab-format file on standard
   6 # input.
   7 #
   8 #       afpd-mtab.pl < /etc/mtab > /etc/afpd.mtab
   9 #
  10 #    Modification history:
  11 #
  12 # created.  -- rgr, 9-Apr-01.
  13 #
  14
  15 print("# afpd.mtab, generated by afpd-mtab.pl on ",
  16       `date`);
  17 while (<>) {
  18     ($device, $mount_point, $fstype) = split;
  19     next
  20         if $device eq 'none' || $mount_point eq '/boot';
  21     printf("%2d %-10s %s\n", ++$did_index, $device, $mount_point);
  22 }