Changeset 4905 for trunk/Nebulous/bin/neb-initdb
- Timestamp:
- Aug 30, 2005, 2:05:05 PM (21 years ago)
- File:
-
- 1 edited
-
trunk/Nebulous/bin/neb-initdb (modified) (4 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/Nebulous/bin/neb-initdb
r4897 r4905 3 3 # Copyright (C) 2005 Joshua Hoblitt 4 4 # 5 # $Id: neb-initdb,v 1. 2 2005-08-30 00:04:04jhoblitt Exp $5 # $Id: neb-initdb,v 1.3 2005-08-31 00:05:05 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; … … 18 18 19 19 my ($db, $dbuser, $dbpass); 20 21 $db = $ENV{'NEB_DB'} unless $db; 22 $dbuser = $ENV{'NEB_USER'} unless $dbuser; 23 $dbpass = $ENV{'NEB_PASS'} unless $dbpass; 24 20 25 GetOptions( 21 26 'db=s' => \$db, … … 91 96 =back 92 97 98 =head1 ENVIRONMENT 99 100 These environment variables may be used in place of the specified command line 101 options. All command line option will override the corresponding environment 102 value. 103 104 =over 4 105 106 =item * C<NEB_DB> 107 108 Equivalent to --db|-d 109 110 =item * C<NEB_USER> 111 112 Equivalent to --user|-u 113 114 =item * C<NEB_PASS> 115 116 Equivalent to --pass|-p 117 118 =back 119 93 120 =head1 CREDITS 94 121
Note:
See TracChangeset
for help on using the changeset viewer.
