#!/usr/local/bin/perl -w
##---------------------------------------------------------------------------##
##  File:
##	$Id: mhonarc-check,v 1.3 2002/07/17 21:59:36 ehood Exp $
##  Description:
##	Checks if mhonarc can be loaded.
##---------------------------------------------------------------------------##
##  Copyright (C) 2002	Earl Hood <earl@earlhood.com>
##
##  This program 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 of the License, or
##  (at your option) any later version.
##  
##  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
##---------------------------------------------------------------------------##

package MHArc::mhonarc_check;

my $Dir;
BEGIN {
  $Dir = `dirname $0`; chomp $Dir;
}
use lib "$Dir/../lib";  # Add relative lib to search path
use MHArc::Config;
my $config = MHArc::Config->load("$Dir/../lib/config.sh");

eval {
  require 'mhamain.pl';
};
if ($@) {
  print qq/Unable to load MHonArc: $@\n/;
  print <<'EOT';
* If MHonArc is installed, you may need to set the MHONARC_LIB
* variable in lib/config.sh to the directory pathname location
* of MHonArc's library files.
* @INC setting:
EOT
  foreach (@INC) {
    print qq/\t$_\n/;
  }
  exit 1;

} else {
  exit 0;
}