(12:08:06)(foobarbaz)(~) bowie : ./ultraviolet.pl bogonvio1 bogonvio2

Ultraviolet: Starting up..
Ultraviolet: Collecting configuration info from bogonvio1 and bogonvio2..........
Ultraviolet: Sorting things out.....
Ultraviolet: Test                  Result  Notes
Ultraviolet: -------------------------------------------------------------------------------------------------
Ultraviolet: PV Count              PASS    Overall PV counts are equivalent between VIO servers.
Ultraviolet: PV Match A to B       PASS    All PVIDs present on bogonvio1 are present on bogonvio2.
Ultraviolet: PV Match B to A       PASS    All PVIDs present on bogonvio2 are present on bogonvio1.
Ultraviolet: Active Vhost Count    PASS    The same number of vhosts are active on both VIO servers.
Ultraviolet: Involved LPAR Count   PASS    The same number of of LPARS are involved on both VIO servers.
Ultraviolet: LPARs A to B          PASS    All LPARs mentioned on bogonvio1 are present on bogonvio2.
Ultraviolet: LPARs B to A          PASS    All LPARs mentioned on bogonvio2 are present on bogonvio1.
Ultraviolet: LUN ID Match          FAIL    LUN IDs don't match between bogonvio1 and bogonvio2.
Ultraviolet: Backing Device Match  FAIL    The hdisk enumeration is different between bogonvio1 and bogonvio2.
Ultraviolet:

