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

View of /WebApplication/DataHandler/Metadata.pm

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (download) (as text) (annotate)
Wed Aug 18 20:38:30 2010 UTC (9 years, 5 months ago) by tharriso
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_2014_0729, mgrast_dev_02212011, rast_rel_2010_1206, mgrast_release_3_0, mgrast_dev_03252011, 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
*** empty log message ***

package DataHandler::Metadata;

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

# $Id: Metadata.pm,v 1.1 2010/08/18 20:38:30 tharriso Exp $

use strict;
use warnings;

use base qw( DataHandler );

use DBMaster;
use FIG_Config;

=pod

=head1 NAME

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

=head1 DESCRIPTION

This module returns the DBMaster object to the Metadata 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

=cut

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

  unless (exists $self->{_handle}) {
    eval {
      $self->{_handle} = DBMaster->new( -database => $FIG_Config::mgrast_metadata_db || 'MGRASTMetadata',
					-host     => $FIG_Config::mgrast_metadata_host,
					-user     => $FIG_Config::mgrast_metadata_user,
					-password => $FIG_Config::mgrast_metadata_password || "");
    };
    if ($@) {
      warn "Unable to connect to MGRAST metadata database: $@\n";
      $self->{_handle} = undef;
    }
  }

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

  return $self->{_handle};
}

1;

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3