#!/afs/athena/contrib/perl/perl

# $Id: resolv_axfr.pl,v 1.3 92/11/29 22:06:29 marc Exp $

unshift(@INC,"/afs/athena.mit.edu/user/m/a/marc/perl");

require 'resolv.pl';

$domainsrv = "161.53.8.10";
$dom = "math.hr";
$debug = &RES_DEBUG;

if (! $domainsrv) {
    die "No domain server for domain $dom\n";
}

print "Using server $domainsrv for domain $dom\n\n";

$res'options |= &RES_USEVC | &RES_STAYOPEN | $debug;

$ns = &res_open($domainsrv);
$q = &res_mkquery($dom,"AXFR","IN");

@ans = &res_send($ns, $q);
die "Error in domain transfer: $ans[3]\n" if $ans[3];

print join("\n",@ans[$ans[6]..($ans[6]+$ans[7]+$ans[9]+$ans[11]-1)]),"\n";

@ans = &res_send($ns, "");
while($ans[5] == 0) {
    print join("\n",@ans[$ans[6]..($ans[6]+$ans[7]-1)]),"\n";
    @ans = &res_send($ns, "");
}