projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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');
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 $@;
}
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
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;
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__;
}
1;
__END__;
+