added production database paramertes to make it work for Ensembl Genomes

misc-scripts/density_feature/gene_density_calc.pl

@@ -27,6 +27,10 @@ my $max_slices = 100;
 
 my ( $host, $user, $pass, $port, $dbname, $pattern  );
 
+my ( $mhost, $mport ) = ( 'ens-staging1', '3306' );
+my ( $muser, $mpass ) = ( 'ensro',        undef );
+my $mdbname = 'ensembl_production';
+
 $port = 3306 ; 
 
 my ( $block_count, $genome_size, $block_size );
@@ -38,6 +42,9 @@ GetOptions(
   "port=i",   \$port,
   "dbname|d=s", \$dbname,
   "pattern=s", \$pattern,
+            "mhost=s", \$mhost,
+            "mport=i", \$mport,
+            "muser=s", \$muser,
   "help" ,               \&usage
 );
 
@@ -128,7 +135,6 @@ foreach my $dbname (@dbnames) {
   my $analysis2 = $aa->fetch_by_logic_name('genedensity');
 
   # Master database location:
-  my ( $mhost, $mport ) = ( 'ens-staging1', '3306' );
   my ( $muser, $mpass ) = ( 'ensro',        undef );
   my $mdbname = 'ensembl_production';
   my $prod_dsn;
@@ -378,6 +384,14 @@ Usage:
 
   -d|dbname            Database name
 
+
+  -mhost              ensembl_production database host to connect to
+
+  -mport              ensembl_production database port to connect to
+
+  -muser              ensembl_production database username
+
+
   -pattern             Database name regexp
 
   -help                This message