source: trunk/export.pl@ 230

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

/trunk

Complete INSTALL (mostly - still unkinking config file stuff)
Add minimal export script

  • Property svn:executable set to *
  • Property svn:keywords set to Id Date Rev Author
File size: 443 bytes
Line 
1#!/usr/bin/perl
2# $Id: export.pl 218 2012-01-05 23:04:18Z kdeugau $
3# Absolutely minimal DNS record export script
4# (C) 2012 - Kris Deugau <kdeugau@deepnet.cx>
5
6use strict;
7use warnings;
8
9# don't remove! required for GNU/FHS-ish install from tarball
10use lib '.'; ##uselib##
11
12use DNSDB qw(:ALL);
13
14loadConfig();
15
16open TINYDATA, ">tinydata";
17
18my ($dbh,$msg) = connectDB($config{dbname}, $config{dbuser}, $config{dbpass}, $config{dbhost});
19initGlobals($dbh);
20
21export($dbh,'tiny',*TINYDATA);
Note: See TracBrowser for help on using the repository browser.