# BioMirror/DDBJ.pm

=head1 NAME

BioMirror::DDBJ -- BioMirror::Data packages for DDBJ databanks

=cut



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

sub new {
	my $class= shift;
	my $self = $class->SUPER::new( 
		srsdb => 'DDBJ',
		name => 'DDBJ',
		makeflags => 0, ##  no expansion or indexing

		dosummary => 1, # add to summary table
   	source => {
			home => 'NIG',
   		comment => 'DNA Data Bank of Japan',
   		homeurl => 'ftp://ftp.ddbj.nig.ac.jp/',
   		url => 'ftp://bio-mirror.jp.apan.net/pub/biomirror/ddbj/regular_release/',
   		web => 'http://www.ddbj.nig.ac.jp/', 
			exclude_patt => '(\.idx\.Z|ddbjgss\.seq\.Z|core)',
		  recursive => 'false',
			},
			
		mirror_dir =>	'$zpath/ddbj/regular_release/',
		expanded_dir =>	0, 
		data => [],  ## no expansion
			
		@_ );
	return $self;
}

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

package BioMirror::DDBJNew;
 @ISA = qw( BioMirror::DDBJ ); 

sub new {
	my $class= shift;
	my $self = $class->SUPER::new( 
		srsdb => 'DDBJNEW',
		name => 'DDBJ Daily updates',
		makeflags => 0, ##  no expansion or indexing

		dosummary => 0,  
   	source => {
   		comment => 'DDBJ daily from AFFRC/bio-mirror',
   		url => 'ftp://bio-mirror.jp.apan.net/pub/biomirror/ddbj/daily_updates/',
   		web => 'http://www.ddbj.nig.ac.jp/', 
    	exclude_patt => '(core|DDBJNEWr35|DDBJNEWr36|DDBJNEWr37|DDBJNEWr38|DDBJNEWr39)',
    		##^ dang this needs updating by hand!
		  recursive => 'false',
		  max_delete_files => '100%', # so old ones don't accumulate!
			},
			
		mirror_dir =>	'$zpath/ddbj/daily_updates/',
		expanded_dir =>	0, ##'$dpath/enzyme/',
		data => [],  ## no expansion
			
		@_ );
	return $self;
}


## obsolete data (may 2001; pre-genome)
# package BioMirror::RicecDNA;
#  @ISA = qw( BioMirror::Data ); 
# 
# sub new {
# 	my $class= shift;
# 	my $self = $class->SUPER::new( 
# 		srsdb => 'RICECDNA',
# 		name => 'Rice cDNA',
# 		makeflags => 0, ##  no expansion or indexing
# 
# 		dosummary => 0,  #??
#    	source => {
#    		comment => 'Rice genome project cDNA from AFFRC',
#    		url => 'ftp://ftp.dna.affrc.go.jp/pub/dna_maff/',
#    		# url => 'ftp://ftp.dna.affrc.go.jp/pub/cdna/', #< various html pages of blast output
#    		web => 'http://www.dna.affrc.go.jp/',  #?? specific cDNA part?
# 			get_patt => '(maff_rice.seq|maff_rice.fasta)',  
# 			exclude_patt => 'previous',
# 		  recursive => 'false',
# 			},
# 
# 		mirror_dir =>	'$zpath/rice/cdna/',
# 		expanded_dir =>	0, 
# 		data => [],  ## no expansion
# 			
# 		@_ );
# 	return $self;
# }

1;
__END__
ftp://ftp.dna.affrc.go.jp/pub/dna_maff/
-rw-r--r--   1 4000     4000     12408031 Jan 12  1999 maff_dna.fasta
-rw-r--r--   1 4000     4000     57330556 Jan 12  1999 maff_dna.seq
-rw-r--r--   1 4000     4000     12408031 Jan 12  1999 maff_rice.fasta
-rw-r--r--   1 4000     4000     57330556 Jan 12  1999 maff_rice.seq