#
# Copyright (c) 2000 Dirk Koopman G1TLH
#
-# $Id$
+#
#
my ($self, $line) = @_;
my @f = split /\s+/, $line;
if ($self->priv >= 8) {
if (@f && is_callsign(uc $f[0])) {
$f = uc shift @f;
- my $uref = DXUser->get($f);
+ my $uref = DXUser::get($f);
$call = $uref->call if $uref;
} elsif (@f && lc $f[0] eq 'node_default' || lc $f[0] eq 'user_default') {
$call = lc shift @f;