[Bio] / WebApplication / DataHandler / MGRAST_MIMS.pm Repository:
ViewVC logotype

View of /WebApplication/DataHandler/MGRAST_MIMS.pm

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (download) (as text) (annotate)
Thu Oct 9 20:53:28 2008 UTC (11 years, 4 months ago) by wilke
Branch: MAIN
CVS Tags: mgrast_dev_08112011, rast_rel_2009_05_18, mgrast_dev_08022011, rast_rel_2014_0912, mgrast_dev_03052011, mobedac_release_05302012, mgrast_dev_05262011, rast_rel_2008_12_18, mgrast_dev_04082011, rast_rel_2010_0928, mgrast_version_3_2, mgrast_dev_12152011, mgrast_dev_06072011, rast_rel_2009_0925, rast_rel_2010_0526, rast_rel_2014_0729, mgrast_dev_02212011, rast_rel_2010_1206, mgrast_release_3_0, mgrast_dev_03252011, rast_rel_2010_0118, mgrast_rel_2008_1110_v2, rast_rel_2009_02_05, rast_rel_2011_0119, mgrast_release_3_0_4, mgrast_release_3_0_2, mgrast_release_3_0_3, mgrast_release_3_0_1, mgrast_dev_03312011, mgrast_release_3_1_2, mgrast_release_3_1_1, mgrast_release_3_1_0, mgrast_dev_04132011, mgrast_dev_04012011, rast_rel_2009_07_09, rast_rel_2010_0827, mgrast_rel_2008_1110, myrast_33, rast_rel_2011_0928, rast_rel_2008_10_29, mgrast_dev_04052011, mgrast_dev_02222011, rast_rel_2009_03_26, mgrast_dev_10262011, rast_rel_2008_11_24, HEAD
*** empty log message ***

package DataHandler::MGRAST_MIMS;

# DataHandler::OOD - data handler to the PPO OOD database

# $Id: MGRAST_MIMS.pm,v 1.1 2008/10/09 20:53:28 wilke Exp $

use strict;
use warnings;

use base qw( DataHandler );

use DBMaster;
use FIG_Config;


=pod

=head1 NAME

DataHandler::RAST - data handler to the PPO RAST database

=head1 DESCRIPTION

This module returns the DBMaster object to the RAST database stored in the root
job directory of a RAST server. It requires the FIG_Config.pm to specify the  
$rast_jobs directory.

Refer to WebApplication/DataHandler.pm for the full documentation.

=head1 METHODS

=over 4

=item * B<handle> ()

Returns the enclosed data handle. Returns undef if it fails to open the Jobs database

=cut

sub handle {


  unless (exists $_[0]->{_handle}) {
  
    eval {
       $_[0]->{_handle} = DBMaster->new( -database => "MG_RAST_MIMS",
 					# -host     => $FIG_Config::mgrast_ontology_dbhost,
 					# -user     => $FIG_Config::mgrast_dbuser,
 					-backend  => 'MySQL',
				      );
   #    $_[0]->{_handle} = DBMaster->new( -database => $FIG_Config::mgrast_ontology,
					
# 				      );
    };
    if ($@) {
      warn "Unable to read DataHandler::MGRAST_MIMS database: $@\n";
      $_[0]->{_handle} = undef;
    }
  }
  return $_[0]->{_handle};
}

1;

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3