package Spot;
-use FileHandle;
+use IO::File;
use DXVars;
use DXDebug;
use DXUtil;
use DXLog;
use Julian;
use Prefix;
-use Carp;
use strict;
use vars qw($fp $maxspots $defaultspots $maxdays $dirprefix);
sub init
{
mkdir "$dirprefix", 0777 if !-e "$dirprefix";
- $fp = DXLog::new($dirprefix, "dat", 'd')
+ $fp = DXLog::new($dirprefix, "dat", 'd');
}
sub prefix
my $ref;
my $i;
my $count;
- my @today = Julian::unixtoj(time);
+ my @today = Julian::unixtoj(time());
my @fromdate;
my @todate;