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

sub check { 
    my $params = shift;
    my $common = $params->{common};
    $common->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;
    my $aarch;
    # 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

    chomp($OSLevel = `uname -r`);
    chomp($aarch = `uname -p`);
    
    if ( !$common->can_run("zonename") || `zonename` =~ /global/ ) {
    # Either pre Sol10 or in Sol10/Sol11 global zone 
    $zone = "global";
    }else{
    # Sol10/Sol11 local zone
    $zone = "";
    }
      
    #print "Nom :".$zone."*************************\n";
    
    if ($zone)
    {  
      if ( $aarch =~ /sparc/ && $common->can_run("virtinfo") && `virtinfo -t` =~ /.*LDoms guest.*/ ) {
	$model = "Solaris Ldom";
      }else{
	chomp($model = `uname -i`);
      }
    }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,Sun-Blade-1500/) { $sun_class = 8; }
    if ($model  =~ /SUNW,T\d/) { $sun_class = 3; }
    if ($model  =~ /Solaris Containers/){ $sun_class = 7; } 
    if ($model  =~ /Solaris Ldom/) { $sun_class = 7; }
    if ($model  =~ /i86pc/) { $sun_class = 6; }
    if ($model  =~ /sun4v/) { $sun_class = 3; }
 
  
    # 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)
    {
      # socket MB/MEM3/CMP3/BR1/CH1/D2 has a Micron Technology 36HTF51272F80EE1D4 4GB FB-DIMM
      foreach(`memconf 2>&1`) 
      {
        # debug
        if(/^empty sockets:\s*(\S+)/)
        {
          # cut of first 15 char containing the string empty sockets:
          substr ($_,0,15) = "";
          $description = "";
          $type = "";
          $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
            })
          }
        }
        # socket MB/MEM3/CMP3/BR1/CH1/D2 has a Micron Technology 36HTF51272F80EE1D4 4GB FB-DIMM
        if(/^socket\s+(\S+) has a (.+) (\d+)GB (\S+)/) 
        {
    $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
          })
        }
	# socket P1C1/B31/C1/D0 (LUN 0 ID 124): Samsung 32768MB DDR4 SDRAM DIMM, M393A4K40BB1-CRC
	if(/^socket\s+(\S+) \(LUN \d+ ID \d+\): (.+) (\d+)MB (\S+) (\S+) DIMM, (\S+)/)
	{
	  $caption = $1;
	  $description = "$2 $6";
	  $type = "$4 $5";
	  $numslots = 0;
	  $capacity = $3;
	  $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+)/) { $flag = 0;}

          #print "flag : $flag\n";
          if($flag_mt && /^\s+\S+\s+\S+\s+\S+\s+(\S+)/) {$flag_mt=0;  $type = $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)
    {
      #CPU1_D2 BANK2: 4096MB DDR3 DIMM, Samsung M393B5170EH1-CH9	(SUN FIRE X4270)
      #DIMM 1A: 4096MB Synchronous DDR2 FBDIMM	(ProLiant DL380 G5)
      #Board 1, DIMM 1A: 8192MB Synchronous DDR3			(ProLiant DL580 G7)
      #PROC  1 DIMM 12: 16384MB Synchronous DDR3 DIMM, HP		(ProLiant DL380p Gen8)
      #PROC 1 DIMM 12: 32768MB Synchronous DIMM, HP 752372-081	(ProLiant DL380 Gen9)
      #XMM1: 2048MB Synchronous DDR2 DIMM, Elpida EBE21UE8AEFA-8G-E	(HP Desktop PC)
      #DIMM_1: 1024MB Synchronous DDR2 DIMM, Kingston KCM633-ELC	(Dell Desktop PC)
      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) = "";
          chomp();
	  $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++;
            if ($caption =~ /.* (\d+)$/) { $numslots = $1; }
            $common->addMemory({
              CAPACITY => $capacity,
              DESCRIPTION => "empty",
              CAPTION => $caption,
              SPEED => 'n/a',
              TYPE => 'n/a',
              NUMSLOTS => $numslots
            })
          }
        }
        # These are the non-emtpy sockets in various formats
        #DIMM 1A: 4096MB Synchronous DDR2 FBDIMM				(ProLiant DL380 G5)
        #Board 1, DIMM 1A: 8192MB Synchronous DDR3			(ProLiant DL580 G7)
        #PROC  1 DIMM 12: 16384MB Synchronous DDR3 DIMM, HP		(ProLiant DL380p Gen8)
        if(/^(.*DIMM) (\S+):\s+(\d+)MB\s(\S+ DDR\d+)\s*(\w*)?(,?.*)/)
        {
          $caption = "$1 $2";
          $description = "$4 $5$6";
          $numslots = $2;
          $capacity = $3;
	  $type = $5;
	  unless ($type) { $type = "DIMM" };  # Default if nothing else found
          # 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
          })
        }
        #CPU1_D2 BANK2: 4096MB DDR3 DIMM, Samsung M393B5170EH1-CH9	(SUN FIRE X4270)
        if(/^(.*BANK)(\S+):\s+(\d+)MB\s(\S*DDR\d+)\s*(\w+)?(,?.*)/)
        {
          $caption = "$1 $2";
          $description = "$4 $5$6";
          $numslots = $2;
          $capacity = $3;
	  $type = $5;
          # 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
          })
        }
        #PROC 1 DIMM 12: 32768MB Synchronous DIMM, HP 752372-081		(ProLiant DL380 Gen9)
        if(/^(.*DIMM) (\S+):\s+(\d+)MB\s(\S+)\s+(DIMM\w*)(,?.*)/)
	{
          $caption = "$1 $2";
          $description = "$4 $5$6";
          $numslots = $2;
          $capacity = $3;
	  $type = $5;
          # 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
          })
        }
        #XMM1: 2048MB Synchronous DDR2 DIMM, Elpida EBE21UE8AEFA-8G-E	(HP Desktop PC)
        #DIMM_1: 1024MB Synchronous DDR2 DIMM, Kingston KCM633-ELC	(Dell Desktop PC)
        if(/^(\S+):\s+(\d+)MB\s(.+)\s+(DIMM\w*)(,?.*)/)
        {
          $caption = "$1";
          $description = "$3 $4$5";
          $numslots = $1;
          $capacity = $2;
    $type = $4;
          # 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+)(\S)B\s+(\S+)\s+(.+)/) {
          $caption = "$5";
          $description = "";
          $numslots = 0;
          $capacity = $2 if ( $3 eq "M" );
          $capacity = $2 * 1024 if ( $3 eq "G" );
          $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;