Changeset 18386 for trunk/Nebulous-Server/bin/neb-addvol
- Timestamp:
- Jun 30, 2008, 12:44:12 PM (18 years ago)
- File:
-
- 1 edited
-
trunk/Nebulous-Server/bin/neb-addvol (modified) (6 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/Nebulous-Server/bin/neb-addvol
r16315 r18386 3 3 # Copyright (C) 2005-2008 Joshua Hoblitt 4 4 # 5 # $Id: neb-addvol,v 1. 8 2008-02-05 23:14:22 eugeneExp $5 # $Id: neb-addvol,v 1.9 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 1';11 $VERSION = '0.02'; 12 12 13 13 use DBI; … … 19 19 use Pod::Usage qw( pod2usage ); 20 20 21 my ($db, $db user, $dbpass, $volume, $uri);21 my ($db, $dbhost, $dbuser, $dbpass, $volume, $uri); 22 22 23 23 $db = $ENV{'NEB_DB'} unless $db; 24 $dbhost = $ENV{'NEB_DBHOST'} || 'localhost'; 24 25 $dbuser = $ENV{'NEB_USER'} unless $dbuser; 25 26 $dbpass = $ENV{'NEB_PASS'} unless $dbpass; … … 27 28 GetOptions( 28 29 'db=s' => \$db, 30 'host=s' => \$dbhost, 29 31 'user=s' => \$dbuser, 30 32 'pass=s' => \$dbpass, … … 38 40 39 41 my $dbh = DBI->connect( 40 "DBI:mysql:database=$db:host= localhost",42 "DBI:mysql:database=$db:host=$dbhost", 41 43 $dbuser, 42 44 $dbpass, … … 129 131 Equivalent to --db|-d 130 132 133 =item * C<NEB_HOST> 134 135 Equivalent to --host 136 131 137 =item * C<NEB_USER> 132 138
Note:
See TracChangeset
for help on using the changeset viewer.
