LOL!!! That's GREAT BDC!
I knew that was going to show up somewhere! My tounge still has a sweater on it from Saturday! ( and my damned head still hurts )
To top it off, this is the kind of crap I'm piling through today:
foreach $switchname (sort keys %switches){
$grading{'Nashville'}{'Switches'}{$switchname}{'Fabric'}=$switches{$switchname}{'Fabric'};
#Get the Total Switch Ports
$switchtotal=($switches{$switchname}{'Other_Count'}+$switches{$switchname}{'Offline_Count'}+$s
witches{$switchname}{'Online_Count'});
#Calculate Percent Util
my $percentutil=(($switches{$switchname}{'Online_Count'}/$switchtotal)*100);
#Check the percent Utilization of the switch for grading
if($percentutil > 95){
my $value = ">95,2,2";
$grading{'Nashville'}{'Switches'}{$switchname}{'Classifications'}{'Capacity'}{'Risk_Point'}=
$value;
$grading{'Nashville'}{'Switches'}{$switchname}{'Switch_Total'}+=4;
$grading{'Nashville'}{'Switch_Point_Total'}+=4;
$grading{'Nashville'}{'Nashville_Point_Total'}+=4;
}elsif($percentutil > 85){
my $value = ">85,1,2";
$grading{'Nashville'}{'Switches'}{$switchname}{'Classifications'}{'Capacity'}{'Risk_Point'}=
$value;
$grading{'Nashville'}{'Switches'}{$switchname}{'Switch_Total'}+=2;
$grading{'Nashville'}{'Switch_Point_Total'}+=2;
$grading{'Nashville'}{'Nashville_Point_Total'}+=2;
}elsif($percentutil > 75){
my $value = ">75,1,1";
$grading{'Nashville'}{'Switches'}{$switchname}{'Classifications'}{'Capacity'}{'Risk_Point'}=
$value;
$grading{'Nashville'}{'Switches'}{$switchname}{'Switch_Total'}+=1;
$grading{'Nashville'}{'Switch_Point_Total'}+=1;
$grading{'Nashville'}{'Nashville_Point_Total'}+=1;
}
#Check to see if the firmware is standard
#Real Question is what is the Standard!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
if(($switches{$switchname}{'Fabric_OS'} ne "v4.2.2") and ($switches{$switchname}{'Fabric_OS'}
ne "v4.2.0b") and ($switches{$switchname}{'Fabric_OS'} ne "v4.2.0b")){
my $value = "Firmware_Not_Standard,1,2";
$grading{'Nashville'}{'Switches'}{$switchname}{'Classifications'}{'Firmware_not_Standard'}{'
Risk_Point'}=$value;
$grading{'Nashville'}{'Switches'}{$switchname}{'Switch_Total'}+=2;
$grading{'Nashville'}{'Switch_Point_Total'}+=2;
$grading{'Nashville'}{'Nashville_Point_Total'}+=2;
}
foreach $port (sort keys %{$switches{$switchname}{'Ports'}}){
#Check for L-Ports