commit - b02dca5598d9151da4f4e9eca6d7bf6fa2dce5fa
commit + 8902697ccceb74b8d7a113de1b7dbbad5905e305
blob - a1d7bb2025b0dcc03e6ca5ae4032a93bfe541018
blob + d25053389d30a168e7673670a16f077c96379459
--- botnow
+++ botnow
}
use lib './lib';
foreach my $mod (@modules) {
- require "BotNow::$mod";
+ eval "require BotNow::$mod"; # Eval required for magic @INC search
}
foreach my $mod (@modules) {
my $init = "BotNow::${mod}::init";
my $localnet = $conf{localnet};
my $staff = $conf{staff};
my @stafflist = split(/ /,$staff);
-my $verbose = $conf{verbose};
my $expires = $conf{expires};
+
+
+our $verbosity = $conf{verbose};
+
unveil("./", "r") or die "Unable to unveil $!";
unveil("$confpath", "r") or die "Unable to unveil $!";
unveil("$backupspath", "rwc") or die "Unable to unveil $!";
blob - 5f130a3cd207410176173d63c6fd8cc575dff7dc
blob + ae83bbf264c165e07c089dfc36ac84e771111036
--- lib/BotNow/BNC.pm
+++ lib/BotNow/BNC.pm
my $mailname = $conf{mailname};
my $approval = $conf{approval};
my $webpanel = $conf{webpanel};
-# File containing IRC networks
-my $netpath = "networks";
my @networks;
use constant {
main::cbind("msg", "-", "lastseen", \&mlastseen);
sub init {
+ # File containing IRC networks
+ my $netpath = "networks";
+
unveil("/usr/local/bin/figlet", "rx") or die "Unable to unveil $!";
unveil("/usr/lib/libc.so.95.1", "r") or die "Unable to unveil $!";
unveil("/usr/libexec/ld.so", "r") or die "Unable to unveil $!";