mir/bind
2
0
Fork 0
mirror of https://gitlab.isc.org/isc-projects/bind9 synced 2025-08-29 13:38:26 +00:00
Code Issues Releases Wiki Activity

use $PERL

Browse Source
This commit is contained in:
Mark Andrews 2014-06-24 13:50:14 +10:00
parent a421f4458d
commit 1c95f67232
5 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
bin/tests/system/autosign/tests.sh
View File

@ -27,7 +27,7 @@ showprivate () {
echo "-- $@ --"
$DIG $DIGOPTS +nodnssec +short @$2 -t type65534 $1 | cut -f3 -d' ' |
while read record; do
perl -e 'my $rdata = pack("H*", @ARGV[0]);
$PERL -e 'my $rdata = pack("H*", @ARGV[0]);
die "invalid record" unless length($rdata) == 5;
my ($alg, $key, $remove, $complete) = unpack("CnCC", $rdata);
my $action = "signing";

2
bin/tests/system/dnssec/ns3/sign.sh
View File

@ -66,7 +66,7 @@ $SIGNER -P -r $RANDFILE -o $zone $zonefile > /dev/null 2>&1
# Change the signer field of the a.b.keyless.example SIG A
# to point to a provably nonexistent KEY record.
mv $zonefile.signed $zonefile.tmp
<$zonefile.tmp perl -p -e 's/ keyless.example/ b.keyless.example/
<$zonefile.tmp $PERL -p -e 's/ keyless.example/ b.keyless.example/
if /^a.b.keyless.example/../NXT/;' >$zonefile.signed
rm -f $zonefile.tmp

6
bin/tests/system/dnssec/tests.sh
View File

@ -33,7 +33,7 @@ showprivate () {
echo "-- $@ --"
$DIG $DIGOPTS +nodnssec +short @$2 -t type65534 $1 | cut -f3 -d' ' |
while read record; do
perl -e 'my $rdata = pack("H*", @ARGV[0]);
$PERL -e 'my $rdata = pack("H*", @ARGV[0]);
die "invalid record" unless length($rdata) == 5;
my ($alg, $key, $remove, $complete) = unpack("CnCC", $rdata);
my $action = "signing";
@ -58,7 +58,7 @@ checkprivate () {
# check that a zone file is raw format, version 0
israw0 () {
cat $1 | perl -e 'binmode STDIN;
cat $1 | $PERL -e 'binmode STDIN;
read(STDIN, $input, 8);
($style, $version) = unpack("NN", $input);
exit 1 if ($style != 2 || $version != 0);'
@ -67,7 +67,7 @@ israw0 () {
# check that a zone file is raw format, version 1
israw1 () {
cat $1 | perl -e 'binmode STDIN;
cat $1 | $PERL -e 'binmode STDIN;
read(STDIN, $input, 8);
($style, $version) = unpack("NN", $input);
exit 1 if ($style != 2 || $version != 1);'

10
bin/tests/system/masterformat/tests.sh
View File

@ -18,7 +18,7 @@ SYSTEMTESTTOP=..
. $SYSTEMTESTTOP/conf.sh
ismap () {
perl -e 'binmode STDIN;
$PERL -e 'binmode STDIN;
read(STDIN, $input, 8);
($style, $version) = unpack("NN", $input);
exit 1 if ($style != 3 || $version > 1);' < $1
@ -26,7 +26,7 @@ ismap () {
}
israw () {
perl -e 'binmode STDIN;
$PERL -e 'binmode STDIN;
read(STDIN, $input, 8);
($style, $version) = unpack("NN", $input);
exit 1 if ($style != 2 || $version > 1);' < $1
@ -43,7 +43,7 @@ isfull () {
}
rawversion () {
perl -e 'binmode STDIN;
$PERL -e 'binmode STDIN;
read(STDIN, $input, 8);
if (length($input) < 8) { print "not raw\n"; exit 0; };
($style, $version) = unpack("NN", $input);
@ -52,7 +52,7 @@ rawversion () {
}
sourceserial () {
perl -e 'binmode STDIN;
$PERL -e 'binmode STDIN;
read(STDIN, $input, 20);
if (length($input) < 20) { print "UNSET\n"; exit; };
($format, $version, $dumptime, $flags, $sourceserial) =
@ -66,7 +66,7 @@ sourceserial () {
}
stomp () {
perl -e 'open(my $file, "+<", $ARGV[0]);
$PERL -e 'open(my $file, "+<", $ARGV[0]);
binmode $file;
seek($file, $ARGV[1], 0);
for (my $i = 0; $i < $ARGV[2]; $i++) {

2
bin/tests/system/tsiggss/tests.sh
View File

@ -70,7 +70,7 @@ test_update testdenied.example.nil. TXT "86400 TXT helloworld" "helloworld" || s
echo "I:testing external update policy"
test_update testcname.example.nil. TXT "86400 CNAME testdenied.example.nil" "testdenied" && status=1
perl ./authsock.pl --type=CNAME --path=ns1/auth.sock --pidfile=authsock.pid --timeout=120 > /dev/null 2>&1 &
$PERL ./authsock.pl --type=CNAME --path=ns1/auth.sock --pidfile=authsock.pid --timeout=120 > /dev/null 2>&1 &
sleep 1
test_update testcname.example.nil. TXT "86400 CNAME testdenied.example.nil" "testdenied" || status=1
test_update testcname.example.nil. TXT "86400 A 10.53.0.13" "10.53.0.13" && status=1