3748. [func] Use delve to test dns_client interfaces. [RT #35383]

This commit is contained in:
Mark Andrews
2014-02-19 19:33:21 +11:00
parent 7f5bdf7f40
commit 7e2e41df67
5 changed files with 80 additions and 83 deletions

View File

@@ -71,8 +71,3 @@ cp managed.conf ../ns4/managed.conf
keyid=`expr $keyname : 'K.+001+\(.*\)'`
keyid=`expr $keyid + 0`
echo "$keyid" > managed.key.id
cat $keyname.key | grep -v '^; ' | $PERL -n -e '
local ($dn, $class, $type, $flags, $proto, $alg, @rest) = split;
local $key = join("", @rest);
print "-a $alg -e -k $dn -K $key\n"
' > resolve.key