données de HDD SAS/SAN manquantes AIX 5.3, 6.1 et 7.1

J'utilise l'Agent : OCS-NG_unified_unix_agent_v2.1.1 pour un environnement qui a plusieurs serveurs AIX 5.3, 6.1 et 7.1. Quand on lance l'agent il ne voit pas les disques SAS locaux ainsi que les disques SAN IBM Storwize avec le driver MPIO SDDPCM. J'ai modifié le fichier Storage.pm afin qu'il détecte les disques pour l'afficher par la suite dans la console OCS.

Donc il faudrait ajouter le code suivant dans le Storage.pm pour AIX.

#MPIO FC 2145 disks. IBM SDDPCM MPIO Storwize
  $n=0;
  @scsi=`lsdev -Cc disk -F 'name:description' |grep -i 'MPIO FC 2145'`;
  for(@scsi){
        chomp $scsi[$n];
        /^(.+):(.+)/;
        $device=$1;
        $description=$2;
    @lsattr=`/usr/bin/getconf DISK_SIZE /dev/$device`;
        for (@lsattr){
          if (! /^#/ ){
            $capacity= $_;
            chomp($capacity);$capacity =~ s/(\s+)$//;
          }
        }
        for (@lsvpd){
          if(/^AX $device/){$flag=1}
          if ((/^MF (.+)/) && $flag){$manufacturer=$1;chomp($manufacturer);$manufacturer =~ s/(\s+)$//;}
          if ((/^TM (.+)/) && $flag){$model=$1;chomp($model);$model =~ s/(\s+)$//;}
          if ((/^FN (.+)/) && $flag){$FRU=$1;chomp($FRU);$FRU =~ s/(\s+)$//;$manufacturer .= ",FRU number :".$FRU}
          if ((/^FC .+/) && $flag) {$flag=0;last}
        }
        $common->addStorages({
          NAME => $device,
          MANUFACTURER => $manufacturer,
          MODEL => $model,
          DESCRIPTION => $description,
          TYPE => 'disk',
          DISKSIZE => $capacity
    });
        $n++;
  }
  #SAS disks
  $n=0;
  @scsi=`lsdev -Cc disk -s sas -F 'name:description'`;
  for(@scsi){
        chomp $scsi[$n];
        /^(.+):(.+)/;
        $device=$1;
        $description=$2;
    @lsattr=`lsattr -EOl $device -a 'size_in_mb'`;
        for (@lsattr){
          if (! /^#/ ){
            $capacity= $_;
            chomp($capacity);$capacity =~ s/(\s+)$//;
          }
        }
        for (@lsvpd){
          if(/^AX $device/){$flag=1}
          if ((/^MF (.+)/) && $flag){$manufacturer=$1;chomp($manufacturer);$manufacturer =~ s/(\s+)$//;}
          if ((/^TM (.+)/) && $flag){$model=$1;chomp($model);$model =~ s/(\s+)$//;}
          if ((/^FN (.+)/) && $flag){$FRU=$1;chomp($FRU);$FRU =~ s/(\s+)$//;$manufacturer .= ",FRU number :".$FRU}
          if ((/^FC .+/) && $flag) {$flag=0;last}
        }
        $common->addStorages({
          NAME => $device,
          MANUFACTURER => $manufacturer,
          MODEL => $model,
          DESCRIPTION => $description,
          TYPE => 'disk',
          DISKSIZE => $capacity
    });
        $n++;
  }