X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FApp%2FClifton%2FServer.pm;fp=lib%2FApp%2FClifton%2FServer.pm;h=07a10bb102f22e8f9c7d74ba8eb9aee1e69d3f52;hb=38180dc82ce612829b2c52d661e515fe60ac0f1d;hp=4a46499a15c614627d7e58346d7043f6523be015;hpb=327a4b1a20939c6f165dc432ace73d24624047a4;p=scpubgit%2FClifton.git diff --git a/lib/App/Clifton/Server.pm b/lib/App/Clifton/Server.pm index 4a46499..07a10bb 100644 --- a/lib/App/Clifton/Server.pm +++ b/lib/App/Clifton/Server.pm @@ -39,6 +39,21 @@ sub shutdown { shift->_do(shutdown => @_) } sub _body_for_reload_config { my ($self, $args) = @_; my $config = $self->config_loader->config_from_file($self->config_file); + my $jt = $self->jabber_towers; + foreach my $bridge ($config->bridges->flatten) { + + $jt->{$bridge->name} = $self->_new_child( + Jabber_Tower, { + jabber_config => $bridge->jabber, + irc_config => $bridge->irc, + bridge_name => $bridge->name, + server => $self, + } + ); + } + foreach my $user ($config->users->flatten) { + $jt->{$_}->userconfig_set->add($user) for @{$user->allow}; + } $self->current_config($config); $args->{on_finished}->($config); }