projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
added logging
[spider.git]
/
perl
/
DXLog.pm
diff --git
a/perl/DXLog.pm
b/perl/DXLog.pm
index 5b5914b4e6b2472d5130d44b39c580bc67ff938e..e4f228035194c42dea45ab9b9129c5e5f7666e6c 100644
(file)
--- a/
perl/DXLog.pm
+++ b/
perl/DXLog.pm
@@
-72,7
+72,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
+145,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,7
+173,8
@@
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 the tree