#! /local/bin/perl ###################################################################### # $Header: /loc/adm/slink-1.0/src/slink-5.0/Slink/RCS/Config.pm,v 5.0 1996/05/13 17:14:27 couch Exp $ # Slink::Config.pm: maintain Slink's configuration options # Revision 5.0 # by # Alva L. Couch, # Associate Prof. of EE/CS # Department of EE/CS # Tufts University, # Medford, Massachusetts, 02155. # couch@cs.tufts.edu # # Copyright (C) 1996 by Alva L. Couch # # This file is part of SLINK # # SLINK is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2, or (at your option) # any later version. # # SLINK is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with GNU CC; see the file COPYING. If not, write to # the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. ###################################################################### # Edit values in the BEGIN routine to define defaults for your site. ###################################################################### package Slink::Config; require 5.001; require Exporter; use strict; sub BEGIN { @Slink::Config::ISA = qw(Exporter); @Slink::Config::EXPORT = qw(); @Slink::Config::EXPORT_OK = qw(); %Slink::Config = ( # configuration control files. 'root' => "/loc", # root of tree where config files live 'confile' => "slink.conf", # input: master configuration file 'modfile' => "slink.mod", # input: protection models for subtrees 'errfile' => "slink.err", # output: errors encountered 'logfile' => "slink.log", # output: actions taken 'newfile' => "slink.new", # output: new links slink didn't make 'mapfile' => "slink.map", # i/o: map of all links 'lokfile' => "slink.pid", # i/o: lockfile # control link resolution inside automount hierarchies 'dontresolve' => [ "/tmp_mnt" ], # control which hosts can execute slink commands 'hosts' => [ ], # commands Slink uses 'ps' => "/usr/bin/ps", # ps command # file modes Slink needs. 'umask' => 002, # default umask for creating things 'dirmode' => 0775, # default directory mode ); } 1;