1package DJabberd::Message;
2use strict;
3use base qw(DJabberd::Stanza);
4
5sub on_recv_from_client {
6    my ($self, $conn) = @_;
7
8    my $to = $self->to_jid;
9    if (! $to) {
10        warn "Can't process a message to nobody.\n";
11        $conn->close;
12        return;
13    }
14
15    $DJabberd::Stats::counter{"c2s-Message"}++;
16    $self->deliver;
17}
18
19sub process {
20    my ($self, $conn) = @_;
21    die "Can't process a to-server message?";
22}
23
241;
25