From 3da5485bdcf02f4f6ec9fe3fc10d4eb544160375 Mon Sep 17 00:00:00 2001
From: Web Admin <w3adm@sanger.ac.uk>
Date: Tue, 2 Mar 2004 14:44:03 +0000
Subject: [PATCH] update
---
.../density_feature/seq_region_stats.pl | 22 ++++++++++++++-----
1 file changed, 16 insertions(+), 6 deletions(-)
diff --git a/misc-scripts/density_feature/seq_region_stats.pl b/misc-scripts/density_feature/seq_region_stats.pl
index 535784c2d6..a46444e284 100644
--- a/misc-scripts/density_feature/seq_region_stats.pl
+++ b/misc-scripts/density_feature/seq_region_stats.pl
@@ -1,13 +1,24 @@
use strict;
+BEGIN {
+ my $ensembl_root = '/ensweb/wwwdev/server';
+ unshift @INC, "$ensembl_root/modules";
+ unshift @INC, "$ensembl_root/ensembl-draw/modules";
+ unshift @INC, "$ensembl_root/ensembl/modules";
+ unshift @INC, "$ensembl_root/ensembl-external/modules";
+ unshift @INC, "$ensembl_root/ensembl-map/modules";
+ unshift @INC, "$ensembl_root/ensembl-compara/modules";
+ unshift @INC, "$ensembl_root/conf";
+ unshift @INC, "$ensembl_root/bioperl-live";
+}
+
use Bio::EnsEMBL::DBSQL::DBAdaptor;
-use Bio::EnsEMBL::Attribute;
-my $host = 'ecs1g';
-my $user = 'ensadmin';
-my $pass = 'ensembl';
-my $dbname = 'homo_sapiens_core_20_34';
+my $host = 'localhost';
+my $user = 'ensadmin';
+my $pass = 'ensembl';
+my $dbname = 'mcvicker_homo_sapiens_core_20_34b';
my $port = '3306';
my $db = new Bio::EnsEMBL::DBSQL::DBAdaptor(-host => $host,
@@ -16,7 +27,6 @@ my $db = new Bio::EnsEMBL::DBSQL::DBAdaptor(-host => $host,
-pass => $pass,
-dbname => $dbname);
-
my $slice_adaptor = $db->get_SliceAdaptor();
my $attrib_adaptor = $db->get_AttributeAdaptor();
--
GitLab