package Ocsinventory::Agent::Backend::OS::Solaris::Memory;
use strict;

sub check { can_run ("memconf") }

sub run {

  my $model;
  my $params = shift;
  my $common = $params->{common};
  my $logger = $params->{logger};

  my $capacity;
  my $description;
  my $numslots;
  my $speed = undef;
  my $type = undef;
  my $banksize;
  my $module_count=0;
  my $empty_slots;
  my $flag=0;
  my $flag_mt=0;
  my $caption;
  my $sun_class=0;
  my $OSLevel;
  my $zone;
  # for debug only
  my $j=0;

  # first, we need determinate on which model of sun server we run,
  # because prtdiags output (and with that memconfs output) is differend
  # from server model to server model
  # we try to classified our box in one of the known classes

   $OSLevel=`uname -r`;	  
  
  if ( $OSLevel =~ /5.8/ || !can_run("zoneadm") ){
	$zone = "global";
  }else{
	  foreach (`zoneadm list -p`){
		$zone=$1 if /^0:([a-z]+):.*$/;
	  } 
  }
    
  #print "Nom :".$zone."*************************\n";
  
  if ($zone)
  {  
  # first, we need determinate on which model of Sun Server we run,
  # because prtdiags output (and with that memconfs output) is differend
  # from server model to server model
  # we try to classified our box in one of the known classes
	$model=`uname -i`;
  # debug print model  
  # cut the CR from string model
	$model = substr($model, 0, length($model)-1);
  }else{
	$model="Solaris Containers";
  }
  
  #print "Memory Model: $model\n";
  
  
  #$model=`uname -i`;
  # debug print model
  #print "Model: '$model'";
  # cut the CR from string model
  #$model = substr($model, 0, length($model)-1);
  # we map (hopfully) our server model to a known class 
  #if ($model eq "SUNW,Sun-Fire-280R") { $sun_class = 1; }
  #if ($model eq "SUNW,Sun-Fire-480R") { $sun_class = 1; }
  #if ($model eq "SUNW,Sun-Fire-V490") { $sun_class = 1; }
  #if ($model eq "SUNW,Sun-Fire-880")  { $sun_class = 1; }
  #if ($model eq "SUNW,Sun-Fire-V240") { $sun_class = 2; }
  #if ($model eq "SUNW,Sun-Fire-V440") { $sun_class = 2; }
  #if ($model eq "SUNW,Sun-Fire-V250") { $sun_class = 2; }
  #if ($model eq "SUNW,Sun-Fire-T200") { $sun_class = 3; }
  #if ($model eq "SUNW,Sun-Fire-T1000") { $sun_class = 3; }
  #if ($model eq "SUNW,SPARC-Enterprise-T5220") { $sun_class = 4; }
  #if ($model eq "SUNW,SPARC-Enterprise") { $sun_class = 5; } # for M5000 && M4000
  
  if ($model  =~ /SUNW,SPARC-Enterprise/) { $sun_class = 5; } # for M5000 && M4000
  if ($model  =~ /SUNW,SPARC-Enterprise-T\d/){ $sun_class = 4; }
  if ($model  =~ /SUNW,Netra-T/){ $sun_class = 2; }
  if ($model  =~ /SUNW,Sun-Fire-\d/){ $sun_class = 1; }
  if ($model  =~ /SUNW,Sun-Fire-V/){ $sun_class = 2; }  
  if ($model  =~ /SUNW,Sun-Fire-V490/) { $sun_class = 1; }
  if ($model  =~ /SUNW,Sun-Fire-T\d/) { $sun_class = 3; }
  if ($model  =~ /SUNW,SPARCstation/) { $sun_class = 3; }
  if ($model  =~ /SUNW,Ultra-/) { $sun_class = 3; }
  if ($model  =~ /SUNW,Sun-Blade-100/) { $sun_class = 8; }
  if ($model  =~ /SUNW,T\d/) { $sun_class = 3; }
  if ($model  =~ /Solaris Containers/){ $sun_class = 7; } 
 
  
  if ($model eq "i86pc") { $sun_class = 6; }
  # debug print model
  #print "Sunclass: $sun_class\n";
  # now we can look at memory information, depending from our class

  if($sun_class == 0) 
  {
    $logger->debug("sorry, unknown model, could not detect memory configuration");
  }

  if($sun_class == 1)
  {
    foreach(`memconf 2>&1`) 
    {
      # debug
      #print "count: " .$j++ . " " . $flag_mt . " : " . "$_";
      # if we find "empty groups:", we have reached the end and indicate that by setting flag = 0
      if(/^empty \w+:\s(\S+)/)
      {
        $flag = 0;
        if($1 eq "None"){$empty_slots = 0;}
      }
      # grep the type of memory modules from heading
      if($flag_mt && /^\s*\S+\s+\S+\s+\S+\s+\S+\s+(\S+)/) {$flag_mt=0; $description = $1;}

      # only grap for information if flag = 1
      if ($flag && /^\s*(\S+)\s+(\S+)/) { $caption = "Board " . $1 . " MemCtl " . $2; }
      if ($flag && /^\s*\S+\s+\S+\s+(\S+)/) { $numslots = $1; }
      if ($flag && /^\s*\S+\s+\S+\s+\S+\s+(\d+)/) { $banksize = $1; }
      if ($flag && /^\s*\S+\s+\S+\s+\S+\s+\S+\s+\S+\s+(\d+)/) { $capacity = $1; }
      if ($flag) 
      {
        for (my $i = 1; $i <= ($banksize / $capacity); $i++)
        {
          #print "Caption: " . $caption . " Description: " . $description . " Bank Number: " . $numslots . " DIMM Capacity: " .  $capacity . "MB\n";
          $module_count++;
          $common->addMemory({
            CAPACITY => $capacity,
            DESCRIPTION => $description,
            CAPTION => $caption,
            SPEED => $speed,
            TYPE => $type,
            NUMSLOTS => $numslots
          })
        }
      }
      # this is the caption line 
      if(/^\s+Logical  Logical  Logical/) { $flag_mt = 1; }
      # if we find "---", we set flag = 1, and in next line, we start to look for information
      if(/^-+/){ $flag = 1; }
    }
  #print "# of RAM Modules: " . $module_count . "\n";
  #print "# of empty slots: " . $empty_slots . "\n";
  }
  if($sun_class == 2)
  {
    foreach(`memconf 2>&1`) 
    {
      # debug
      #print "line: " .$j++ . " " . $flag_mt . "/" . $flag ." : " . "$_";
      # if we find "empty sockets:", we have reached the end and indicate that by resetting flag = 0
      # emtpy sockets is follow by a list of emtpy slots, where we extract the slot names
      if(/^empty sockets:\s*(\S+)/)
      {
        $flag = 0;
        # cut of first 15 char containing the string empty sockets:
        substr ($_,0,15) = "";
        $capacity = "empty";
        $numslots = 0;
        foreach $caption (split)
        {
          if ($caption eq "None") 
          {
            $empty_slots = 0;
            # no empty slots -> exit loop
            last;
          }
          # debug
          #print "Caption: " . $caption . " Description: " . $description . " Bank Number: " . $numslots . " DIMM Capacity: " .  $capacity . "MB\n";
          $empty_slots++;
          $common->addMemory({
            CAPACITY => $capacity,
            DESCRIPTION => $description,
            CAPTION => $caption,
            SPEED => $speed,
            TYPE => $type,
            NUMSLOTS => $numslots
          })
        }
      }
	if(/.*Memory Module Groups.*/)
	{
		$flag = 0;
		$flag_mt = 0;
	}	
      # we only grap for information if flag = 1
      if($flag && /^\s*\S+\s+\S+\s+(\S+)/){ $caption = $1; }
      if($flag && /^\s*(\S+)/){ $numslots = $1; }
      if($flag && /^\s*\S+\s+\S+\s+\S+\s+(\d+)/){ $capacity = $1; }
      if($flag)
      {
        # debug
        #print "Caption: " . $caption . " Description: " . $description . " Bank Number: " . $numslots . " DIMM Capacity: " .  $capacity . "MB\n";
        $module_count++;
        $common->addMemory({
          CAPACITY => $capacity,
          DESCRIPTION => "DIMM",
          CAPTION => "Ram slot ".$numslots,
          SPEED => $speed,
          TYPE => $type,
          NUMSLOTS => $numslots
        })
      }
        # this is the caption line 
      if(/^ID       ControllerID/) { $flag_mt = 1; $description = $1;}
      # if we find "---", we set flag = 1, and in next line, we start to look for information
  		if($flag_mt && /^-+/){ $flag = 1;}
    }
    # debug: show number of modules found and number of empty slots
  }
 
  if($sun_class == 3)
  {
    foreach(`memconf 2>&1`) 
    {
      # debug
      if(/^empty sockets:\s*(\S+)/)
      {
        # cut of first 15 char containing the string empty sockets:
        substr ($_,0,15) = "";
        $capacity = "empty";
        $numslots = 0;
        foreach $caption (split)
        {
          if ($caption eq "None") 
          {
            $empty_slots = 0;
            # no empty slots -> exit loop
            last;
          }
          # debug
          #print "Caption: " . $caption . " Description: " . $description . " Bank Number: " . $numslots . " DIMM Capacity: " .  $capacity . "MB\n";
          $empty_slots++;
          $common->addMemory({
            CAPACITY => $capacity,
            DESCRIPTION => $description,
            CAPTION => $caption,
            SPEED => $speed,
            TYPE => $type,
            NUMSLOTS => $numslots
          })
        }
      }
      if(/^socket\s+(\S+) has a (\d+)MB\s+(\(\S+\)\s+)?(\S+)/)
      {
	$caption = $1;
        $description = $4;
        $type = $4;
        $numslots = 0;
        $capacity = $2;
        # debug
        #print "Caption: " . $caption . " Description: " . $description . " Bank Number: " . $numslots . " DIMM Capacity: " .  $capacity . "MB\n";
        $module_count++;
        $common->addMemory({
          CAPACITY => $capacity,
          DESCRIPTION => $description,
          CAPTION => $caption,
          SPEED => $speed,
          TYPE => $type,
          NUMSLOTS => $numslots
        })
      }
    }
    # debug: show number of modules found and number of empty slots
    #print "# of RAM Modules: " . $module_count . "\n";
    #print "# of empty slots: " . $empty_slots . "\n";
  }

  if($sun_class == 4)
  {
    foreach(`memconf 2>&1`) 
    {
      # debug
      #print "line: " .$j++ . " " . $flag_mt . "/" . $flag ." : " . "$_";
      # if we find "empty sockets:", we have reached the end and indicate that by resetting flag = 0
      # emtpy sockets is follow by a list of emtpy slots, where we extract the slot names
      if(/^empty sockets:\s*(\S+)/)
      {
        $flag = 0;
        # cut of first 15 char containing the string empty sockets:
        substr ($_,0,15) = "";
        $capacity = "empty";
        $numslots = 0;
        foreach $caption (split)
        {
          if ($caption eq "None") 
          {
            $empty_slots = 0;
            # no empty slots -> exit loop
            last;
          }
          # debug
          print "Caption: " . $caption . " Description: " . $description . " Bank Number: " . $numslots . " DIMM Capacity: " .  $capacity . "MB\n";
          $empty_slots++;
          $common->addMemory({
            CAPACITY => $capacity,
            DESCRIPTION => $description,
            CAPTION => $caption,
            SPEED => $speed,
            TYPE => $type,
            NUMSLOTS => $numslots
          })
        }
      }
  
      # we only grap for information if flag = 1
      # socket MB/CMP0/BR0/CH0/D0 has a Samsung 501-7953-01 Rev 05 2GB FB-DIMM
      if(/^socket\s+(\S+) has a (.+)\s+(\S+)GB\s+(\S+)$/i)
      {
	$caption = $1;
        $description = $2;
        $type = $4;
        $numslots = 0;
        $capacity = $3 * 1024;
        # debug
        #print "Caption: " . $caption . " Description: " . $description . " Bank Number: " . $numslots . " DIMM Capacity: " .  $capacity . "MB\n";
        $module_count++;
        $common->addMemory({
          CAPACITY => $capacity,
          DESCRIPTION => $description,
          CAPTION => $caption,
          SPEED => $speed,
          TYPE => $type,
          NUMSLOTS => $numslots
        })
      }
    }
    # debug: show number of modules found and number of empty slots
    #print "# of RAM Modules: " . $module_count . "\n";
    #print "# of empty slots: " . $empty_slots . "\n";
  }

  if ($sun_class ==  5 )
  {
    foreach(`memconf 2>&1`)
    {
        # debug
        #print "line: " .$j++ . " " . $flag_mt . "/" . $flag ." : " . "$_";
        # if we find "empty sockets:", we have reached the end and indicate that by resetting flag = 0
        # emtpy sockets is follow by a list of emtpy slots, where we extract the slot names
        if(/^total memory:\s*(\S+)/) { $flag = 0;}

        #print "flag : $flag\n";
        if($flag_mt && /^\s+\S+\s+\S+\s+\S+\s+(\S+)/) {$flag_mt=0;  $description = $1;}
        #print "description : $description\n";

        if ($flag && /^\s(\S+)\s+(\S+)/) { $numslots = "LSB " . $1 . " Group " . $2; }
        if ($flag && /^\s(\S+)\s+(\S+)/) { $caption = "LSB " . $1 . " Group " . $2; }
        if ($flag && /^\s+\S+\s+\S\s+\S+\s+\S+\s+(\d+)/) { $capacity = $1; }
        if ($flag && /^\s+\S+\s+\S\s+(\d+)/) { $banksize = $1; }
        #print "Num slot ". $numslots  . " Bank Number: " . $numslots . " Bank size " .  $banksize . " DIMM Capacity: " .  $capacity . "MB\n";
        if ($flag && $capacity > 1 )
        {
                for (my $i = 1; $i <= ($banksize / $capacity); $i++)
                {
                #print "caption ". $caption  . " Bank Number: " . $numslots . " Bank size " .  $banksize . " DIMM Capacity: " .  $capacity . "MB\n";
                $common->addMemory({
                CAPACITY => $capacity,
                DESCRIPTION => $description,
                CAPTION => $caption,
                SPEED => $speed,
                TYPE => $type,
                NUMSLOTS => $module_count
                })
                }
                $module_count++;
        }
        #Caption Line
        if (/^Sun Microsystems/) { $flag_mt=1; $flag=1; }
    }
  }
  if($sun_class == 6)
  {
    foreach(`memconf 2>&1`)
    {
      # debug
      #print "line: " .$j++ . " " . $flag_mt . "/" . $flag ." : " . "$_";
      if(/^empty memory sockets:\s*(\S+)/)
      {
        # cut of first 22 char containing the string empty sockets:
        substr ($_,0,22) = "";
        $capacity = "0";
        $numslots = 0;
        foreach $caption (split(/, /,$_))
        {
          if ($caption eq "None")
          {
            $empty_slots = 0;
            # no empty slots -> exit loop
            last;
          }
          # debug
          #print "Caption: " . $caption . " Description: " . $description . " Bank Number: " . $numslots . " DIMM Capacity: " .  $capacity . "MB\n";
          $empty_slots++;
          $common->addMemory({
            CAPACITY => $capacity,
            DESCRIPTION => "empty",
            CAPTION => $caption,
            SPEED => 'n/a',
            TYPE => 'n/a',
            NUMSLOTS => $numslots
          })
        }
      }
      if(/^socket DIMM(\d+):\s+(\d+)MB\s(\S+)/)
      {
        $caption = "DIMM$1";
        $description = "DIMM$1";
        $numslots = $1;
        $capacity = $2;
	$type = $3;
        # debug
        #print "Caption: " . $caption . " Description: " . $description . " Bank Number: " . $numslots . " DIMM Capacity: " .  $capacity . "MB\n";
        $module_count++;
        $common->addMemory({
          CAPACITY => $capacity,
          DESCRIPTION => $description,
          CAPTION => $caption,
          SPEED => $speed,
          TYPE => $type,
          NUMSLOTS => $numslots
        })
      }
    }
    # debug: show number of modules found and number of empty slots
    #print "# of RAM Modules: " . $module_count . "\n";
    #print "# of empty slots: " . $empty_slots . "\n";
  }

  if ($sun_class == 7)
  {
  foreach (`prctl -n project.max-shm-memory $$ 2>&1`)
	{
		
		$description = $1 if /^project.(\S+)$/;		
		$capacity = $1 if /^\s*system+\s*(\d+).*$/;		
		if(($description && $capacity)){
			$capacity = $capacity * 1024;
			$numslots = 1 ;
			$description = "Memory Allocated";
			$caption = "Memory Share";
			#print $description."_".$capacity."***\n";
			$common->addMemory({
			  CAPACITY => $capacity,
			  DESCRIPTION => $description,
			  CAPTION => $caption,
			  SPEED => $speed,
			  TYPE => $type,
			  NUMSLOTS => $numslots
			})
		}
	}
  }	
  

  if($sun_class == 8) {
    # example output of a Sun Blade 100 Workstation

    #Sun Microsystems, Inc. Sun Blade 100 (UltraSPARC-IIe 502MHz)
    #Memory Segment Table:
    #-----------------------------------------------------------------------
    #Base Address       Size       Interleave Factor  Contains
    #-----------------------------------------------------------------------
    #0x0                256MB             1           chassis/system-board/DIMM0
    #empty sockets: DIMM1 DIMM2 DIMM3
    #total memory = 256MB

    #Sun Microsystems, Inc. Sun Blade 100 (UltraSPARC-IIe 502MHz)
    #Memory Segment Table:
    #-----------------------------------------------------------------------
    #Base Address       Size       Interleave Factor  Contains
    #-----------------------------------------------------------------------
    #0x0                256MB             1           Label DIMM0
    #0x20000000         256MB             1           Label DIMM1
    #empty sockets: DIMM2 DIMM3
    #total memory = 512MB

    foreach(`memconf 2>&1`) {
      if (/^empty sockets:\s*(.+)/) {
        foreach $caption (split(/ /, $1)) {
          if ($caption eq "None") {
            $empty_slots = 0;
            last;
          }
          $empty_slots++;
 #         print "empty slot\n";
          $common->addMemory({
            CAPACITY => "empty",
            DESCRIPTION => '',
            CAPTION => $caption,
            SPEED => '',
            TYPE => '',
            NUMSLOTS => $numslots
          })
        }
       }
      if (/^0x(\d+)\s+(\d+)MB\s+(\S+)\s+(.+)/) {
        $caption = "$4";
        $description = "";
        $numslots = 0;
        $capacity = $2;
        $type = "";
        # debug
#        print "Caption: " . $caption . " Description: " . $description . " Bank Number: " . $numslots . " DIMM Capacity: " .  $capacity . "MB\n";
        $module_count++;
        $common->addMemory({
          CAPACITY => $capacity,
          DESCRIPTION => $description,
          CAPTION => $caption,
          SPEED => $speed,
          TYPE => $type,
          NUMSLOTS => $numslots
        })
      }
    }
  }


}
#run();
1;