refactoring of assemble_pairs

[biopieces.git] / bp_bin / list_mysql_databases

diff --git a/bp_bin/list_mysql_databases b/bp_bin/list_mysql_databases
index 5c34482c99e728c811ab77c56e59108ac80ba91d..45587d862827ec1b3a07b309936481ede45f9eea 100755 (executable)
--- a/bp_bin/list_mysql_databases
+++ b/bp_bin/list_mysql_databases
@@ -38,13 +38,13 @@ use Maasha::SQL;
 
 my ( $options, $user, $password, @databases, $database );
 
-$user     = $ENV{ "USER" };
-$password = $ENV{ "USER" };
+$user     = Maasha::Biopieces::biopiecesrc( "MYSQL_USER" );
+$password = Maasha::Biopieces::biopiecesrc( "MYSQL_PASSWORD" );
 
 $options = Maasha::Biopieces::parse_options(
     [
-        { long => 'user',     short => 'i', type => 'string', mandatory => 'no', default => $user,     allowed => undef, disallowed => undef },
-        { long => 'password', short => 'n', type => 'string', mandatory => 'no', default => $password, allowed => undef, disallowed => undef },
+        { long => 'user',     short => 'u', type => 'string', mandatory => 'no', default => $user,     allowed => undef, disallowed => undef },
+        { long => 'password', short => 'p', type => 'string', mandatory => 'no', default => $password, allowed => undef, disallowed => undef },
     ]   
 );