wok-next diff ocsinventory-agent/stuff/Drives.pm.u @ rev 15868
Add stund
author | Pascal Bellard <pascal.bellard@slitaz.org> |
---|---|
date | Fri Jan 31 15:50:52 2014 +0000 (2014-01-31) |
parents | |
children |
line diff
1.1 --- /dev/null Thu Jan 01 00:00:00 1970 +0000 1.2 +++ b/ocsinventory-agent/stuff/Drives.pm.u Fri Jan 31 15:50:52 2014 +0000 1.3 @@ -0,0 +1,47 @@ 1.4 +--- Ocsinventory-Agent-1.0.1.ori/lib/Ocsinventory/Agent/Backend/OS/Linux/Drives.pm Fri Mar 6 19:02:57 2009 1.5 ++++ Ocsinventory-Agent-1.0.1/lib/Ocsinventory/Agent/Backend/OS/Linux/Drives.pm Sun Jul 12 22:29:32 2009 1.6 +@@ -1,9 +1,11 @@ 1.7 + package Ocsinventory::Agent::Backend::OS::Linux::Drives; 1.8 ++# Modified bye Erjo <erjo@slitaz.org> 1.9 ++# Busybox df applet as no -T -P options. 1.10 + 1.11 + use strict; 1.12 + sub check { 1.13 + return unless can_run ("df"); 1.14 +- my $df = `df -TP`; 1.15 ++ my $df = `df -k`; 1.16 + return 1 if $df =~ /\w+/; 1.17 + 0 1.18 + } 1.19 +@@ -19,14 +21,14 @@ 1.20 + my $volumn; 1.21 + 1.22 + 1.23 +- foreach(`df -TP`) { # TODO retrive error 1.24 +- if(/^(\S+)\s+(\S+)\s+(\S+)\s+(?:\S+)\s+(\S+)\s+(?:\S+)\s+(\S+)\n/){ 1.25 ++ foreach(`df -k`) { # TODO retrive error 1.26 ++ if(/^(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\n/){ 1.27 + $free = sprintf("%i",($4/1024)); 1.28 +- $filesystem = $2; 1.29 +- $total = sprintf("%i",($3/1024)); 1.30 +- $type = $1; 1.31 +- $volumn = $5; 1.32 +- 1.33 ++ $filesystem = $1; 1.34 ++ $total = sprintf("%i",($2/1024)); 1.35 ++ $type = `grep ^$1 /etc/mtab | cut -d " " -f 3`;; 1.36 ++ $volumn = $6; 1.37 ++ 1.38 + # no virtual FS 1.39 + next if ($type =~ /^(tmpfs|usbfs|proc|devpts|devshm|udev)$/); 1.40 + next if ($filesystem =~ /^(tmpfs)$/); 1.41 +@@ -36,8 +38,7 @@ 1.42 + FILESYSTEM => $filesystem, 1.43 + TOTAL => $total, 1.44 + TYPE => $type, 1.45 +- VOLUMN => 1.46 +- $volumn 1.47 ++ VOLUMN => $volumn 1.48 + }) 1.49 + } 1.50 + }