projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
changed cluster copyright date
[spider.git]
/
perl
/
Spot.pm
diff --git
a/perl/Spot.pm
b/perl/Spot.pm
index 7302193a9c3bfb462bfbbc9f4ff23871dd46b2b9..362e7d5e5252d7f1502def06db8aa5a2a630bc6c 100644
(file)
--- a/
perl/Spot.pm
+++ b/
perl/Spot.pm
@@
-15,7
+15,6
@@
use DXUtil;
use DXLog;
use Julian;
use Prefix;
use DXLog;
use Julian;
use Prefix;
-use Carp;
use strict;
use vars qw($fp $maxspots $defaultspots $maxdays $dirprefix);
use strict;
use vars qw($fp $maxspots $defaultspots $maxdays $dirprefix);
@@
-29,7
+28,7
@@
$dirprefix = "spots";
sub init
{
mkdir "$dirprefix", 0777 if !-e "$dirprefix";
sub init
{
mkdir "$dirprefix", 0777 if !-e "$dirprefix";
- $fp = DXLog::new($dirprefix, "dat", 'd')
+ $fp = DXLog::new($dirprefix, "dat", 'd')
;
}
sub prefix
}
sub prefix
@@
-105,7
+104,7
@@
sub search
my $ref;
my $i;
my $count;
my $ref;
my $i;
my $count;
- my @today = Julian::unixtoj(time);
+ my @today = Julian::unixtoj(time
()
);
my @fromdate;
my @todate;
my @fromdate;
my @todate;