Toolbar

Package variables

Included modules

Inherit

Exporter

Synopsis

No synopsis!

Description

No description!

Methods

Methods description

None available.

Methods code

sub get_db {

        if ($db){
            return $db;
        }else{
            warn "Not returning a db;";
            return;
        }
        
            
     }

}



1;

__END__

}

sub prepare_statement {

        my( $text ) = @_;
        
        my $sth = sub_db()->prepare($text);
        push(@active_statement_handles, $sth);
        return $sth;

}

sub set_db_args {

        ## take in user name password port etc, and use them to connect to the db
        my %args_hash = @_;
        
        $user   = $args_hash{user}  ;        
        $dbname = $args_hash{db_name};
        $host   = $args_hash{host};
        $port   = $args_hash{port};

}

sub sub_db {

        unless ($db) {
            
            # go to default values unless given already
            unless ($user) { $user= get_user();};
            unless ($dbname) { $dbname = 'submissions'} ;
            unless (defined $host && defined $port){
                ($host, $port)=Hum::SubmissionConf::localisation();
            }
                  
            
            
            if (my $test = $ENV{'SUBMISSION_TEST_DB'}) {
                # Legal formats:
                #
                # submissions_test
                # submissions_test:3306
                # submissions_test@ecs2b
                # submissions_test@ecs2b:3306
            
                if ($test =~ /^([\w_\$]+)(?:\@([\w\-\.]+))?(?::(\d+))?$/) {
                    $dbname = $1;
                    $host   = $2 if $2;
                    $port   = $3 if $3;
                } else {
                    confess "Can't parse SUBMISSION_TEST_DB environment variable '$test'";
                }
            }
#            warn "DBI:mysql:host=$host;port=$port;database=$dbname:", $user;
            # Make the database connection
            $db = DBI->connect("DBI:mysql:host=$host;port=$port;database=$dbname",
                               $user, undef, {RaiseError => 1, PrintError => 0})
                or die "Can't connect to submissions database as '$user' ",
                DBI::errstr();
        }
        return $db;
    }

    my( @active_statement_handles );

}

General documentation

Returns a reference to an array of anonymous
arrays containing the results from running the
SQL query on the database.

James Gilbert email jgrg@sanger.ac.uk