Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
ISC Open Source Projects
BIND
Commits
b3725873
Commit
b3725873
authored
Dec 21, 2012
by
Mark Andrews
Browse files
TSIG no longer has a mac_size method; arcount no longer need to be adjusted
parent
cc17f4a6
Changes
1
Hide whitespace changes
Inline
Side-by-side
bin/tests/system/ans.pl
View file @
b3725873
...
...
@@ -162,11 +162,13 @@ sub handleUDP {
# function will attempt to decrement it,
# which is incorrect in a response. Finally
# we set request_mac to the previous digest.
$packet
->
{"
compnames
"}
=
{};
$packet
->
{"
header
"}{"
arcount
"}
+=
1
;
$packet
->
{"
compnames
"}
=
{}
if
(
$
Net::DNS::
VERSION
<
0.70
);
$packet
->
{"
header
"}{"
arcount
"}
+=
1
if
(
$
Net::DNS::
VERSION
<
0.70
);
if
(
defined
(
$prev_tsig
))
{
my
$rmac
=
pack
('
n H*
',
$prev_tsig
->
mac
_size
,
length
(
$prev_tsig
->
mac
)
/
2
,
$prev_tsig
->
mac
);
$tsig
->
{"
request_mac
"}
=
unpack
("
H*
",
$rmac
);
...
...
@@ -356,11 +358,13 @@ sub handleTCP {
# function will attempt to decrement it,
# which is incorrect in a response. Finally
# we set request_mac to the previous digest.
$packet
->
{"
compnames
"}
=
{};
$packet
->
{"
header
"}{"
arcount
"}
+=
1
;
$packet
->
{"
compnames
"}
=
{}
if
(
$
Net::DNS::
VERSION
<
0.70
);
$packet
->
{"
header
"}{"
arcount
"}
+=
1
if
(
$
Net::DNS::
VERSION
<
0.70
);
if
(
defined
(
$prev_tsig
))
{
my
$rmac
=
pack
('
n H*
',
$prev_tsig
->
mac
_size
,
length
(
$prev_tsig
->
mac
)
/
2
,
$prev_tsig
->
mac
);
$tsig
->
{"
request_mac
"}
=
unpack
("
H*
",
$rmac
);
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment