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

View of /WebApplication/DataHandler/RAST.pm

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.7 - (download) (as text) (annotate)
Mon Mar 16 00:25:26 2009 UTC (10 years, 10 months ago) by parrello
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, 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, 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, myrast_33, rast_rel_2011_0928, mgrast_dev_04052011, mgrast_dev_02222011, rast_rel_2009_03_26, mgrast_dev_10262011, HEAD
Changes since 1.6: +14 -9 lines
Changed to reduce the number of error dumps in the log.

package DataHandler::RAST;

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

# $Id: RAST.pm,v 1.7 2009/03/16 00:25:26 parrello 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}) {
    if (! $FIG_Config::rast_jobcache_db) {
      # Denote no RAST without putting a confession in the error log.
      $_[0]->{_handle} = undef;
    } else {
      eval {
	$_[0]->{_handle} = DBMaster->new( -database => $FIG_Config::rast_jobcache_db || 'JobCacheRast',
					  -host     => $FIG_Config::rast_jobcache_host,
					  -user     => $FIG_Config::rast_jobcache_user,
					  -password => $FIG_Config::rast_jobcache_password );
      };
      if ($@) {
	warn "Unable to connect to RAST database: $@\n";
	$_[0]->{_handle} = undef;
      }
    }
  }
  return $_[0]->{_handle};
}

1;

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3