Fix $httpd_port not having any effect

diff --git a/lib/App/FonBot/Plugin/Config.pm b/lib/App/FonBot/Plugin/Config.pm
index 8bcb682e203b9252378cca9f471fd3f64382f840..09808962dbde7615843eb49a907be3e96a7a4e31 100644 (file)
--- a/lib/App/FonBot/Plugin/Config.pm
+++ b/lib/App/FonBot/Plugin/Config.pm
@@ -18,6 +18,7 @@ our @EXPORT_OK=qw/$oftc_enabled $oftc_nick @oftc_channels $oftc_nickserv_passwor
 our ($oftc_enabled, $oftc_nick, @oftc_channels, $oftc_nickserv_password);
 our ($bitlbee_enabled, $bitlbee_nick, $bitlbee_server, $bitlbee_port, $bitlbee_password);
 our ($dir, $user, $group, @supplementary_groups);
+our ($httpd_port);
 our ($email_batch_seconds, $email_from, $email_subject);
 
 ##################################################

diff --git a/lib/App/FonBot/Plugin/HTTPD.pm b/lib/App/FonBot/Plugin/HTTPD.pm
index 933a56c61843cabce48f36d7783f02f1bc382166..ac7e0e773d0653a6f61ee7088be56bff8e3a74cd 100644 (file)
--- a/lib/App/FonBot/Plugin/HTTPD.pm
+++ b/lib/App/FonBot/Plugin/HTTPD.pm
@@ -33,7 +33,7 @@ sub init{
        %waiting_requests = ();
        %waiting_userrequests = ();
        $httpd = POE::Component::Server::HTTP->new(
-               Port => 8888,
+               Port => $httpd_port,
                PreHandler => { '/' => [\&pre_auth, \&pre_get, \&pre_userget], },
                ContentHandler =>{ '/send' => \&on_send, '/get' => \&on_get, '/ok' => \&on_ok, '/userget' => \&on_userget, '/usersend' => \&on_usersend },
                ErrorHandler => { '/' => sub { RC_OK }},