projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
loads of changes and added things
[spider.git]
/
perl
/
Spot.pm
diff --git
a/perl/Spot.pm
b/perl/Spot.pm
index fee069a2d7a9ea9867d32a20da6a9c39b1703bf9..00b03d845e0cd35ff933f4a595c27dc7c89a4bc7 100644
(file)
--- a/
perl/Spot.pm
+++ b/
perl/Spot.pm
@@
-27,6
+27,11
@@
$defaultspots = 10; # normal number of spots to return
$maxdays = 35; # normal maximum no of days to go back
$dirprefix = "$main::data/spots";
$maxdays = 35; # normal maximum no of days to go back
$dirprefix = "$main::data/spots";
+sub init
+{
+ mkdir "$dirprefix", 0777 if !-e "$dirprefix";
+}
+
sub prefix
{
return $dirprefix;
sub prefix
{
return $dirprefix;
@@
-184,7
+189,7
@@
sub formatb
{
my @dx = @_;
my $t = ztime($dx[2]);
{
my @dx = @_;
my $t = ztime($dx[2]);
- return sprintf "DX de %-
9.9s: %9.1f %-
12s %-30s<%s>", $dx[4], $dx[0], $dx[1], $dx[3], $t ;
+ return sprintf "DX de %-
7.7s: %13.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