Okay a little about my bot, first off my irc_public() from the main script looks a little something like this.

sub irc_public {
    my ($kernel, $who, $where, $msg) = @_[KERNEL, ARG0 .. ARG2];
    run_script($kernel, $bot_version, $bot_nick, $irc_admins, $qstat_m
+aster,
$who, $where, $msg, $qstat_addr, $User_Info, @randquote);
}
[download]

run_script() is contained in QStatBot::Scripts.pm, Scripts.pm itself contains 3 subs, the first one checks for all the scripts within the scripts/ directory and requires the file then

my @alias = eval
"${script}_load()";
[download]

which will return 2 values from the script, the bot command seen from a public channel and the alias that it is used with it. And the information about those scripts are stored in a global hash inside the module. The sub itself:

our %script_aliases = load_scripts();

sub load_scripts {
    my (%script_aliases, $script_aliases);
    if (-d "scripts") {
    while(<scripts/*.script>) {
        my $script_name = $_;
        my $script = $1 if $script_name =~ /\/(.*)\.script/;
        print "Loading script: $script_name\n";
        require "$script_name";
        my @alias = eval "${script}_load()";
        $script_aliases{$alias[0]} = $alias[1];
    }

    return %script_aliases;
    } else {
    die "Scripts directory does not exist.\n";
    }
}
[download]

And then the next sub QStatBot::Script::run_script() which recives all those variables from irc_public() when ever something happens in the channel , the bot looks at the messages and determines if any of them are commands my checking the global hash to see if the key exists and then calling up the sub for which that command is tied to.

sub run_script {
    our ($kernel, $bot_version, $bot_nick, $irc_admins, $qstat_master,
+ $irc_host, $irc_chan, $irc_msg, $qstat_addr, $User_Info, @randquote)
+ = @_;
    our ($irc_nick, $irc_hostmask) = split(/!/, $irc_host);

    if ($irc_msg =~ /^$bot_nick.* commands$/i) {
    my @commands;
    for (keys %script_aliases) {
        push @commands, $_;
    }
    @commands = sort @commands;
    my $commands = join ', ', @commands;
    send_chan_message($irc_chan, "commands: $commands", $kernel);
    } elsif ($irc_msg =~ /^$bot_nick.* /i) {
    for (keys %script_aliases) {
        if ($irc_msg =~ /^$bot_nick.* $_/) {
        eval "$script_aliases{$_}()";
        last;
        }
    }
    }
}
[download]

Those variables also seem to have to be made global as well since they do not get imported into the scripts otherwise. Before I had declared all the variables I needed inside all the scripts beforehand such as:

sub mem_usage_load { 
    my $alias     = 'mem usage';
    my $sub       = 'display_mem_usage';
    my $variables = '$kernel, $irc_chan';

    return ($alias, $sub, $variables);
}
[download]

And passed the variables through such as eval "$script_aliases{$_}{'sub'}($script_aliases{$_}{'variables'})"; but that was kinda awkward having to do it like that so I dropped the idea and just made the variables global to save on the hassles caused. Anways, it's these scripts that are the problem I need to call another sub QStatBot::Scripts::check_permission() (maybe from run_script() just before eval "$script_aliases{$_}()";) which I will later create to look for another predefined value returned from ${script}_load() and stored in the global hash, that of course will be returned from scriptname_load() from the various scripts. The value will be either 'v' or 'o' to define what the user who has issued the command has to currently be inside the channel (voice or operator). It's this sub I would have to issue the whois command to the server and collect the information returned and then process it and return a 0 or 1 to if the user is a allowed to use such a command. Thanks.

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.