ispman/bin ispman.database,NONE,1.1

Update of /cvsroot/ispman/ispman/bin
In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv28788/bin

Added Files:
	ispman.database 
Log Message:
multi functional database cli client 
(work in progress)

--- NEW FILE: ispman.database ---
#!/usr/bin/perl
use lib qw(/usr/share/ispman/lib /usr/share/ispman/ /etc/ispman);
BEGIN {
    use FindBin;
    unshift @INC,
      ( $FindBin::Bin, "$FindBin::Bin/../lib", "$FindBin::Bin/../conf" );
}

use ISPMan;
use Getopt::Std;
use Data::Dumper;

my $action = shift @ARGV;
getopts( 'd:t:p:s:', \%opts );
unless ( $action eq "list" && $opts{'d'} ) {
        print "Syntax:
        print "$FindBin::Script list -d domain\n";
        print "\n";
        exit;
}

my $ispman = ISPMan->new();

print Dumper($ispman->getDatabases($opts{'d'}));

1;

------------------------------------------------------------------------------