package ServerPaths;
@ISA = qw(Exporter);
@EXPORT =
qw(
);

use English;

#
# Subroutines
#
BEGIN
{
    $ServerPaths::server_dir = "/projects/compbio/";
    $ServerPaths::server_bin_dir = $ServerPaths::server_dir . "bin/";

    $arch = `arch`;
    chomp($arch);
    $ServerPaths::server_bin_arch_dir = $ServerPaths::server_bin_dir . "$arch/";

    $ServerPaths::server_bin_scripts_dir = $ServerPaths::server_bin_dir . "scripts/";

    $ServerPaths::server_lib_dir = $ServerPaths::server_dir . "lib/";
    $ServerPaths::server_var_dir = $ServerPaths::server_dir . "var/";
}

1;