package Ocsinventory::Agent::Backend::OS::MacOS;

use strict;

require Exporter;
our @ISA = qw /Exporter/;
our @EXPORT = qw /get_sysprofile_devices_names/;


sub check {
    my $r;
    # we check far darwin because that's the _real_ underlying OS
    $r = 1 if (uc($^O) =~ /^DARWIN$/);
    return($r);
}

sub run {
   my $params = shift;
   my $common = $params->{common};

   my $OSName;
   my $OSComment;
   my $OSVersion;
   my $uuid;
        
   # if we can load the system profiler, gather the information from that
   if ($common->can_load("Mac::SysProfile")){
       my $profile = Mac::SysProfile->new();
       my $data = $profile->gettype('SPSoftwareDataType');
       return(undef) unless(ref($data) eq 'ARRAY');

       my $h = $data->[0];

       my $SystemVersion = $h->{'os_version'};
       if ($SystemVersion =~ /^(.*?)\s+(\d+.*)/) {
           $OSName=$1;
           $OSVersion=$2;
       } else {
           # Default values
           $OSName="Mac OS X";
           $OSVersion="Unknown";
       }

   } else {
       # we can't load the system profiler, use the basic BSD stype information
       # Operating system informations
       chomp($OSName=`uname -s`);
       chomp($OSVersion=`uname -r`);            
   }
        
   # add the uname -v as the comment, not really needed, but extra info never hurt
   chomp($OSComment=`uname -v`);

   # We get UUID
   if ($common->can_run("ioreg")) {
       my @ioreg = split ("=", `ioreg -rd1 -c IOPlatformExpertDevice | grep -E '(UUID)'`); 
       chomp($uuid = $ioreg[1]);
       $uuid =~ s/\"|\s//g;
   }

   $common->setHardware({
       OSNAME => $OSName,
       OSCOMMENTS => $OSComment,
       OSVERSION => $OSVersion,
       UUID => $uuid,
   });
}

1;
