All pastes #225973 Raw Edit

Unnamed

public text v1 · immutable
#225973 ·published 2006-10-28 07:08 UTC
rendered paste body
#Dynamic module loader for listeners
sub load_listeners {

    my @modules;
    my $pmbot_dir;

    foreach my $dir (@INC) {
        if (-e "$dir/PMBot/Listeners/") {
            #opendir($pmbot_dir, "$dir/PMBot/Listeners/") or die "cant opendir $dir/PMBot/Listeners/: $!";
            #@modules = grep {/\.pm \z /xms} readdir($pmbot_dir);
	    foreach my $listener_module (glob "$dir/PMBot/Listeners/*.pm") { require $listener_module; }
            closedir $pmbot_dir;
        }
    }

    #foreach my $filename (@modules) {
    #    $filename =~ s/\.pm \z //;
    #    my $module_name = "PMBot/Listeners/$filename";
    #	require $module_name;
    #}

}