package Ocsinventory::Agent::Backend::OS::HPUX::Mem;
use strict;

sub check { $^O =~ /hpux/ }

sub run { 
    my $params = shift;
    my $common = $params->{common};
  
    my $mem;
    my $swap;
  
    $mem = `grep Physical /var/adm/syslog/syslog.log|tr -s " "|cut -f 7 -d " "` ;
    if ( $mem eq "" ) {
        $mem = `grep Physical /var/adm/syslog/OLDsyslog.log|tr -s " "|cut -f 7 -d " "` ;
    };
    $mem = int ($mem/1024);
  
    $swap = `swapinfo -mdfq`;
  
  
    $common->setHardware({
        MEMORY =>  $mem,
        SWAP =>    $swap,
    });
}

1;