#::#!<%PERL%>

#  dbishell: A generic database shell based on the Perl DBI layer
#  Copyright (C) 2000  Vivek Dasmohapatra (vivek@etla.org)

#  This program is free software; you can redistribute it and/or
#  modify it under the terms of the GNU General Public License
#  as published by the Free Software Foundation; either version 2
#  of the License, or (at your option) any later version.

#  This program is distributed in the hope that it will be useful,
#  but WITHOUT ANY WARRANTY; without even the implied warranty of
#  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#  GNU General Public License for more details.

#  You should have received a copy of the GNU General Public License
#  along with this program; if not, write to the Free Software
#  Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.

#::use lib '<%LDIR%>';

use strict;

use DBIShell::Gtk;
use DBIShell::UTIL qw(:context);

use constant VERSION       => '0.0.01';

use constant LICENSE_BLURB => <<LicenseBlurb;

 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>\\/<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
 >>  gtkdbi  version ${\VERSION}, Copyright (C) 2001 Vivek Dasmohapatra <<
 >>  gtkdbi  comes with ABSOLUTELY NO WARRANTY; for details        <<
 >> type `license'.  This is free software, and you are welcome    <<
 >> to redistribute it under certain conditions; type `license'    <<
 >> for details.                                                   <<
 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>/\\<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

LicenseBlurb

MAIN:
{
    my $SHELL;

    Gtk->init();                         # process Gtk args

    $SHELL = DBIShell::Gtk->new();       # create a shell object thing.
    $SHELL->getopts();                   # prcoces non-gtk args
    $SHELL->start();                     # draw the main panel,

    Gtk->main();
};



#$SHELL->connect()                    # connect to the specified data source
#  || ($SHELL->errputf(CONTEXT_NIL, "%s\n", $SHELL->error),exit());
#warn(LICENSE_BLURB);                 # blah, blah, blah...
#$SHELL->parse_loop();                # that's it: we're initalised: enter
                                     # the despatch loop. dispatch? sp?
#warn(LICENSE_BLURB);                 # blah, blah, blah...
#warn("Thank you for using  gtkdbi ... feedback welcome (vivek\@etla.org)\n");

#my $x = getppid();
#fork() ? exit(0) : kill('WINCH',$x);

__END__

# TLF: Nikola Tesla died for you....

#warn("Right at the start here...\n");
#warn("Created new DBIShell::Gtk\n");