X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;ds=sidebyside;f=perl%2FGeomag.pm;h=d169565aff0cada8fe0691d8abdc537d45d21518;hb=080a66c38925314321249190eb5a4dc572636d4b;hp=e84e5d50c35a5d4a472800713cd02480c81ea084;hpb=88665a2bed3b9ec9e97237938a95a045b2a21bb4;p=spider.git

diff --git a/perl/Geomag.pm b/perl/Geomag.pm
index e84e5d50..d169565a 100644
--- a/perl/Geomag.pm
+++ b/perl/Geomag.pm
@@ -43,7 +43,6 @@ $param = "$dirprefix/param";
 sub init
 {
 	$fp = DXLog::new('wwv', 'dat', 'm');
-	mkdir $dirprefix, 0777 if !-e $dirprefix; # now unnecessary DXLog will create it
 	do "$param" if -e "$param";
 	confess $@ if $@;
 }
@@ -253,10 +252,9 @@ sub dup
 	# dump if too old
 	return 2 if $d < $main::systime - $dupage;
  
-	$d /= 60;                            # to the nearest minute
-	chomp $text;
-	$text = substr($text, 0, $duplth) if length $text > $duplth; 
-	my $dupkey = "$d|$sfi|$k|$a|$text";
+#	chomp $text;
+#	$text = substr($text, 0, $duplth) if length $text > $duplth; 
+	my $dupkey = "$d|$sfi|$k|$a";
 	return 1 if exists $dup{$dupkey};
 	$dup{$dupkey} = $d * 60;         # in seconds (to the nearest minute)
 	return 0; 
@@ -282,3 +280,4 @@ sub listdups
 }
 1;
 __END__;
+