#!/usr/local/bin/perl -w
##---------------------------------------------------------------------------##
##  File:
##	$Id: mhonarc-check,v 1.2 2002/03/07 00:14:46 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;

eval {
  require 'mhamain.pl';
};
if ($@) {
  print qq/Unable to load MHonArc: $@\n/;
  print <<'EOT';

* If MHonArc is installed, you may need to set the PERL5LIB
* environment variable if you installed the MHonArc library
* files in a non-standard location.

EOT
  exit 1;

} else {
  exit 0;
}