1. Added RCMD for clx

[spider.git] / perl / Geomag.pm

diff --git a/perl/Geomag.pm b/perl/Geomag.pm
index e84e5d50c35a5d4a472800713cd02480c81ea084..1d3462dc408cf35dc33b5dcb9d0a2a0fdd41b77c 100644 (file)
--- 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 $@;
 }
@@ -254,9 +253,9 @@ sub dup
        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 +281,4 @@ sub listdups
 }
 1;
 __END__;
+