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