--- lib/DJabberd/Connection/ServerOut.pm +++ lib/DJabberd/Connection/ServerOut.pm @@ -83,19 +83,20 @@ sub on_stream_start { } $self->log->debug("Connection $self->{id} supports dialback"); + + my $vhost = $self->{queue}->vhost; + my $orig_server = $vhost->name; + my $recv_server = $self->{queue}->domain; if ($ss->version->supports_features) { # they can eat a dick for all we care. they get no features. # what is this weird XMPP 1.0 + old-school Dialback world anyway? # maybe we're still confused. FIXME: care. - my $features = ""; + my $features = ""; $self->write($features); $self->log->debug("$self->{id} sending '$features'"); } - my $vhost = $self->{queue}->vhost; - my $orig_server = $vhost->name; - my $recv_server = $self->{queue}->domain; my $db_params = DJabberd::DialbackParams->new( id => $ss->id,