diff options
Diffstat (limited to 'emulators/vmware2/files/df')
-rw-r--r-- | emulators/vmware2/files/df | 31 |
1 files changed, 0 insertions, 31 deletions
diff --git a/emulators/vmware2/files/df b/emulators/vmware2/files/df deleted file mode 100644 index b9db0532e013..000000000000 --- a/emulators/vmware2/files/df +++ /dev/null @@ -1,31 +0,0 @@ -#!/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"; -} |