#!/usr/bin/perl
#
# Name:
#	restore-db.pl.

use strict;
use warnings;

use DBI;
use DBIx::Admin::BackupRestore;
use Error qw/:try/;

# -----------------------------------------------

my($file_name)	= shift || die("Usage: perl restore-db.pl db.xml");

try
{
	my($driver)		= ($^O eq 'MSWin32') ? 'mysql' : 'Pg';
	my($dsn)		= ($driver eq 'mysql') ? 'dbi:mysql:db_name' : 'dbi:Pg:dbname=db_name';
	my($username)	= ($driver eq 'mysql') ? 'root' : 'postgres';
	my($password)	= ($driver eq 'mysql') ? 'pass' : '';
	my($dbh)		= DBI -> connect
	(
		$dsn, $username, $password,
		{
			AutoCommit			=> 1,
			HandleError			=> sub {Error::Simple -> record($_[0]); 0},
			PrintError			=> 0,
			RaiseError			=> 1,
			ShowErrorStatement	=> 1,
		}
	);

	DBIx::Admin::BackupRestore -> new(dbh => $dbh, verbose => 1) -> restore($file_name);
}
catch Error::Simple with
{
	my($error) = $_[0] -> text();
	chomp $error;
	print $error;
};