#!@@_perl_root_@@/bin/perl.exe 
package ConfigFile;

##########################################################
#                                                        #
# dictyBase Extension of ConfigFile                      #
#                                                        #
##########################################################

use ConfigFile_base;
no warnings 'redefine';
BEGIN { %ConfigFile:: = %ConfigFile_base:: }

my $stem = "/usr/local/dicty/www_dictybase/db/";

#
#  the oly one dictyBase really uses is wine
#
####################################################################
sub _init{
####################################################################
# This simple initialization function simply sets up some paths

    my $self = shift;

    $self->{'_ftp'}     = $stem."/ftp/pub/";
    $self->{'_wine'}   = $stem;
    $self->{'_Dictyostelium'}  = $stem."/Dictyostelium".$apache;
    $self->{'_bread'}   = $stem."/bread".$apache;
    $self->{'_stellar'} = $stem."/stellar".$apache;
    $self->{'_rana'}    = $stem."/rana".$apache;


}

1; # to keep stupid perl happy :-)