X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fdbexport.pl;fp=cmd%2Fdbexport.pl;h=27482e05c8c891a59d691f357a6d44c915aeb827;hb=75987f0dbcbba4fc2bb5a378d14e2fbdb2e30e34;hp=0000000000000000000000000000000000000000;hpb=059fb24925845865ca791ba53bb540444931f280;p=spider.git

diff --git a/cmd/dbexport.pl b/cmd/dbexport.pl
new file mode 100644
index 00000000..27482e05
--- /dev/null
+++ b/cmd/dbexport.pl
@@ -0,0 +1,29 @@
+#!/usr/bin/perl
+#
+# Database export routine
+#
+# Copyright (c) 2010 Dirk Koopman G1TLH
+#
+my ($self, $line) = @_;
+my ($name, $fn) = split /\s+/, $line;
+return (1, $self->msg('e5')) if $self->priv < 9;
+return (1, "dbexport: <database name> <pathname to export to>") unless $name && $fn;
+
+my @out;
+
+my $db = DXDb::getdesc($name);
+return (1, $self->msg('db3', $name)) unless $db;
+return (1, $self->msg('db1', $db->remote )) if $db->remote;
+my $of = IO::File->new(">$fn") or return(1, $self->msg('e30', $fn));
+
+$db->open;						# make sure we are open
+my ($r, $k, $v, $flg, $count);
+for ($flg = R_FIRST; !$db->{db}->seq($k, $v, $flg); $flg = R_NEXT) {
+	$of->print("$k\n$v\&\&\n");
+	++$count;
+}
+$of->close;
+return(0, $self->msg("db13", $count, $name, $fn));
+
+
+