Perl Script: Mapping Volumes to Initiator Group

[rfenton4]

Attached is a quick perl script that will list all the unique Initiator Groups and their associated mapped volumes;

Sample output is:

perl ./MappedVolumes.pl

Getting list of volumes on 192.168.1.200

Getting list of Mapped Initiator Groups........................

Initator Group => Volumes Mapped

=================================

bckexec => :bckexec.source:bckexec.target

srv2 => :srv2

exc1 => :exc1-jetstress-db:exc1-jetstress-logs:exc1-logs

sql1 => :sql1-db

srv1 => :srv1

fs1 => :fs1-vol1

bus-nl => :bus-nl-backup:exc1-db

bus-veeam => :bus-veeam-backup

dc1 => :dc1

esx => :esx-ds1:esx-ds2:esx-ds3:esx-ds4:esx-ds5-view-Win7-template:esx-ds6-view-Win7-LinkedClone

bus-cv => :bus-cv:sql1-logs

centos => :centos:centos-iotest-sd

I also posted a Community post on how to setup SSH keys with Nimble OS so scripts can execute without prompting for a password:

https://connect.nimblestorage.com/thread/1345