###########################################################################
#
# plugin.pm -- functions to handle using plugins
# A component of the Greenstone digital library software
# from the New Zealand Digital Library Project at the 
# University of Waikato, New Zealand.
#
# Copyright (C) 1999 New Zealand Digital Library Project
#
# 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., 675 Mass Ave, Cambridge, MA 02139, USA.
#
###########################################################################

package plugin;

require util;

sub load_plugins {
    my ($collection, $plugin_list) = @_;
    my @plugin_objects = ();

    foreach $plugin (@$plugin_list) {
	# find the plugin
	my $colplugname = &util::filename_cat($ENV{'GSDLCOLLECTDIR'},"perllib/plugins", 
					      "${plugin}.pm");
	my $mainplugname = &util::filename_cat($ENV{'GSDLHOME'},"perllib/plugins", 
					       "${plugin}.pm");
	if (-e $colplugname) { require $colplugname; }
	elsif (-e $mainplugname) { require $mainplugname; }
	else { die "ERROR - couldn't find plugin $plugin\n"; }

	# create a plugin object
	my ($plugobj);
	eval ("\$plugobj = new $plugin()");
	die "$@" if $@;

	# add this object to the list
	push (@plugin_objects, $plugobj);
    }

    return \@plugin_objects;
}

sub read {
    my ($pluginfo, $base_dir, $file, $metadata, $processor, $maxdocs) = @_;

    my $rv = 0;

    # pass this file by each of the plugins in turn until one
    # is found which will process it
    foreach $plugobj (@$pluginfo) {
	$rv = $plugobj->read($pluginfo, $base_dir, $file, 
			     $metadata, $processor, $maxdocs);
	return $rv if defined $rv;
    }
    
    if (defined $processor->{'verbosity'} && $processor->{'verbosity'} >= 2) {
	print STDERR "WARNING - no plugin could process " . 
	    &util::filename_cat($base_dir,$file) . "\n";
    }
    return 0;
}


1;
