X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FSpot.pm;h=00b03d845e0cd35ff933f4a595c27dc7c89a4bc7;hb=6a0068ec3df1dca0c6ae2714af3c0a4a62998dcf;hp=fee069a2d7a9ea9867d32a20da6a9c39b1703bf9;hpb=57b5e464bc44ae8eee23ab94c1f499f527595dc9;p=spider.git

diff --git a/perl/Spot.pm b/perl/Spot.pm
index fee069a2..00b03d84 100644
--- 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";
 
+sub init
+{
+  mkdir "$dirprefix", 0777 if !-e "$dirprefix";
+}
+
 sub prefix
 {
   return $dirprefix;
@@ -184,7 +189,7 @@ sub formatb
 {
   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