Help for this page

Select Code to Download


  1. or download this
    sub lookup {
    my ($ldns, $fqdn) = @_;

...
        push @data_out, "$ldns\t$fqdn\tERROR\tNOT A RECORD\n" if $outf
+ile;
    }
}
  2. or download this
    if (@data_out) {
    open (DATAOUT, ">> $outfile") || die "can't open $outfile: $!";
        print DATAOUT @data_out;
    close DATAOUT;
}
  3. or download this
    foreach $thing (@ns){
    push (@provide, "Unknown");
}
  4. or download this
    if (    $help
    ||  !@ns && !$nsfile
    ||  !@addr && !$addrfile
...
       .
       .
       .