sub new {
   my $class = shift;
   my $self = {
                  coreID => 0,
                  isBpMaskError => 0,
                  isVrrpErrors => 0,
                  isSymPriorityErrors => 0,
                  isSslProfileErrors => 0,
                  isGlobalPortErrors => 0,
                  isVipsinVipGroupsErrors => 0,
                  isVipGroupErrors => 0,
                  isSnatIpErrors => 0,
                  isCodeVersionErrors => 0,
                  aclsMissingFromMaster => {},
   };
   
   bless $self, $class;
   return $self;
}