X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FSpot.pm;h=7fb1c2275a6fbceb24e89610e3d85eb7e0ac6b95;hb=refs%2Ftags%2FR_1_7;hp=82bbc7ddb0dfa76408fffc07940724c439428457;hpb=ce0803e2110199eca1ad15cd6f66abde58cb949b;p=spider.git

diff --git a/perl/Spot.pm b/perl/Spot.pm
index 82bbc7dd..7fb1c227 100644
--- 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)). 
-  my @date = Julian::unixtoj($spot[2]);
-  $fp->write(@date, $buf);
+  $fp->writeunix($spot[2], $buf);
   
   return $buf;
 }
@@ -163,7 +162,7 @@ sub formatb
 {
   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
@@ -172,7 +171,8 @@ sub formatl
   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;