paths.pm.in

来自「开源备份软件源码 AMANDA, the Advanced Marylan」· IN 代码 · 共 82 行

# vim:ft=perl
# Copyright (c) 2006 Zmanda Inc.  All Rights Reserved.
#
# This program is free software; you can redistribute it and/or modify it
# under the terms of the GNU General Public License version 2 as published
# by the Free Software Foundation.
#
# This program 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 this program; if not, write to the Free Software Foundation, Inc.,
# 59 Temple Place, Suite 330, Boston, MA  02111-1307 USA
#
# Contact information: Zmanda Inc, 505 N Mathlida Ave, Suite 120
# Sunnyvale, CA 94085, USA, or: http://www.zmanda.com

package Amanda::Paths;

=head1 NAME

Amanda::Paths - perl access to build-time configuration values

=head1 SYNOPSIS

  use Amanda::Paths;

  my $filename = "$amlibexecdir/foo/bar";

This package is a means of getting all of the necessary variables provided
by configure into Perl scripts, without a bunch of boilerplate, and without
requiring config.status substitution for every .pm file.

All of the variables in @EXPORT will be automatically imported into
your module's namespace.  See the source, rather than the perldoc,
to find out what variables are available.

=cut

use Exporter;
@ISA = qw( Exporter );

@EXPORT = qw(
    $prefix
    $exec_prefix
    $bindir
    $sbindir
    $libexecdir
    $amlibexecdir
    $mandir
    $datarootdir

    $AMANDA_TMPDIR
    $CONFIG_DIR
    $AMANDA_DBGDIR
);

# the 'warnings' pragma doesn't recognized exported variables as "used", and generates warnings
# for variables only used once.  We turn it off for this module.
no warnings;

## basic filesystem layout

# these need to go in order, due to the way autoconf sets these dirs up
$prefix = "@prefix@";
$exec_prefix = "@exec_prefix@";
$bindir = "@bindir@";
$sbindir = "@sbindir@";
$libexecdir = "@libexecdir@";
$amlibexecdir = "@amlibexecdir@";
$mandir = "@mandir@";
# (config.status worries if it doesn't see this:)
$datarootdir = "@datarootdir@";

## amanda configuration directories

$AMANDA_TMPDIR = "@AMANDA_TMPDIR@";
$CONFIG_DIR = "@CONFIG_DIR@";
$AMANDA_DBGDIR = "@AMANDA_DBGDIR@";