]>
git.ipfire.org Git - thirdparty/pdns.git/blob - regression-tests/gsql_feed_ds.pl
7 # usage: feed_ds.pl domain parent pdnsutil sqlcmd
14 die "Usage: $0 domain parent pdnsutil sqlcmd" unless($domain and $parent and $pdnsutil and $sqlcmd);
16 open IN
, "-|", "$pdnsutil show-zone -v $domain 2>&1";
22 if (/DS = (.*) IN DS (.*) ;/) {
25 push @
$recs, [ $1, $2 ]
29 for my $rec (@
$recs) {
30 my ($name,$value) = @
$rec;
33 my $sql = qq(INSERT INTO records
(domain_id
, name
, type
, content
, ttl
, auth
) SELECT id
, '$name', 'DS', '$value', 120, 1 FROM domains WHERE name
= '$parent');