Changeset 18386 for trunk/Nebulous-Server/bin/neb-initdb
- Timestamp:
- Jun 30, 2008, 12:44:12 PM (18 years ago)
- File:
-
- 1 edited
-
trunk/Nebulous-Server/bin/neb-initdb (modified) (5 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/Nebulous-Server/bin/neb-initdb
r13074 r18386 3 3 # Copyright (C) 2005-2007 Joshua Hoblitt 4 4 # 5 # $Id: neb-initdb,v 1. 7 2007-04-28 01:19:59jhoblitt Exp $5 # $Id: neb-initdb,v 1.8 2008-06-30 22:44:12 jhoblitt Exp $ 6 6 7 7 use strict; … … 9 9 10 10 use vars qw( $VERSION ); 11 $VERSION = '0.0 2';11 $VERSION = '0.03'; 12 12 13 13 use DBI; … … 17 17 use Pod::Usage qw( pod2usage ); 18 18 19 my ($db, $db user, $dbpass);19 my ($db, $dbhost, $dbuser, $dbpass); 20 20 21 21 $db = $ENV{'NEB_DB'} unless $db; 22 $dbhost = $ENV{'NEB_DBHOST'} || 'localhost'; 22 23 $dbuser = $ENV{'NEB_USER'} unless $dbuser; 23 24 $dbpass = $ENV{'NEB_PASS'} unless $dbpass; … … 25 26 GetOptions( 26 27 'db=s' => \$db, 28 'host=s' => \$dbhost, 27 29 'user=s' => \$dbuser, 28 30 'pass=s' => \$dbpass, … … 34 36 35 37 my $dbh = DBI->connect( 36 "DBI:mysql:database=$db:host= localhost",38 "DBI:mysql:database=$db:host=$dbhost", 37 39 $dbuser, 38 40 $dbpass,
Note:
See TracChangeset
for help on using the changeset viewer.
