daroche/nginx-otel-nix
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix: small improvements

Browse source
This commit is contained in:
Eugene Grebenschikov 2023-06-08 15:16:49 -07:00
parent 8343ebd635
commit 45e37dfda7
4 changed files with 18 additions and 30 deletions
Download patch file Download diff file Expand all files Collapse all files

18
tests/h2_otel.t
View file

@ -443,18 +443,14 @@ sub get_ssl_socket {
sub get_attr { sub get_attr {
my($attr, $type, $obj) = @_; my($attr, $type, $obj) = @_;
for (keys %{$obj}) { my ($res) = grep {
if ($_ =~ /^attribute\d+/) { $_ =~ /^attribute\d+/ && $$obj{$_}{key} eq '"' . $attr . '"'
if ($$obj{$_}{key} eq '"' . $attr . '"') { } keys %{$obj};
if ($type eq 'string_value') {
$$obj{$_}{value}{$type} =~ s/(^\")|(\"$)//g;
}
return $$obj{$_}{value}{$type}
}
}
}
return undef; $$obj{$res}{value}{$type} =~ s/(^\")|(\"$)//g
if $res && $type eq 'string_value';
return $$obj{$res}{value}{$type};
} }
sub decode_protobuf { sub decode_protobuf {

6
tests/h2_otel_collector.t
View file

@ -449,11 +449,9 @@ sub get_ssl_socket {
sub get_attr { sub get_attr {
my($attr, $type, $obj) = @_; my($attr, $type, $obj) = @_;
for (@{$$obj{"attributes"}}) { my ($res) = grep { $$_{"key"} eq $attr } @{$$obj{"attributes"}};
return $$_{"value"}{$type} if ($$_{"key"} eq $attr);
}
return undef; return $res->{"value"}{$type};
} }
############################################################################### ###############################################################################

18
tests/otel.t
View file

@ -390,18 +390,14 @@ sub get_ssl_socket {
sub get_attr { sub get_attr {
my($attr, $type, $obj) = @_; my($attr, $type, $obj) = @_;
for (keys %{$obj}) { my ($res) = grep {
if ($_ =~ /^attribute\d+/) { $_ =~ /^attribute\d+/ && $$obj{$_}{key} eq '"' . $attr . '"'
if ($$obj{$_}{key} eq '"' . $attr . '"') { } keys %{$obj};
if ($type eq 'string_value') {
$$obj{$_}{value}{$type} =~ s/(^\")|(\"$)//g;
}
return $$obj{$_}{value}{$type}
}
}
}
return undef; $$obj{$res}{value}{$type} =~ s/(^\")|(\"$)//g
if $res && $type eq 'string_value';
return $$obj{$res}{value}{$type};
} }
sub decode_protobuf { sub decode_protobuf {

6
tests/otel_collector.t
View file

@ -394,11 +394,9 @@ sub get_ssl_socket {
sub get_attr { sub get_attr {
my($attr, $type, $obj) = @_; my($attr, $type, $obj) = @_;
for (@{$$obj{"attributes"}}) { my ($res) = grep { $$_{"key"} eq $attr } @{$$obj{"attributes"}};
return $$_{"value"}{$type} if ($$_{"key"} eq $attr);
}
return undef; return $res->{"value"}{$type};
} }
############################################################################### ###############################################################################