Change DXUser->get* to DXUser::get*
[spider.git] / cmd / clear / wcy.pl
index cb0dd076e486d3ff5fcaf1f582d958aea33753d4..68706046182f0f74a7466f6ac5d14b3eab98b0b8 100644 (file)
@@ -3,7 +3,7 @@
 #
 # Copyright (c) 2000 Dirk Koopman G1TLH
 #
-# $Id$
+#
 #
 my ($self, $line) = @_;
 my @f = split /\s+/, $line;
@@ -18,7 +18,7 @@ my $f;
 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;