Context Navigation

source: trunk/export.pl@ 228

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

/trunk

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

File size: 443 bytes

Rev	Line
[218]	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
	6	use strict;
	7	use warnings;
	8
	9	# don't remove! required for GNU/FHS-ish install from tarball
	10	use lib '.'; ##uselib##
	11
	12	use DNSDB qw(:ALL);
	13
	14	loadConfig();
	15
	16	open TINYDATA, ">tinydata";
	17
	18	my ($dbh,$msg) = connectDB($config{dbname}, $config{dbuser}, $config{dbpass}, $config{dbhost});
	19	initGlobals($dbh);
	20
	21	export($dbh,'tiny',*TINYDATA);

Note: See TracBrowser for help on using the repository browser.