projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
various DXCluster->get alterations
[spider.git]
/
perl
/
Spot.pm
diff --git
a/perl/Spot.pm
b/perl/Spot.pm
index 82bbc7ddb0dfa76408fffc07940724c439428457..7fb1c2275a6fbceb24e89610e3d85eb7e0ac6b95 100644
(file)
--- a/
perl/Spot.pm
+++ b/
perl/Spot.pm
@@
-57,8
+57,7
@@
sub add
# compare dates to see whether need to open another save file (remember, redefining $fp
# automagically closes the output file (if any)).
# compare dates to see whether need to open another save file (remember, redefining $fp
# automagically closes the output file (if any)).
- my @date = Julian::unixtoj($spot[2]);
- $fp->write(@date, $buf);
+ $fp->writeunix($spot[2], $buf);
return $buf;
}
return $buf;
}
@@
-163,7
+162,7
@@
sub formatb
{
my @dx = @_;
my $t = ztime($dx[2]);
{
my @dx = @_;
my $t = ztime($dx[2]);
- return sprintf "DX de %-7.7s
: %13.1f %-12.12s %-30s<%s>", $dx[4]
, $dx[0], $dx[1], $dx[3], $t ;
+ return sprintf "DX de %-7.7s
%11.1f %-12.12s %-30s %s", "$dx[4]:"
, $dx[0], $dx[1], $dx[3], $t ;
}
# format a spot for user output in list mode
}
# format a spot for user output in list mode
@@
-172,7
+171,8
@@
sub formatl
my @dx = @_;
my $t = ztime($dx[2]);
my $d = cldate($dx[2]);
my @dx = @_;
my $t = ztime($dx[2]);
my $d = cldate($dx[2]);
- return sprintf "%
9.1f %-12s %s %s %-30s<%s>", $dx[0], $dx[1], $d, $t, $dx[3], $dx[4]
;
+ return sprintf "%
8.1f %-11s %s %s %-28.28s%7s>", $dx[0], $dx[1], $d, $t, $dx[3], "<$dx[4]"
;
}
}
+
1;
1;