source: trunk/export.pl@ 733

Last change on this file since 733 was 581, checked in by Kris Deugau, 11 years ago

/trunk

Add an option to show the formal .arpa zone name for reverse zone NS
records instead of the logical CIDR zone.

  • Property svn:executable set to *
  • Property svn:keywords set to Date Rev Author Id
File size: 1.1 KB
Line 
1#!/usr/bin/perl
2# Absolutely minimal DNS record export script
3##
4# $Id: export.pl 581 2014-01-02 18:22:11Z kdeugau $
5# Copyright 2012,2013 Kris Deugau <kdeugau@deepnet.cx>
6#
7# This program is free software: you can redistribute it and/or modify
8# it under the terms of the GNU General Public License as published by
9# the Free Software Foundation, either version 3 of the License, or
10# (at your option) any later version.
11#
12# This program is distributed in the hope that it will be useful,
13# but WITHOUT ANY WARRANTY; without even the implied warranty of
14# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15# GNU General Public License for more details.
16#
17# You should have received a copy of the GNU General Public License
18# along with this program. If not, see <http://www.gnu.org/licenses/>.
19##
20
21use strict;
22use warnings;
23
24# don't remove! required for GNU/FHS-ish install from tarball
25use lib '.'; ##uselib##
26
27use DNSDB;
28
29my $dnsdb = new DNSDB;
30
31#open TINYDATA, ">small/tinydata";
32open TINYDATA, ">tinydata";
33
34$dnsdb->export('tiny', *TINYDATA) or die "fatal: ".$dnsdb->errstr."\n";
Note: See TracBrowser for help on using the repository browser.