mirror of https://github.com/pragma-/pbot.git
49 lines
1.3 KiB
Perl
Executable File
49 lines
1.3 KiB
Perl
Executable File
#!/usr/bin/perl
|
|
#
|
|
# File: pbot.pl
|
|
# Author: pragma_
|
|
#
|
|
# Purpose: IRC Bot (3rd generation)
|
|
#
|
|
# Version History:
|
|
########################
|
|
|
|
my $VERSION = "1.0.0";
|
|
|
|
########################
|
|
# 1.0.0 (03/14/10): Initial version using PBot::PBot module
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use PBot::PBot;
|
|
|
|
my $home = $ENV{HOME};
|
|
|
|
my %config = ( log_file => "$home/pbot/log",
|
|
|
|
admins_file => "$home/pbot/admins",
|
|
channels_file => "$home/pbot/channels",
|
|
|
|
factoids_file => "$home/pbot/factoids",
|
|
export_factoids_path => "$home/pbot/factoids.html",
|
|
export_factoids_site => 'http://blackshell.com/~msmud/pbot2/factoids.html',
|
|
export_factoids_timeout => 300, # 5 minutes
|
|
module_dir => "$home/pbot/modules",
|
|
|
|
quotegrabs_file => "$home/pbot/quotegrabs",
|
|
export_quotegrabs_path => "$home/pbot/quotegrabs.html",
|
|
export_quotegrabs_site => 'http://blackshell.com/~msmud/pbot2/quotegrabs.html',
|
|
export_quotegrabs_timeout => 300, # 5 minutes
|
|
|
|
ircserver => 'irc.freenode.net',
|
|
botnick => 'pbot3',
|
|
identify_password => '*',
|
|
);
|
|
|
|
my $pbot = PBot::PBot->new(%config);
|
|
|
|
$pbot->start();
|
|
|
|
# not reached
|