FormatVersion:  1.0
Name:           sh_bgp_asn_format_ns_cfg__api
ID:             0x013F0003
Version:        1.1
Plane:          shared
Namespace_type: config
Namespaces:     /asn/format
Dependencies: 
int "<span class='error'>\tERROR: $afi/$safi is not supported by the decoder yet</span>\n";
         }

     #
     # IPv4 or IPv6
     #
     } else {
        if ($safi == 128) {
            return hex2VPN_Address($afi, $safi, $str, $mask, $rd_type);
        } else {
            return hex2IP_Address($afi, $safi, $str, $mask);
        }
    }
}

sub hex2VPLS_Address {
   (my $afi, my $safi, my $str) = @_;
   $str =~ /(\w\w\w\w\w\w\w\w\w\w\w\w\w\w\w\w)(\w\w\w\w)(\w\w\w\w)(\w\w\w\w)(\w\w\w\w\w)(\w)(.*)/;
   my $vpls_rd           = $1;
   my $ve_id             = $2;
   my $vbo               = $3;
   my $vbs               = $4;
   my $lb1               = $5;
   my $lb2               = $6;
   my $dummy             = $7;

# scheung
   print "\tVPLS " . hex2VPN_Address($afi, $safi, $vpls_rd, 0, 0) . "\n";
   my $tmp_