X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fforward%2Flatlong.pl;h=e9afd71014e6e1913f998cdd802cfe4abeb2e69a;hb=ab811a0c902225075a9bd69749f65594079433a9;hp=7f6472bdf1d158de0eaa27534c3da81b8d7f338b;hpb=32849fc856cb0cb825657c0013dfefb125a96bab;p=spider.git diff --git a/cmd/forward/latlong.pl b/cmd/forward/latlong.pl index 7f6472bd..e9afd710 100644 --- a/cmd/forward/latlong.pl +++ b/cmd/forward/latlong.pl @@ -5,7 +5,7 @@ # # Copyright (c) 2000 Dirk Koopman G1TLH # -# $Id$ +# # my ($self, $line) = @_; @@ -16,7 +16,7 @@ my @out; my $dxchan; for ( map {uc $_ } split /\s+/, $line ) { - if (($dxchan = DXChannel->get($_)) && $dxchan->is_node) { + if (($dxchan = DXChannel::get($_)) && $dxchan->is_node) { push @dxchan, $dxchan; } else { push @out, $self->msg('e10', $_); @@ -29,7 +29,7 @@ use DB_File; my ($action, $count, $key, $data); for ($action = R_FIRST, $count = 0; !$DXUser::dbm->seq($key, $data, $action); $action = R_NEXT) { if ($data =~ m{(?:lat|long) =>}) { - my $u = DXUser->get_current($key); + my $u = DXUser::get_current($key); if ($u) { my $lat = $u->lat; my $long = $u->long;