X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FGeomag.pm;h=3447743ffafc76a47b14e60481630006db1efddc;hb=7d4b15681464d77945e7ea78ef60ed3305d57d95;hp=6bc925b8bd3fa2bedd3f2af0f86ea4958a618a9b;hpb=b9dffeff7239952814342dad19db3a51def6fab7;p=spider.git diff --git a/perl/Geomag.pm b/perl/Geomag.pm index 6bc925b8..3447743f 100644 --- a/perl/Geomag.pm +++ b/perl/Geomag.pm @@ -5,7 +5,7 @@ # # Copyright (c) 1998 - Dirk Koopman G1TLH # -# $Id$ +# # package Geomag; @@ -38,7 +38,7 @@ $from = ""; # who this came from $duplth = 20; # the length of text to use in the deduping $dupage = 12*3600; # the length of time to hold spot dups -$dirprefix = "$main::data/wwv"; +$dirprefix = "$main::local_data/wwv"; $param = "$dirprefix/param"; $filterdef = bless ([