bin/config-check

   1 #!/usr/bin/perl
   2 ##--------------------------------------------------------------------------##
   3 ##  File:
   4 ##      $Id: config-check,v 1.1 2002/09/20 02:56:31 ehood Exp $
   5 ##  Description:
   6 ##      Dump mharc config to stdout.
   7 ##--------------------------------------------------------------------------##
   8 ##  Copyright (C) 2002  Earl Hood <earl@earlhood.com>
   9 ##
  10 ##  This program is free software; you can redistribute it and/or modify
  11 ##  it under the terms of the GNU General Public License as published by
  12 ##  the Free Software Foundation; either version 2 of the License, or
  13 ##  (at your option) any later version.
  14 ##
  15 ##  This program is distributed in the hope that it will be useful,
  16 ##  but WITHOUT ANY WARRANTY; without even the implied warranty of
  17 ##  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  18 ##  GNU General Public License for more details.
  19 ##
  20 ##  You should have received a copy of the GNU General Public License
  21 ##  along with this program; if not, write to the Free Software
  22 ##  Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
  23 ##  02111-1307, USA
  24 ##--------------------------------------------------------------------------##
  25
  26 package MHArc::config_dump;
  27
  28 ##--------------------------------------------------------------------------##
  29 # <x-boot-strap>
  30 BEGIN { die qq/CGI use FORBIDDEN!\n/ if (defined($ENV{'GATEWAY_INTERFACE'})); }
  31 my $Dir; BEGIN { $Dir = `dirname $0`; chomp $Dir; }
  32 use lib "$Dir/../lib";  # Add relative lib to search path
  33 # </x-boot-strap>
  34 ##--------------------------------------------------------------------------##
  35
  36 use MHArc::Config;
  37
  38 MAIN: {
  39   my $config = load_config();
  40   $config->dump_config(\*STDOUT);
  41 }
  42
  43 sub load_config {
  44   MHArc::Config->load("$Dir/../lib/config.sh");
  45 }
  46
  47 ##---------------------------------------------------------------------------##
  48 __END__
  49
  50 =head1 NAME
  51
  52 config-check - Check mharc configuration file
  53
  54 =head1 SYNOPSIS
  55
  56   config-check
  57
  58 =head1 DESCRIPTION
  59
  60 This programs prints out the expanded variable values defined
  61 in C<config.sh> to standard output.
  62
  63 =head1 FILES
  64
  65 =over
  66
  67 =item C<I<mharc-root>/lib/config.sh>
  68
  69 Main configuration file for mharc.
  70
  71 =back
  72
  73 =head1 VERSION
  74
  75 $Id: config-check,v 1.1 2002/09/20 02:56:31 ehood Exp $
  76
  77 =head1 AUTHOR
  78
  79 Earl Hood, earl@earlhood.com
  80
  81 This program is part of the mharc archiving system and comes with
  82 ABSOLUTELY NO WARRANTY and may be copied only under the terms of
  83 the GNU General Public License, which may be found in the mharc
  84 distribution.
  85
  86 =cut
  87