| 1 | package CFPlus::Protocol; |
1 | package CFPlus::Protocol; |
| 2 | |
2 | |
| 3 | use utf8; |
3 | use utf8; |
| 4 | use strict; |
4 | use strict; |
| 5 | |
5 | |
| 6 | use Crossfire::Protocol::Constants; |
6 | use Deliantra::Protocol::Constants; |
| 7 | |
7 | |
| 8 | use CFPlus; |
8 | use CFPlus; |
| 9 | use CFPlus::DB; |
9 | use CFPlus::DB; |
| 10 | use CFPlus::UI; |
10 | use CFPlus::UI; |
| 11 | use CFPlus::Pod; |
11 | use CFPlus::Pod; |
| 12 | use CFPlus::Macro; |
12 | use CFPlus::Macro; |
| 13 | use CFPlus::Item; |
13 | use CFPlus::Item; |
| 14 | |
14 | |
| 15 | use base 'Crossfire::Protocol::Base'; |
15 | use base 'Deliantra::Protocol::Base'; |
| 16 | |
16 | |
| 17 | sub new { |
17 | sub new { |
| 18 | my ($class, %arg) = @_; |
18 | my ($class, %arg) = @_; |
| 19 | |
19 | |
| 20 | my $self = $class->SUPER::new (%arg, |
20 | my $self = $class->SUPER::new (%arg, |
| … | |
… | |
| 294 | ############################################################################# |
294 | ############################################################################# |
| 295 | |
295 | |
| 296 | sub logprint { |
296 | sub logprint { |
| 297 | my ($self, @a) = @_; |
297 | my ($self, @a) = @_; |
| 298 | |
298 | |
| 299 | CFPlus::DB::logprint "$Crossfire::VARDIR/log.$self->{host}" => (join "", @a), sub { }; |
299 | CFPlus::DB::logprint "$Deliantra::VARDIR/log.$self->{host}" => (join "", @a), sub { }; |
| 300 | } |
300 | } |
| 301 | |
301 | |
| 302 | sub _stat_numdiff { |
302 | sub _stat_numdiff { |
| 303 | my ($self, $name, $old, $new) = @_; |
303 | my ($self, $name, $old, $new) = @_; |
| 304 | |
304 | |
