Context Navigation

export.pl@ 261

Last change on this file since 261 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

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
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.