Some Fixes for run_cmd

git-svn-id: https://labs.omniti.com/resmon/trunk@241 8c0face9-b7db-6ec6-c4b3-d5f7145c7d55

lib/Resmon/ExtComm.pm

@@ -5,7 +5,7 @@ require Exporter;
 use vars qw/@ISA @EXPORT/;
 
 @ISA = qw/Exporter/;
-@EXPORT = qw/cache_command/;
+@EXPORT = qw/cache_command run_cmd/;
 
 my %commhist;
 my %commcache;
@@ -48,7 +48,7 @@ sub run_cmd {
         my @lines = <$r>;
         waitpid($pid, 0);
         delete $children{$pid};
-        return join('\n', @lines);
+        return join("", @lines);
     } else {
         eval {
             open(STDOUT, ">&", $w);

lib/Resmon/Module/BSD_CHECK_TEMP.pm

@@ -5,7 +5,7 @@ use Resmon::Module;
 use Resmon::ExtComm qw/cache_command/;
 use vars qw/@ISA/;
 @ISA = qw/Resmon::Module/;
-my $DEBUG=1;
+my $DEBUG=0;
 
 
 sub handler {

lib/Resmon/Module/BSD_DISK_TEMP.pm

@@ -5,7 +5,7 @@ use Resmon::Module;
 use Resmon::ExtComm qw/cache_command/;
 use vars qw/@ISA/;
 @ISA = qw/Resmon::Module/;
-my $DEBUG=2;
+my $DEBUG=0;
 
 
 sub handler {

lib/Resmon/Module/DISK.pm

@@ -10,6 +10,7 @@ sub handler {
   my $devorpart = $arg->{'object'};
   my $output = cache_command("$dfcmd $devorpart", 120);
   my ($line) = grep(/$devorpart\s*/, split(/\n/, $output));
+  print "$line";
   if($line =~ /(\d+)\s+(\d+)\s+(\d+)%/) {
     $status = "OK";
     # Check free space for an exact value in KB