source: trunk/export.pl@ 346

Last change on this file since 346 was 262, checked in by Kris Deugau, 13 years ago

/trunk

GPL-tag and normalize headers on scripts and module.
Clean up/correct SVN properties for consistency

  • 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 262 2012-03-04 22:53:54Z kdeugau $
5# Copyright 2012 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 qw(:ALL);
28
29loadConfig();
30
31open TINYDATA, ">tinydata";
32
33my ($dbh,$msg) = connectDB($config{dbname}, $config{dbuser}, $config{dbpass}, $config{dbhost});
34initGlobals($dbh);
35
36export($dbh,'tiny',*TINYDATA);
Note: See TracBrowser for help on using the repository browser.