projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
a76fe13
)
fixed silly typo
R_1_22
author
djk
<djk>
Fri, 8 Jan 1999 11:13:34 +0000
(11:13 +0000)
committer
djk
<djk>
Fri, 8 Jan 1999 11:13:34 +0000
(11:13 +0000)
perl/DXProt.pm
patch
|
blob
|
history
perl/cluster.pl
patch
|
blob
|
history
diff --git
a/perl/DXProt.pm
b/perl/DXProt.pm
index 0225f2f0c314a54b3d298fc9899a8a20e329d256..0cc714135317ff1119a0dc786a326b2b81c8c23f 100644
(file)
--- a/
perl/DXProt.pm
+++ b/
perl/DXProt.pm
@@
-390,7
+390,7
@@
sub normal
return;
}
$wwvdup{$dupkey} = $d;
return;
}
$wwvdup{$dupkey} = $d;
- $field[6] =~ s/-\d+$//o # remove spotter's ssid
+ $field[6] =~ s/-\d+$//o
;
# remove spotter's ssid
my $wwv = Geomag::update($d, $field[2], $sfi, $k, $i, @field[6..$#field]);
my $wwv = Geomag::update($d, $field[2], $sfi, $k, $i, @field[6..$#field]);
diff --git
a/perl/cluster.pl
b/perl/cluster.pl
index 8dc14ed8a8b0625f613bd359645287c239ad9842..30f815418acdc00d3d640ac3aa2ee3050985483a 100755
(executable)
--- a/
perl/cluster.pl
+++ b/
perl/cluster.pl
@@
-49,7
+49,7
@@
package main;
@inqueue = (); # the main input queue, an array of hashes
$systime = 0; # the time now (in seconds)
@inqueue = (); # the main input queue, an array of hashes
$systime = 0; # the time now (in seconds)
-$version = "1.2
1
"; # the version no of the software
+$version = "1.2
2
"; # the version no of the software
$starttime = 0; # the starting time of the cluster
# handle disconnections
$starttime = 0; # the starting time of the cluster
# handle disconnections