1#!/usr/bin/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 15print("# afpd.mtab, generated by afpd-mtab.pl on ", 16 `date`); 17while (<>) { 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} 23