/usr/local/CPAN/DJabberd/DJabberd/Message.pm

• package DJabberd::Message
  • on_recv_from_client
  • process
• EOF

package DJabberd::Message;
use strict;
use base qw(DJabberd::Stanza);

sub on_recv_from_client {
    my ($self, $conn) = @_;

    my $to = $self->to_jid;
    if (! $to) {
        warn "Can't process a message to nobody.\n";
        $conn->close;
        return;
    }

    $DJabberd::Stats::counter{"c2s-Message"}++;
    $self->deliver;
}

sub process {
    my ($self, $conn) = @_;
    die "Can't process a to-server message?";
}

1;