source: trunk/gsdl/perllib/plugin.pm@ 288

# functions to handle using the plugins

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) = @_;

    # pass this file by each of the plugins in turn until one
    # is found which will process it
    foreach $plugobj (@$pluginfo) {
    if ($plugobj->read($pluginfo, $base_dir, $file, 
               $metadata, $processor)) {
        return;
    }
    }

    if ($processor->{'verbosity'} >= 2) {
    print STDERR "WARNING - no plugin could process " . 
        &util::filename_cat($base_dir,$file) . "\n";
    }
}


1;