# BioMirror/Pfam.pm

=head1 NAME

BioMirror::Pfam -- BioMirror::Data packages for Pfam databank

=cut

package BioMirror::Pfam;
 @ISA = qw( BioMirror::Data ); 

sub new {
	my $class= shift;
	my $self = $class->SUPER::new( 
		srsdb => 'PFAM',
		name => 'Pfam',
		makeflags => $BioMirror::Data::kFromArchive|$BioMirror::Data::kDoSrsIndex,

		dosummary => 1, 
   	source => {
   		home => 'WUSTL',
   		comment => 'The Pfam database of protein domains and HMMs',
   		url => 'ftp://pfam.wustl.edu/pub/Pfam/',
   		web => 'http://pfam.wustl.edu/',
		  recursive => 'true',
    	exclude_patt => '(^diff|prior.tar|press_release)',
			},
			
		mirror_dir =>	'$zpath/pfam/',
		expanded_dir => '$dpath/pfam/',
		data => [ '(^Pfam)'],   
			
		@_ );
	return $self;
}

package BioMirror::PfamA;
 @ISA = qw( BioMirror::Pfam ); 
sub new {
	my $class= shift;
	my $self = $class->SUPER::new( 
		srsdb => 'PFAMA',
		name => 'PfamA',
		dosummary => 0, 
		makeflags => $BioMirror::Data::kDoSrsIndex,
		sourceflags => $BioMirror::Data::kSuperSource,
		@_ );
	return $self;
}
package BioMirror::PfamB;
 @ISA = qw( BioMirror::Pfam ); 
sub new {
	my $class= shift;
	my $self = $class->SUPER::new( 
		srsdb => 'PFAMB',
		name => 'PfamB',
		dosummary => 0, 
		makeflags => $BioMirror::Data::kDoSrsIndex,
		sourceflags => $BioMirror::Data::kSuperSource,
		@_ );
	return $self;
}
package BioMirror::PfamSeed;
 @ISA = qw( BioMirror::Pfam ); 
sub new {
	my $class= shift;
	my $self = $class->SUPER::new( 
		srsdb => 'PFAMSEED',
		name => 'PfamSeed',
		dosummary => 0, 
		makeflags => $BioMirror::Data::kDoSrsIndex,
		sourceflags => $BioMirror::Data::kSuperSource,
		@_ );
	return $self;
}
package BioMirror::PfamHMM;
 @ISA = qw( BioMirror::Pfam ); 
sub new {
	my $class= shift;
	my $self = $class->SUPER::new( 
		srsdb => 'PFAMHMM',
		name => 'PfamHMM',
		dosummary => 0, 
		makeflags => $BioMirror::Data::kDoSrsIndex,
		sourceflags => $BioMirror::Data::kSuperSource,
		@_ );
	return $self;
}

#package BioMirror::PfamNew;
# @ISA = qw( BioMirror::Pfam ); 
#sub new {
#	my $class= shift;
#	my $self = $class->SUPER::new( 
#		srsdb => 'PFAMNEW',
#		name => 'PfamNew',
#		makeflags => $BioMirror::Data::kDoSrsIndex,
#		sourceflags => $BioMirror::Data::kSuperSource,
#		@_ );
#	return $self;
#}
#package BioMirror::PfamANew;
# @ISA = qw( BioMirror::Pfam ); 
#sub new {
#	my $class= shift;
#	my $self = $class->SUPER::new( 
#		srsdb => 'PFAMANEW',
#		name => 'PfamANew',
#		makeflags => $BioMirror::Data::kDoSrsIndex,
#		sourceflags => $BioMirror::Data::kSuperSource,
#		@_ );
#	return $self;
#}
#package BioMirror::PfamBNew;
# @ISA = qw( BioMirror::Pfam ); 
#sub new {
#	my $class= shift;
#	my $self = $class->SUPER::new( 
#		srsdb => 'PFAMBNEW',
#		name => 'PfamBNew',
#		makeflags => $BioMirror::Data::kDoSrsIndex,
#		sourceflags => $BioMirror::Data::kSuperSource,
#		@_ );
#	return $self;
#}
#package BioMirror::PfamSeedNew;
# @ISA = qw( BioMirror::Pfam ); 
#sub new {
#	my $class= shift;
#	my $self = $class->SUPER::new( 
#		srsdb => 'PFAMSEEDNEW',
#		name => 'PfamSeedNew',
#		makeflags => $BioMirror::Data::kDoSrsIndex,
#		sourceflags => $BioMirror::Data::kSuperSource,
#		@_ );
#	return $self;
#}


#-------------

1;