Ultraviolet: Problems found:
Ultraviolet:
Ultraviolet: Backing device mismatch detected. (foobarbaz_foovg is hdisk59 on bogonvio1, but on bogonvio2 it's hdisk47)
Ultraviolet: Backing device mismatch detected. (foobarbaz_bazvg is hdisk61 on bogonvio1, but on bogonvio2 it's hdisk49)
Ultraviolet: Backing device mismatch detected. (foobarbaz_baz01 is hdisk51 on bogonvio1, but on bogonvio2 it's hdisk39)
Ultraviolet: Backing device mismatch detected. (foobarbaz_baz02 is hdisk52 on bogonvio1, but on bogonvio2 it's hdisk40)
Ultraviolet: Backing device mismatch detected. (foobarbaz_baz03 is hdisk53 on bogonvio1, but on bogonvio2 it's hdisk41)
Ultraviolet: Backing device mismatch detected. (foobarbaz_baz04 is hdisk54 on bogonvio1, but on bogonvio2 it's hdisk42)
Ultraviolet: Backing device mismatch detected. (foobarbaz_baz05 is hdisk55 on bogonvio1, but on bogonvio2 it's hdisk43)
Ultraviolet: Backing device mismatch detected. (foobarbaz_baz06 is hdisk56 on bogonvio1, but on bogonvio2 it's hdisk44)
Ultraviolet: Backing device mismatch detected. (foobarbaz_baz07 is hdisk57 on bogonvio1, but on bogonvio2 it's hdisk45)
Ultraviolet: Backing device mismatch detected. (foobarbaz_foovg is hdisk62 on bogonvio1, but on bogonvio2 it's hdisk50)
Ultraviolet: Backing device mismatch detected. (foobarbaz_foovg is hdisk58 on bogonvio1, but on bogonvio2 it's hdisk46)
Ultraviolet: Backing device mismatch detected. (bazfoobar_foovg is hdisk63 on bogonvio1, but on bogonvio2 it's hdisk52)
Ultraviolet: Backing device mismatch detected. (bazfoobar_baz01 is hdisk16 on bogonvio1, but on bogonvio2 it's hdisk18)
Ultraviolet: Backing device mismatch detected. (bazfoobar_baz02 is hdisk17 on bogonvio1, but on bogonvio2 it's hdisk19)
Ultraviolet: Backing device mismatch detected. (bazfoobar_baz04 is hdisk31 on bogonvio1, but on bogonvio2 it's hdisk32)
Ultraviolet: Backing device mismatch detected. (bazfoobar_baz05 is hdisk32 on bogonvio1, but on bogonvio2 it's hdisk35)
Ultraviolet: Backing device mismatch detected. (bazfoobar_baz06 is hdisk50 on bogonvio1, but on bogonvio2 it's hdisk38)
Ultraviolet: Backing device mismatch detected. (bazfoobar_foovg is hdisk64 on bogonvio1, but on bogonvio2 it's hdisk53)
Ultraviolet: Backing device mismatch detected. (bazfoobar_foovg is hdisk65 on bogonvio1, but on bogonvio2 it's hdisk54)
Ultraviolet: Backing device mismatch detected. (bazbazfoo_bazfoo is hdisk36 on bogonvio1, but on bogonvio2 it's hdisk37)
Ultraviolet: Backing device mismatch detected. (bazbazfoo_bazfoo1 is hdisk37 on bogonvio1, but on bogonvio2 it's hdisk51)
Ultraviolet: Backing device mismatch detected. (bazbazfoo_bazfoo2 is hdisk116 on bogonvio1, but on bogonvio2 it's hdisk105)
Ultraviolet: Backing device mismatch detected. (bazbazfoo_bazfoo3 is hdisk117 on bogonvio1, but on bogonvio2 it's hdisk106)
Ultraviolet: Backing device mismatch detected. (bazbazfoo_bazfoo4 is hdisk118 on bogonvio1, but on bogonvio2 it's hdisk107)
Ultraviolet: Backing device mismatch detected. (bazbazfoo_foo01 is hdisk119 on bogonvio1, but on bogonvio2 it's hdisk108)
Ultraviolet: Backing device mismatch detected. (bazbazfoo_foo is hdisk35 on bogonvio1, but on bogonvio2 it's hdisk36)
Ultraviolet: Backing device mismatch detected. (bazbarfoo92_bar01 is hdisk14 on bogonvio1, but on bogonvio2 it's hdisk13)
Ultraviolet: Backing device mismatch detected. (bazbarfoo92_bar02 is hdisk18 on bogonvio1, but on bogonvio2 it's hdisk14)
Ultraviolet: Backing device mismatch detected. (bazbarfoo92_bar03 is hdisk19 on bogonvio1, but on bogonvio2 it's hdisk15)
Ultraviolet: Backing device mismatch detected. (bazbarfoo92_bar04 is hdisk20 on bogonvio1, but on bogonvio2 it's hdisk16)
Ultraviolet: Backing device mismatch detected. (bazbarfoo92_bar01 is hdisk1 on bogonvio1, but on bogonvio2 it's hdisk0)
Ultraviolet: Backing device mismatch detected. (bazbarfoo92_bar02 is hdisk11 on bogonvio1, but on bogonvio2 it's hdisk1)
Ultraviolet: Backing device mismatch detected. (bazbarfoo92_bar03 is hdisk12 on bogonvio1, but on bogonvio2 it's hdisk3)
Ultraviolet: Backing device mismatch detected. (bazbarfoo92_bar04 is hdisk13 on bogonvio1, but on bogonvio2 it's hdisk12)
Ultraviolet: Backing device mismatch detected. (bazbarfoo_foo01 is hdisk130 on bogonvio1, but on bogonvio2 it's hdisk119)
Ultraviolet: Backing device mismatch detected. (bazbarfoo_barvg is hdisk129 on bogonvio1, but on bogonvio2 it's hdisk118)
Ultraviolet: Backing device mismatch detected. (bazbarfoo_foovg is hdisk15 on bogonvio1, but on bogonvio2 it's hdisk17)
Ultraviolet: Backing device mismatch detected. (bazbarfoo_foo01 is hdisk136 on bogonvio1, but on bogonvio2 it's hdisk125)
Ultraviolet: Backing device mismatch detected. (bazbarfoo_foo02 is hdisk137 on bogonvio1, but on bogonvio2 it's hdisk126)
Ultraviolet: Backing device mismatch detected. (bazbarfoo_foo03 is hdisk138 on bogonvio1, but on bogonvio2 it's hdisk127)
Ultraviolet: Backing device mismatch detected. (bazbarfoo_baz01 is hdisk139 on bogonvio1, but on bogonvio2 it's hdisk128)
Ultraviolet: Backing device mismatch detected. (bazbarfoo_baz02 is hdisk140 on bogonvio1, but on bogonvio2 it's hdisk129)
Ultraviolet: Backing device mismatch detected. (bazbarfoo_baz03 is hdisk141 on bogonvio1, but on bogonvio2 it's hdisk130)
Ultraviolet: Backing device mismatch detected. (foobarfoo_bar01 is hdisk3 on bogonvio1, but on bogonvio2 it's hdisk4)
Ultraviolet: Backing device mismatch detected. (foobarfoo_bar02 is hdisk4 on bogonvio1, but on bogonvio2 it's hdisk5)
Ultraviolet: Backing device mismatch detected. (foobarfoo_bar03 is hdisk5 on bogonvio1, but on bogonvio2 it's hdisk6)
Ultraviolet: Backing device mismatch detected. (foobarfoo_bar04 is hdisk6 on bogonvio1, but on bogonvio2 it's hdisk7)
Ultraviolet: Backing device mismatch detected. (barbazfoo_barvg is hdisk115 on bogonvio1, but on bogonvio2 it's hdisk104)
Ultraviolet: Backing device mismatch detected. (barbazfoo_bazfoo is hdisk109 on bogonvio1, but on bogonvio2 it's hdisk83)
Ultraviolet: Backing device mismatch detected. (barbazfoo_bazfoo1 is hdisk110 on bogonvio1, but on bogonvio2 it's hdisk84)
Ultraviolet: Backing device mismatch detected. (barbazfoo_bazfoo2 is hdisk111 on bogonvio1, but on bogonvio2 it's hdisk85)
Ultraviolet: Backing device mismatch detected. (barbazfoo_bazfoo3 is hdisk112 on bogonvio1, but on bogonvio2 it's hdisk88)
Ultraviolet: Backing device mismatch detected. (barbazfoo_bazfoo4 is hdisk113 on bogonvio1, but on bogonvio2 it's hdisk102)
Ultraviolet: Backing device mismatch detected. (barbazfoo_foo01 is hdisk114 on bogonvio1, but on bogonvio2 it's hdisk103)
Ultraviolet: Backing device mismatch detected. (barbazfoo_foovg is hdisk60 on bogonvio1, but on bogonvio2 it's hdisk80)
Ultraviolet: Backing device mismatch detected. (barbarfoo_baz01 is hdisk122 on bogonvio1, but on bogonvio2 it's hdisk111)
Ultraviolet: Backing device mismatch detected. (barbarfoo_baz02 is hdisk123 on bogonvio1, but on bogonvio2 it's hdisk112)
Ultraviolet: Backing device mismatch detected. (barbarfoo_baz03 is hdisk124 on bogonvio1, but on bogonvio2 it's hdisk113)
Ultraviolet: Backing device mismatch detected. (barbarfoo_foovg is hdisk125 on bogonvio1, but on bogonvio2 it's hdisk114)
Ultraviolet: Backing device mismatch detected. (barbarfoo_bar01 is hdisk7 on bogonvio1, but on bogonvio2 it's hdisk8)
Ultraviolet: Backing device mismatch detected. (barbarfoo_bar02 is hdisk8 on bogonvio1, but on bogonvio2 it's hdisk9)
Ultraviolet: Backing device mismatch detected. (barbarfoo_bar03 is hdisk9 on bogonvio1, but on bogonvio2 it's hdisk10)
Ultraviolet: Backing device mismatch detected. (barbarfoo_bar04 is hdisk10 on bogonvio1, but on bogonvio2 it's hdisk11)
Ultraviolet: LUN Name-to-ID mismatch detected. (foobarfoo_bar01 has a LUN ID of 0x8400000000000000 on bogonvio1, but on bogonvio2 it's 0x8500000000000000)
Ultraviolet: LUN Name-to-ID mismatch detected. (foobarfoo_bar02 has a LUN ID of 0x8500000000000000 on bogonvio1, but on bogonvio2 it's 0x8800000000000000)
Ultraviolet: LUN Name-to-ID mismatch detected. (foobarfoo_bar03 has a LUN ID of 0x8800000000000000 on bogonvio1, but on bogonvio2 it's 0x8900000000000000)
Ultraviolet: LUN Name-to-ID mismatch detected. (foobarfoo_bar04 has a LUN ID of 0x8900000000000000 on bogonvio1, but on bogonvio2 it's 0x8a00000000000000)
Ultraviolet: LUN Name-to-ID mismatch detected. (barbazfoo_barvg has a LUN ID of 0x9100000000000000 on bogonvio1, but on bogonvio2 it's 0x8d00000000000000)
Ultraviolet: LUN Name-to-ID mismatch detected. (barbazfoo_bazfoo has a LUN ID of 0x8b00000000000000 on bogonvio1, but on bogonvio2 it's 0x8f00000000000000)
Ultraviolet: LUN Name-to-ID mismatch detected. (barbazfoo_bazfoo1 has a LUN ID of 0x8c00000000000000 on bogonvio1, but on bogonvio2 it's 0x9000000000000000)
Ultraviolet: LUN Name-to-ID mismatch detected. (barbazfoo_bazfoo2 has a LUN ID of 0x8d00000000000000 on bogonvio1, but on bogonvio2 it's 0x9100000000000000)
Ultraviolet: LUN Name-to-ID mismatch detected. (barbazfoo_bazfoo3 has a LUN ID of 0x8e00000000000000 on bogonvio1, but on bogonvio2 it's 0x9200000000000000)
Ultraviolet: LUN Name-to-ID mismatch detected. (barbazfoo_bazfoo4 has a LUN ID of 0x8f00000000000000 on bogonvio1, but on bogonvio2 it's 0x8b00000000000000)
Ultraviolet: LUN Name-to-ID mismatch detected. (barbazfoo_foo01 has a LUN ID of 0x9000000000000000 on bogonvio1, but on bogonvio2 it's 0x8c00000000000000)
Ultraviolet: LUN Name-to-ID mismatch detected. (barbazfoo_foovg has a LUN ID of 0x9200000000000000 on bogonvio1, but on bogonvio2 it's 0x8e00000000000000)
Ultraviolet: LUN Name-to-ID mismatch detected. (barbarfoo_bar01 has a LUN ID of 0x8a00000000000000 on bogonvio1, but on bogonvio2 it's 0x8b00000000000000)
Ultraviolet: LUN Name-to-ID mismatch detected. (barbarfoo_bar02 has a LUN ID of 0x8b00000000000000 on bogonvio1, but on bogonvio2 it's 0x8c00000000000000)
Ultraviolet: LUN Name-to-ID mismatch detected. (barbarfoo_bar03 has a LUN ID of 0x8c00000000000000 on bogonvio1, but on bogonvio2 it's 0x8300000000000000)
Ultraviolet: LUN Name-to-ID mismatch detected. (barbarfoo_bar04 has a LUN ID of 0x8300000000000000 on bogonvio1, but on bogonvio2 it's 0x8400000000000000)


##</code><code>##

#!/usr/bin/perl
##
## Ultraviolet 0.1 written 060613 by Bowie Poag
##
## Ultraviolet examines two VIO servers and attempts to divine if their configurations are logically equivalent.
## If not, it reports the discrepancies.
##
## Usage: ultraviolet.pl <vioA> <vioB>
##
## Example: ultraviolet.pl argonvioA.foo.com argonvioB.foo.com
##
##

use Data::Dumper;

## The above dependency is optional. It's only there in the event you wish to examine the hash visually... in which case, set $DEBUG to 1.

$DEBUG=0;
$vioA=$ARGV[0];
$vioB=$ARGV[1];

gatherConfigurations();
buildConfigHashes();
compareContents();
reportAnyProblems();

sub gatherConfigurations()
{
     print "\nUltraviolet: Starting up..\n";
     print "Ultraviolet: Collecting configuration info from $vioA and $vioB..";
     @lsmapDumpA=vioCommand("vio",$vioA,"lsmap -all");
     print "..";
     @templspvDumpA=vioCommand("vio",$vioA,"lspv");
     print "..";
     @lsmapDumpB=vioCommand("vio",$vioB,"lsmap -all");
     print "..";
     @templspvDumpB=vioCommand("vio",$vioB,"lspv");
     print "..\n";

     ## We don't care about hdisk enumeration, so, let's get that out of the way.

     foreach $item (@templspvDumpA)
     {
          chomp($item);
          $item=~s/hdisk\d+\s+//g;
          $item=~s/\s+/ /g;
          $item=~s/None//g;
          if ($item=~/None/i)
          {
               push (@lspvDumpA,$item);
          }
     }

     foreach $item (@templspvDumpB)
     {
          chomp($item);
          $item=~s/hdisk\d+\s+//g;
          $item=~s/\s+/ /g;
          $item=~s/None//g;
          if ($item=~/None/i)
          {
               push (@lspvDumpB,$item);
          }
     }

     @lspvDumpA=sort @lspvDumpA;
     @lspvDumpB=sort @lspvDumpB;

     $vioAPVCount=scalar @lspvDumpA;
     $vioBPVCount=scalar @lspvDumpB;

     if ($DEBUG==1)
     {
          foreach $item (@lspvDumpA)
          {
               print "Ultraviolet: $vioA LSPV: $item\n";
          }

          foreach $item (@lspvDumpB)
          {
               print "Ultraviolet: $vioB LSPV: $item\n";
          }
     }
}


sub compareContents()
{
     $numValidPVIDs=0;

     printf ("Ultraviolet: %-20s  %-6s  %-50s\n","Test","Result","Notes");
     print "Ultraviolet: -------------------------------------------------------------------------------------------------\n";

     ##
     ## PV Count Test.
     ##

     if ($vioAPVCount!=$vioBPVCount)
     {
          printf ("Ultraviolet: %-20s  %-6s  %-50s\n","PV Count","FAIL","Mismatch detected!");
          push (@problems,"The number of PVs differs between $vioA and $vioB. $vioA has $vioAPVCount PVs, and $vioB has $vioBPVCount PVs. Both should be equal.\n");
     }
     else
     {
          printf ("Ultraviolet: %-20s  %-6s  %-50s\n","PV Count","PASS","Overall PV counts are equivalent between VIO servers.");
     }

     ## 
     ## PVID A-to-B Match Test
     ##

     foreach $item (@lspvDumpA)
     {
          if (grep(/$item/,@lspvDumpB))
          {
               $numValidPVIDs++;
          }
     }

     if ($numValidPVIDs==$vioAPVCount)
     {
               printf ("Ultraviolet: %-20s  %-6s  %-50s\n","PV Match A to B","PASS","All PVIDs present on $vioA are present on $vioB.");
     }
     else
     {
               printf ("Ultraviolet: %-20s  %-6s  %-50s\n","PV Match A to B","FAIL","One or more PVIDs found on $vioA were not found on $vioB.");
               push (@problems,"PVID $item exists on $vioA, but does not exist on $vioB\n");
     }

     $numValidPVIDs=0;

     ## 
     ## PVID B-to-A Match Test
     ##

   foreach $item (@lspvDumpB)
     {
          if (grep(/$item/,@lspvDumpA))
          {
               $numValidPVIDs++;
          }
     }

     if ($numValidPVIDs==$vioBPVCount)
     {
          printf ("Ultraviolet: %-20s  %-6s  %-50s\n","PV Match B to A","PASS","All PVIDs present on $vioB are present on $vioA.");
     }
     else
     {
          printf ("Ultraviolet: %-20s  %-6s  %-50s\n","PV Match B to A","FAIL","One or more PVIDs found on $vioB were not found on $vioA.");
          push (@problems,"PVID $item exists on $vioB, but does not exist on $vioA\n");
     }

     ##
     ## Vhost Count Test
     ##

     $numActiveVhostsA=scalar(keys %vioA);
     $numActiveVhostsB=scalar(keys %vioB);

     if ($numActiveVhostsA==$numActiveVhostsB)
     {
          printf ("Ultraviolet: %-20s  %-6s  %-50s\n","Active Vhost Count","PASS","The same number of vhosts are active on both VIO servers.");
     }
     else
     {
          printf ("Ultraviolet: %-20s  %-6s  %-50s\n","Active Vhost Count","FAIL","$vioA and $vioB have differing numbers of vhosts with storage mapped to them.");
          push (@problems,"The number of vhosts with storage mapped to them differs between $vioA and $vioB.. $numActiveVhostsA and $numActiveVhostsB, respectively.");
     }

     ##
     ## LPAR Count Test
     ##

     $LPARCountA=0;
     $LPARCountB=0;

     foreach $item (sort keys %vioA)
     {
          $LPARCountA++;
     }

     foreach $item (sort keys %vioB)
     {
          $LPARCountB++;
     }

     if ($LPARCountA==$LPARCountB)
     {
          printf ("Ultraviolet: %-20s  %-6s  %-50s\n","Involved LPAR Count","PASS","The same number of of LPARS are involved on both VIO servers.");
     }
     else
     {
          printf ("Ultraviolet: %-20s  %-6s  %-50s\n","Involved LPAR Count","FAIL","The VIO servers have differing numbers of LPARs involved..$LPARCountA and $LPARCountB, respectively.");
          push (@problems,"The number of LPARs that have storage mapped to them differ in number between $vioA and $vioB." );
     }

     @LPARsOnA=sort keys %vioA;
     @LPARsOnB=sort keys %vioB;

     $numValidLPARs=0;
     foreach $item (@LPARsOnA)
     {
          if (grep(/$item/,@LPARsOnB))
          {
               $numValidLPARs++;
          }
     }

     if ($numValidLPARs==$LPARCountA)
     {
          printf ("Ultraviolet: %-20s  %-6s  %-50s\n","LPARs A to B","PASS","All LPARs mentioned on $vioA are present on $vioB.");
     }
     else
     {
          printf ("Ultraviolet: %-20s  %-6s  %-50s\n","LPARs A to B","FAIL","Not all LPARs mentioned on $vioA are present on $vioB.");
          push (@problems,"Not all LPARs mentioned on $vioA are present on $vioB." );
     }

     $numValidLPARs=0;

     foreach $item (@LPARsOnB)
     {
          if (grep(/$item/,@LPARsOnA))
          {
               $numValidLPARs++;
          }
     }

     if ($numValidLPARs==$LPARCountB)
     {
          printf ("Ultraviolet: %-20s  %-6s  %-50s\n","LPARs B to A","PASS","All LPARs mentioned on $vioB are present on $vioA.");
     }
     else
     {
          printf ("Ultraviolet: %-20s  %-6s  %-50s\n","LPARs B to A","FAIL","Not all LPARs mentioned on $vioB are present on $vioA.");
          push (@problems,"Not all LPARs mentioned on $vioB are present on $vioA." );
     }


     ##
     ## Definition Test (status, backingDevice, physLoc, ID..)
     ##

     foreach $LPAR (@LPARsOnA)
     {
          foreach $vhost (keys $vioA{$LPAR})
          {
               foreach $LUN (keys $vioA{$LPAR}{$vhost})
               {
                    if ($vioA{$LPAR}{$vhost}{$LUN}{ID} ne $vioB{$LPAR}{$vhost}{$LUN}{ID})
                    {
                         push (@problems, "LUN Name-to-ID mismatch detected. ($LUN has a LUN ID of $vioA{$LPAR}{$vhost}{$LUN}{ID} on $vioA, but on $vioB it's $vioB{$LPAR}{$vhost}{$LUN}{ID})");
                         $LUNIDMatchTestFail=1;
                    }

                    if ($vioA{$LPAR}{$vhost}{$LUN}{backingDevice} ne $vioB{$LPAR}{$vhost}{$LUN}{backingDevice})
                    {
                         push (@problems, "Backing device mismatch detected. ($LUN is $vioA{$LPAR}{$vhost}{$LUN}{backingDevice} on $vioA, but on $vioB it's $vioB{$LPAR}{$vhost}{$LUN}{backingDevice})");
                         $LUNBackingDeviceTestFail=1;
                    }
               }
          }
     }

     if ($LUNIDMatchTestFail==0)
     {
          printf ("Ultraviolet: %-20s  %-6s  %-50s\n","LUN ID Match","PASS","LUN IDs match between $vioA and $vioB.");
     }
     else
     {
          printf ("Ultraviolet: %-20s  %-6s  %-50s\n","LUN ID Match","FAIL","LUN IDs don't match between $vioA and $vioB.");
     }

     if ($LUNBackingDeviceTestFail==0)
     {
          printf ("Ultraviolet: %-20s  %-6s  %-50s\n","Backing Device Match","PASS","Backing devices match between $vioA and $vioB.");
     }
     else
     {
          printf ("Ultraviolet: %-20s  %-6s  %-50s\n","Backing Device Match","FAIL","The hdisk enumeration is different between $vioA and $vioB.");
     }
}


sub reportAnyProblems()
{
     print "Ultraviolet:\n";
     print "Ultraviolet: Problems found:\n";
     print "Ultraviolet:\n";

     @problems=sort(@problems);

     foreach $item (@problems)
     {
          print "Ultraviolet: $item\n";
     }

}


sub buildConfigHashes()
{
     print "Ultraviolet: Sorting things out..";
     foreach $item (@lsmapDumpA)
     {
          chomp ($item);
          $item=~s/\s+/ /g;
          @tempA=split(" ",$item);

          if ($tempA[0]=~/vhost/)
          {
               $vhost=$tempA[0];
               $LPAR=$tempA[2];
               $DEBUG && print "Ultraviolet: Discovered new vhost on $LPAR: $vhost\n";
          }

          if ($tempA[0]=~/VTD/)
          {
               $LUNName=$tempA[1];

               if ($LUNName=~/NO/)
               {
                    $DEBUG && print "Ultraviolet: No LUNs are mapped to $vhost.\n";
               }
               else
               {
                    $vioA{$LPAR}{$vhost}{$LUNName}{ID}="Unknown";
                    $DEBUG && print "Ultraviolet:      Found new LUN mapping for $vioA $vhost: $LUNName\n";
               }
          }

          if ($tempA[0]=~/Status/)
          {
               $LUNStatus=$tempA[1];
               $vioA{$LPAR}{$vhost}{$LUNName}{status}=$LUNStatus;
               $DEBUG && print "Ultraviolet:           Status for this LUN is: $LUNStatus\n";
          }

          if ($tempA[0]=~/LUN/)
          {
               $LUNID=$tempA[1];
               $vioA{$LPAR}{$vhost}{$LUNName}{ID}=$LUNID;
               $DEBUG && print "Ultraviolet:           LUN ID for for this LUN is: $LUNID\n";
          }

          if ($tempA[0]=~/Backing/)
          {
               $backingDevice=$tempA[2];
               $vioA{$LPAR}{$vhost}{$LUNName}{backingDevice}=$backingDevice;
               $DEBUG && print "Ultraviolet:           Backing device for this LUN is $backingDevice.\n";
          }

          if ($tempA[0]=~/Physloc/)
          {
               $LUNPhysLoc=$tempA[1];
               $vioA{$LPAR}{$vhost}{$LUNName}{physLoc}=$LUNPhysLoc;
               $DEBUG && print "Ultraviolet:           Physical location for this LUN is $LUNPhysLoc.\n";
          }
     }

     print "...";

     foreach $item (@lsmapDumpB)
     {
          chomp ($item);
          $item=~s/\s+/ /g;
          @tempB=split(" ",$item);

          if ($tempB[0]=~/vhost/)
          {
               $vhost=$tempB[0];
               $LPAR=$tempB[2];
               $DEBUG && print "Ultraviolet: Discovered new vhost on $LPAR: $vhost\n";
          }

          if ($tempB[0]=~/VTD/)
          {
               $LUNName=$tempB[1];

               if ($LUNName=~/NO/)
               {
                    $DEBUG && print "Ultraviolet: No LUNs are mapped to $vhost.\n";
               }
               else
               {
                    $vioB{$LPAR}{$vhost}{$LUNName}{ID}="Unknown";
                    $DEBUG && print "Ultraviolet:      Found new LUN mapping for $vioB $vhost: $LUNName\n";
               }
          }

          if ($tempB[0]=~/Status/)
          {
               $LUNStatus=$tempB[1];
               $vioB{$LPAR}{$vhost}{$LUNName}{status}=$LUNStatus;
               $DEBUG && print "Ultraviolet:           Status for this LUN is: $LUNStatus\n";
          }

          if ($tempB[0]=~/LUN/)
          {
               $LUNID=$tempB[1];
               $vioB{$LPAR}{$vhost}{$LUNName}{ID}=$LUNID;
               $DEBUG && print "Ultraviolet:           LUN ID for for this LUN is: $LUNID\n";
          }

          if ($tempB[0]=~/Backing/)
          {
               $backingDevice=$tempB[2];
               $vioB{$LPAR}{$vhost}{$LUNName}{backingDevice}=$backingDevice;
               $DEBUG && print "Ultraviolet:           Backing device for this LUN is $backingDevice.\n";
          }

          if ($tempB[0]=~/Physloc/)
          {
               $LUNPhysLoc=$tempB[1];
               $vioB{$LPAR}{$vhost}{$LUNName}{physLoc}=$LUNPhysLoc;
               $DEBUG && print "Ultraviolet:           Physical location for this LUN is $LUNPhysLoc.\n";
          }
     }

     print "\n";
     ##$DEBUG && print Dumper (\%vioB);
     ##$DEBUG && print "\n-----------------------------------------------------------\n";
     ##$DEBUG && print Dumper (\%vioB);
}


sub vioCommand($$$)
{

     my $cmdType=shift;
     my $vioServer=shift;
     my $cmdStr=shift;
     my $sshCmd='';

     if ($cmdType=~/aix/i)
     {
          $sshCmd="echo \"$cmdStr\" | ioscli oem_setup_env";
     }
     elsif ($cmdType=~/vio/i)
     {
          $sshCmd="ioscli $cmdStr";
     }
     else
     {
          die ("Improper command type.\n");
     }

     my @retvalue=`ssh padmin\@$vioServer '$sshCmd'`;
     chomp(@retvalue);
     return @retvalue;
}