GitHub/pbot
3
0
Fork 0
mirror of https://github.com/pragma-/pbot.git synced 2024-11-20 02:49:49 +01:00
Code Issues Projects Releases Wiki Activity

pbot: made PBot.pm more readable and concise

Browse Source
This commit is contained in:
Pragmatic Software 2011-01-26 09:40:08 +00:00
parent 1fcd6d07c1
commit e6e89023a0
2 changed files with 22 additions and 53 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

69
PBot/PBot.pm
View File

@ -67,69 +67,41 @@ sub initialize {
my $log_file = delete $conf{log_file}; my $log_file = delete $conf{log_file};
my $conf_dir = delete $conf{conf_dir}; $self->{conf_dir} = delete $conf{conf_dir} || "$ENV{HOME}/pbot/data";
$conf_dir = "$ENV{HOME}/pbot/data" unless defined $conf_dir; $self->{data_dir} = delete $conf{data_dir} || "$ENV{HOME}/pbot/data";
$self->{conf_dir} = $conf_dir; $self->{module_dir} = delete $conf{module_dir} || "$ENV{HOME}/pbot/modules";
my $data_dir = delete $conf{data_dir};
$data_dir = "$ENV{HOME}/pbot/data" unless defined $data_dir;
$self->{data_dir} = $data_dir;
my $channels_file = delete $conf{channels_file}; my $channels_file = delete $conf{channels_file};
my $admins_file = delete $conf{admins_file}; my $admins_file = delete $conf{admins_file};
my $botnick = delete $conf{botnick}; $self->{ircserver} = delete $conf{ircserver} || "irc.freenode.net";
my $username = delete $conf{username}; $self->{botnick} = delete $conf{botnick} || "pbot3";
my $ircname = delete $conf{ircname}; $self->{username} = delete $conf{username} || "pbot3";
my $identify_password = delete $conf{identify_password}; $self->{ircname} = delete $conf{ircname} || "http://code.google.com/p/pbot2-pl/";
$self->{identify_password} = delete $conf{identify_password} || "";
my $ircserver = delete $conf{ircserver}; $self->{max_msg_len} = delete $conf{max_msg_len} || 430;
my $max_msg_len = delete $conf{max_msg_len}; $self->{MAX_FLOOD_MESSAGES} = delete $conf{MAX_FLOOD_MESSAGES} || 4;
my $MAX_FLOOD_MESSAGES = delete $conf{MAX_FLOOD_MESSAGES}; $self->{MAX_NICK_MESSAGES} = delete $conf{MAX_NICK_MESSAGES} || 12;
my $MAX_NICK_MESSAGES = delete $conf{MAX_NICK_MESSAGES};
my $ignorelist_file = delete $conf{ignorelist_file}; my $ignorelist_file = delete $conf{ignorelist_file};
my $factoids_file = delete $conf{factoids_file}; my $factoids_file = delete $conf{factoids_file};
my $export_factoids_path = delete $conf{export_factoids_path}; my $export_factoids_path = delete $conf{export_factoids_path};
my $export_factoids_site = delete $conf{export_factoids_site}; my $export_factoids_site = delete $conf{export_factoids_site};
my $module_dir = delete $conf{module_dir};
my $quotegrabs_file = delete $conf{quotegrabs_file}; my $quotegrabs_file = delete $conf{quotegrabs_file};
my $export_quotegrabs_path = delete $conf{export_quotegrabs_path}; my $export_quotegrabs_path = delete $conf{export_quotegrabs_path};
my $export_quotegrabs_site = delete $conf{export_quotegrabs_site}; my $export_quotegrabs_site = delete $conf{export_quotegrabs_site};
$ircserver = "irc.freenode.net" unless defined $ircserver; $self->{logger} = PBot::Logger->new(log_file => $log_file);
$botnick = "pbot3" unless defined $botnick;
$identify_password = "" unless defined $identify_password;
$max_msg_len = 430 unless defined $max_msg_len;
$MAX_FLOOD_MESSAGES = 4 unless defined $MAX_FLOOD_MESSAGES;
$MAX_NICK_MESSAGES = 12 unless defined $MAX_NICK_MESSAGES;
$self->{botnick} = $botnick;
$self->{username} = $username;
$self->{ircname} = $ircname;
$self->{identify_password} = $identify_password;
$self->{max_msg_len} = $max_msg_len;
$self->{MAX_FLOOD_MESSAGES} = $MAX_FLOOD_MESSAGES;
$self->{MAX_NICK_MESSAGES} = $MAX_NICK_MESSAGES;
my $logger = PBot::Logger->new(log_file => $log_file);
$self->{logger} = $logger;
$self->{commands} = PBot::Commands->new(pbot => $self); $self->{commands} = PBot::Commands->new(pbot => $self);
$self->{timer} = PBot::Timer->new(timeout => 10); $self->{timer} = PBot::Timer->new(timeout => 10);
$self->{admins} = PBot::BotAdmins->new( $self->{admins} = PBot::BotAdmins->new(pbot => $self, filename => $admins_file);
pbot => $self,
filename => $admins_file,
);
$self->admins->load_admins(); $self->admins->load_admins();
$self->admins->add_admin($botnick, '.*', "$botnick!stdin\@localhost", 60, 'admin'); $self->admins->add_admin($self->{botnick}, '.*', "$self->{botnick}!stdin\@localhost", 60, 'admin');
$self->admins->login($botnick, "$botnick!stdin\@localhost", 'admin'); $self->admins->login($self->{botnick}, "$self->{botnick}!stdin\@localhost", 'admin');
$self->{factoids} = PBot::Factoids->new( $self->{factoids} = PBot::Factoids->new(
pbot => $self, pbot => $self,
@ -139,9 +111,7 @@ sub initialize {
); );
$self->factoids->load_factoids() if defined $factoids_file; $self->factoids->load_factoids() if defined $factoids_file;
$self->factoids->add_factoid('text', '.*', $botnick, 'version', "/say $VERSION"); $self->factoids->add_factoid('text', '.*', $self->{botnick}, 'version', "/say $VERSION");
$self->module_dir($module_dir);
$self->{lagchecker} = PBot::LagChecker->new(pbot => $self); $self->{lagchecker} = PBot::LagChecker->new(pbot => $self);
$self->{antiflood} = PBot::AntiFlood->new(pbot => $self); $self->{antiflood} = PBot::AntiFlood->new(pbot => $self);
@ -158,7 +128,6 @@ sub initialize {
$self->{ignorelistcmds} = PBot::IgnoreListCommands->new(pbot => $self); $self->{ignorelistcmds} = PBot::IgnoreListCommands->new(pbot => $self);
$self->{irc} = PBot::IRC->new(); $self->{irc} = PBot::IRC->new();
$self->{ircserver} = $ircserver;
$self->{irchandlers} = PBot::IRCHandlers->new(pbot => $self); $self->{irchandlers} = PBot::IRCHandlers->new(pbot => $self);
$self->{channels} = PBot::Channels->new(pbot => $self, filename => $channels_file); $self->{channels} = PBot::Channels->new(pbot => $self, filename => $channels_file);
@ -176,7 +145,7 @@ sub initialize {
export_site => $export_quotegrabs_site, export_site => $export_quotegrabs_site,
); );
$self->quotegrabs->add_quotegrab($botnick, "#pbot2", 0, "pragma_", "Who's a bot?"); $self->quotegrabs->add_quotegrab($self->{botnick}, "#pbot2", 0, "pragma_", "Who's a bot?");
$self->quotegrabs->load_quotegrabs() if defined $quotegrabs_file; $self->quotegrabs->load_quotegrabs() if defined $quotegrabs_file;
$self->timer->start(); $self->timer->start();
@ -266,9 +235,9 @@ sub check_stdin {
return $self->interpreter->process_line($from, $self->{botnick}, "stdin", "localhost", $text); return $self->interpreter->process_line($from, $self->{botnick}, "stdin", "localhost", $text);
} }
################################################################################### #-----------------------------------------------------------------------------------
# Getters/Setters # Getters/Setters
################################################################################### #-----------------------------------------------------------------------------------
sub irc { sub irc {
my $self = shift; my $self = shift;

4
PBot/VERSION.pm
View File

@ -13,8 +13,8 @@ use warnings;
# These are set automatically by the build/commit script # These are set automatically by the build/commit script
use constant { use constant {
BUILD_NAME => "PBot", BUILD_NAME => "PBot",
BUILD_REVISION => 262, BUILD_REVISION => 263,
BUILD_DATE => "2011-01-25", BUILD_DATE => "2011-01-26",
}; };
1; 1;