mirror of
https://github.com/pragma-/pbot.git
synced 2024-11-29 23:39:24 +01:00
PBot can now be started from any location, even symlinks
This commit is contained in:
parent
82d29fa058
commit
94eba5f161
15
pbot.pl
15
pbot.pl
@ -10,15 +10,17 @@
|
|||||||
# License, v. 2.0. If a copy of the MPL was not distributed with this
|
# License, v. 2.0. If a copy of the MPL was not distributed with this
|
||||||
# file, You can obtain one at http://mozilla.org/MPL/2.0/.
|
# file, You can obtain one at http://mozilla.org/MPL/2.0/.
|
||||||
|
|
||||||
my $VERSION = "1.0.0";
|
|
||||||
|
|
||||||
use feature 'unicode_strings';
|
use feature 'unicode_strings';
|
||||||
|
|
||||||
use strict;
|
use strict;
|
||||||
use warnings;
|
use warnings;
|
||||||
|
|
||||||
use lib ".";
|
my $bothome;
|
||||||
use PBot::PBot;
|
BEGIN {
|
||||||
|
use File::Basename;
|
||||||
|
$bothome = -l __FILE__ ? dirname readlink __FILE__ : dirname __FILE__;
|
||||||
|
unshift @INC, $bothome;
|
||||||
|
}
|
||||||
|
|
||||||
# !! NOTICE !!
|
# !! NOTICE !!
|
||||||
#
|
#
|
||||||
@ -31,10 +33,6 @@ use PBot::PBot;
|
|||||||
#
|
#
|
||||||
# !! NOTICE !!
|
# !! NOTICE !!
|
||||||
|
|
||||||
# Be sure to set $bothome to the location PBot was extracted (default assumes ~/pbot).
|
|
||||||
# This location must contain the PBot directory, among others configured below.
|
|
||||||
my $bothome = "$ENV{HOME}/pbot";
|
|
||||||
|
|
||||||
my %config = (
|
my %config = (
|
||||||
# -----------------------------------------------------
|
# -----------------------------------------------------
|
||||||
# Be sure to set your IRC information to a registered NickServ account
|
# Be sure to set your IRC information to a registered NickServ account
|
||||||
@ -134,6 +132,7 @@ $config{quotegrabs_file} = "$config{data_dir}/quotegrabs.sqlite3";
|
|||||||
$config{message_history_file} = "$config{data_dir}/message_history.sqlite3";
|
$config{message_history_file} = "$config{data_dir}/message_history.sqlite3";
|
||||||
|
|
||||||
# Create and initialize bot object
|
# Create and initialize bot object
|
||||||
|
use PBot::PBot;
|
||||||
my $pbot = PBot::PBot->new(%config);
|
my $pbot = PBot::PBot->new(%config);
|
||||||
|
|
||||||
# Start the bot main loop; doesn't return
|
# Start the bot main loop; doesn't return
|
||||||
|
Loading…
Reference in New Issue
Block a user