Parent Directory | Revision Log | Patch
revision 41 by dpavlin, Sun Oct 26 14:29:00 2008 UTC | revision 42 by dpavlin, Sun Oct 26 16:24:58 2008 UTC | |
---|---|---|
# | Line 48 sub json { | Line 48 sub json { |
48 | sub df { | sub df { |
49 | my ($self, $c) = @_; | my ($self, $c) = @_; |
50 | ||
51 | my $df = `$remote df -k`; | my $df = `$remote df -kT`; |
52 | my @lines = split(/\n/, $df); | my @lines = split(/\n/, $df); |
53 | my @header = map { lc($_) } split(/\s+/, shift @lines, 6); | my @header = map { lc($_) } split(/\s+/, shift @lines, 7); |
54 | ||
55 | my @items; | my @items; |
56 | my $number; | my $number; |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |