X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=bp_bin%2Fread_mysql;h=2d8f7b1674c3704cb2bb554554fb703a70505a8a;hb=2f0fd91b461033529a4a72e161bd133252a22eb6;hp=8abc9087434cb1a0a49598515d7d15fbfa535981;hpb=5aed4676ad1bf35abbade6215ac90ee591e6d8fe;p=biopieces.git diff --git a/bp_bin/read_mysql b/bp_bin/read_mysql index 8abc908..2d8f7b1 100755 --- a/bp_bin/read_mysql +++ b/bp_bin/read_mysql @@ -26,6 +26,7 @@ # >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< +use warnings; use strict; use Maasha::Biopieces; use Maasha::SQL; @@ -35,17 +36,17 @@ use Maasha::UCSC; # >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< -my ( $default_user, $default_password, $options, $in, $out, $record, $dbh, $results ); +my ( $user, $password, $options, $in, $out, $record, $dbh, $results ); -$default_user = Maasha::UCSC::ucsc_get_user(); -$default_password = Maasha::UCSC::ucsc_get_password(); +$user = Maasha::Biopieces::biopiecesrc( "MYSQL_USER" ); +$password = Maasha::Biopieces::biopiecesrc( "MYSQL_PASSWORD" ); $options = Maasha::Biopieces::parse_options( [ - { long => 'database', short => 'd', type => 'string', mandatory => 'yes', default => undef, allowed => undef, disallowed => undef }, - { long => 'query', short => 'q', type => 'string', mandatory => 'yes', default => undef, allowed => undef, disallowed => undef }, - { long => 'user', short => 'u', type => 'string', mandatory => 'no', default => $default_user, allowed => undef, disallowed => undef }, - { long => 'password', short => 'p', type => 'string', mandatory => 'no', default => $default_password, allowed => undef, disallowed => undef }, + { long => 'database', short => 'd', type => 'string', mandatory => 'yes', default => undef, allowed => undef, disallowed => undef }, + { long => 'query', short => 'q', type => 'string', mandatory => 'yes', default => undef, 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 }, ] );