projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
various DXCluster->get alterations
[spider.git]
/
perl
/
DXLog.pm
diff --git
a/perl/DXLog.pm
b/perl/DXLog.pm
index 5b5914b4e6b2472d5130d44b39c580bc67ff938e..3a6e0e3589ec86b3b53ff00cb665e804b80299e0 100644
(file)
--- a/
perl/DXLog.pm
+++ b/
perl/DXLog.pm
@@
-37,7
+37,6
@@
use Julian;
use Carp;
use strict;
use Carp;
use strict;
-
use vars qw($log);
$log = new('log', 'dat', 'm');
use vars qw($log);
$log = new('log', 'dat', 'm');
@@
-72,7
+71,8
@@
sub open
delete $self->{mode};
}
delete $self->{mode};
}
- $self->{fn} = sprintf "$self->{prefix}/$year/%03d", $thing;
+ $self->{fn} = sprintf "$self->{prefix}/$year/%02d", $thing if $self->{sort} eq 'm';
+ $self->{fn} = sprintf "$self->{prefix}/$year/%03d", $thing if $self->{sort} eq 'd';
$self->{fn} .= ".$self->{suffix}" if $self->{suffix};
$mode = 'r' if !$mode;
$self->{fn} .= ".$self->{suffix}" if $self->{suffix};
$mode = 'r' if !$mode;
@@
-144,7
+144,8
@@
sub write
sub writenow
{
my ($self, $line) = @_;
sub writenow
{
my ($self, $line) = @_;
- my @date = $self->unixtoj(time);
+ my $t = time;
+ my @date = $self->unixtoj($t);
return $self->write(@date, $line);
}
return $self->write(@date, $line);
}
@@
-171,10
+172,11
@@
sub close
# The user is responsible for making sense of this!
sub Log
{
# The user is responsible for making sense of this!
sub Log
{
- $log->writeunix($main::systime, join('^', $main::systime, @_) );
+ my $t = time;
+ $log->writeunix($t, join('^', $t, @_) );
}
}
-sub DESTROY # catch undefs and do what is required further do the tree
+sub DESTROY # catch undefs and do what is required further do
wn
the tree
{
my $self = shift;
DXDebug::dbg("dxlog", "closing $self->{fn}\n");
{
my $self = shift;
DXDebug::dbg("dxlog", "closing $self->{fn}\n");