freebsd-ports/emulators/vmware2/files/df

#!/usr/bin/perl
# Hacky emulation of GNU df.
# Intented to use with vmware wizard.
# Depend from the _absence_ linux version perl in the dir /compat/linux/usr/bin/
#
# $FreeBSD$
#
@NARGV=('-n');
$type=0;
foreach (@ARGV) {
	exit if $_ eq '-n'; # Aargh it's me again, exit immediatly
	next if $_ eq '-P';
	$type=1,next if $_ eq '-T';
	push @NARGV, $_;
}

$line = 0;

open(DF,"-|") or exec '/bin/df', @NARGV;
while(<DF>) {
   
   unless ($type) { print $_; next;}
   @cols = split();
   if ($line++) {
	$col = 'ext2fs';
   } else {
	$col = 'Type';
   }
   @cols = (@cols[0], $col, @cols[1..$#cols]);
   print join("\t", @cols),"\n";
}