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

View of /WebApplication/DataHandler/MGRAST.pm

Parent Directory Parent Directory | Revision Log Revision Log

Revision 1.2 - (download) (as text) (annotate)
Mon Oct 12 13:40:43 2009 UTC (10 years, 4 months ago) by paczian
Branch: MAIN
CVS Tags: mgrast_dev_08112011, mgrast_dev_08022011, rast_rel_2014_0912, mgrast_dev_03052011, mobedac_release_05302012, mgrast_dev_05262011, mgrast_dev_04082011, rast_rel_2010_0928, mgrast_version_3_2, mgrast_dev_12152011, mgrast_dev_06072011, 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, 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_2010_0827, myrast_33, rast_rel_2011_0928, mgrast_dev_04052011, mgrast_dev_02222011, mgrast_dev_10262011, HEAD
Changes since 1.1: +2 -1 lines
new style

package DataHandler::MGRAST;

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

# $Id: MGRAST.pm,v 1.2 2009/10/12 13:40:43 paczian Exp $

use strict;
use warnings;

use base qw( DataHandler );

use DBMaster;
use FIG_Config;


=head1 NAME

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


This module returns the DBMaster object to the MGRAST database stored in the root
job directory of a MGRAST server. It requires the FIG_Config.pm to specify the  
$mgrast_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


sub handle {
  my ($self) = @_;

  unless (exists $self->{_handle}) {
    eval {
      $self->{_handle} = DBMaster->new( -database => $FIG_Config::mgrast_jobcache_db || 'JobCacheMGRast',
					-host     => $FIG_Config::mgrast_jobcache_host,
					-user     => $FIG_Config::mgrast_jobcache_user,
					-password => $FIG_Config::mgrast_jobcache_password );
    if ($@) {
      warn "Unable to connect to MGRAST database: $@\n";
      $self->{_handle} = undef;

  $self->{_handle}->{_application} = $self->application;
  $self->{_handle}->{_user} = $self->application->session->user;

  return $self->{_handle};


MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3