#! /usr/bin/perl
eval 'exec /usr/bin/perl -S $0 ${1+"$@"}' if 0; # not running under some shell

=pod

=head1 NAME

dbMan -- interactive command line SQL shell/console. Curses version.

=head1 SYNOPSIS

	cdbman

=head1 DESCRIPTION

This software provides some functionality in database managing (SQL shell/console). Curses version.

=cut

use strict;
use lib '.';	# where I can find dbMan
use FindBin;
use vars qw/%ENV %SIG/;

BEGIN {
	# some other paths
	unshift @INC,"$FindBin::Bin/../lib";
	unshift @INC,"$FindBin::Bin/lib";
	unshift @INC,"$FindBin::Bin";
}

use DBIx::dbMan;	# main module

$0 = 'cdbman';		# process list name

# main program

# REAPER - if my children fall into zombie status, I kill him
sub REAPER { wait; $SIG{CHLD} = \&REAPER; }  $SIG{CHLD} = \&REAPER;

$ENV{DBMAN_KEYSFILE_INTERNAL} = $ENV{HOME}."/.dbman/keys_curses";

# main object, command line arguments + interface what I want
my $dbman = new DBIx::dbMan (-argv => \@ARGV, -interface => 'curses');

# dbMan starting
$dbman->start;

1;

=head1 VERSION
 
0.36
 
=head1 LICENSE

(c) Copyright 1999-2005 by Milan Sorm <sorm@uikt.mendelu.cz>

All rights reserved.

This program is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

=head1 AUTHOR
 
Milan Sorm, sorm@uikt.mendelu.cz,
Department of Conception and Development
Institute of Information and Communication Technology,
Mendel University of Agriculture and Forestry in Brno, Czech Republic, Europe.

=head1 REPORTING BUGS

Report bugs directly to sorm@uikt.mendelu.cz.
 
=head1 LAST MODIFIED
 
Wed Feb  9 18:45:28 CET 2005

=head1 SEE ALSO
 
DBI(3), dbish(1), Curses(3)

=cut
