Index: /trunk/Nebulous-Server/bin/neb-initdb =================================================================== --- /trunk/Nebulous-Server/bin/neb-initdb (revision 4896) +++ /trunk/Nebulous-Server/bin/neb-initdb (revision 4897) @@ -1,1 +1,129 @@ #!/usr/bin/env perl + +# Copyright (C) 2005 Joshua Hoblitt +# +# $Id: neb-initdb,v 1.2 2005-08-30 00:04:04 jhoblitt Exp $ + +use strict; +use warnings FATAL => qw( all ); + +use vars qw( $VERSION ); +$VERSION = '0.01'; + +use DBI; +use Nebulous::Server::SQL; + +use Getopt::Long qw( GetOptions :config auto_help auto_version ); +use Pod::Usage qw( pod2usage ); + +my ($db, $dbuser, $dbpass); +GetOptions( + 'db=s' => \$db, + 'user=s' => \$dbuser, + 'pass=s' => \$dbpass, +) || pod2usage( 2 ); + +pod2usage( -msg => "Unknown option: @ARGV", -exitval => 2 ) if @ARGV; +pod2usage( -msg => "Required options: --db --user --pass", -exitval => 2 ) + unless $db && $dbuser && $dbpass; + +my $dbh = DBI->connect( + "DBI:mysql:database=$db:host=localhost", + $dbuser, + $dbpass, + { + RaiseError => 1, + PrintError => 0, + AutoCommit => 1, + }, +); + +my $sql = Nebulous::Server::SQL->new(); + +print "Dropping any existing tables..."; + +foreach my $statement (@{ $sql->get_db_clear }) { + $dbh->do( $statement ); +} + +print " OK\nCreating new tables..."; + +foreach my $statement (@{ $sql->get_db_schema }) { + $dbh->do( $statement ); +} + +print " OK\n"; + +__END__ + +=pod + +=head1 NAME + +neb-initdb - initialize a Nebulous server database + +=head1 SYNOPSIS + + neb-initdb --db --user --pass + +=head1 DESCRIPTION + +This program initialize a database for use by L by creating +the appropriate set of tables. Any pre-existing tables with conflicting names +are first removed. + +=head1 OPTIONS + +=over 4 + +=item * --db|-d + +Name of database (C) to create tables in. + +=item * --user|-u + +Username to authenticate with. + +=item * --pass|-p + +Password to authenticate with. + +=back + +=head1 CREDITS + +Just me, myself, and I. + +=head1 SUPPORT + +Please contact the author directly via e-mail. + +=head1 AUTHOR + +Joshua Hoblitt + +=head1 COPYRIGHT + +Copyright (C) 2005 Joshua Hoblitt. All rights reserved. + +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. + +The full text of the license can be found in the L Pod as supplied +with Perl 5.8.1 and later. + +=head1 SEE ALSO + +L + +=cut Index: /trunk/Nebulous/bin/neb-initdb =================================================================== --- /trunk/Nebulous/bin/neb-initdb (revision 4896) +++ /trunk/Nebulous/bin/neb-initdb (revision 4897) @@ -1,1 +1,129 @@ #!/usr/bin/env perl + +# Copyright (C) 2005 Joshua Hoblitt +# +# $Id: neb-initdb,v 1.2 2005-08-30 00:04:04 jhoblitt Exp $ + +use strict; +use warnings FATAL => qw( all ); + +use vars qw( $VERSION ); +$VERSION = '0.01'; + +use DBI; +use Nebulous::Server::SQL; + +use Getopt::Long qw( GetOptions :config auto_help auto_version ); +use Pod::Usage qw( pod2usage ); + +my ($db, $dbuser, $dbpass); +GetOptions( + 'db=s' => \$db, + 'user=s' => \$dbuser, + 'pass=s' => \$dbpass, +) || pod2usage( 2 ); + +pod2usage( -msg => "Unknown option: @ARGV", -exitval => 2 ) if @ARGV; +pod2usage( -msg => "Required options: --db --user --pass", -exitval => 2 ) + unless $db && $dbuser && $dbpass; + +my $dbh = DBI->connect( + "DBI:mysql:database=$db:host=localhost", + $dbuser, + $dbpass, + { + RaiseError => 1, + PrintError => 0, + AutoCommit => 1, + }, +); + +my $sql = Nebulous::Server::SQL->new(); + +print "Dropping any existing tables..."; + +foreach my $statement (@{ $sql->get_db_clear }) { + $dbh->do( $statement ); +} + +print " OK\nCreating new tables..."; + +foreach my $statement (@{ $sql->get_db_schema }) { + $dbh->do( $statement ); +} + +print " OK\n"; + +__END__ + +=pod + +=head1 NAME + +neb-initdb - initialize a Nebulous server database + +=head1 SYNOPSIS + + neb-initdb --db --user --pass + +=head1 DESCRIPTION + +This program initialize a database for use by L by creating +the appropriate set of tables. Any pre-existing tables with conflicting names +are first removed. + +=head1 OPTIONS + +=over 4 + +=item * --db|-d + +Name of database (C) to create tables in. + +=item * --user|-u + +Username to authenticate with. + +=item * --pass|-p + +Password to authenticate with. + +=back + +=head1 CREDITS + +Just me, myself, and I. + +=head1 SUPPORT + +Please contact the author directly via e-mail. + +=head1 AUTHOR + +Joshua Hoblitt + +=head1 COPYRIGHT + +Copyright (C) 2005 Joshua Hoblitt. All rights reserved. + +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. + +The full text of the license can be found in the L Pod as supplied +with Perl 5.8.1 and later. + +=head1 SEE ALSO + +L + +=cut