projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
rearrange priv/lock tests independent of node type
[spider.git]
/
perl
/
DXLog.pm
diff --git
a/perl/DXLog.pm
b/perl/DXLog.pm
index 1113bc247b2d0a58d412d80104a18987320cb225..a332d39208336c26c5c9c012bc4a3a7b6ac6959a 100644
(file)
--- a/
perl/DXLog.pm
+++ b/
perl/DXLog.pm
@@
-49,7
+49,8
@@
sub new
{
my ($prefix, $suffix, $sort) = @_;
my $ref = bless {}, __PACKAGE__;
{
my ($prefix, $suffix, $sort) = @_;
my $ref = bless {}, __PACKAGE__;
- $ref->{prefix} = "$main::data/$prefix";
+ localdata_mv($prefix);
+ $ref->{prefix} = "$main::local_data/$prefix";
$ref->{suffix} = $suffix if $suffix;
$ref->{sort} = $sort;
$ref->{suffix} = $suffix if $suffix;
$ref->{sort} = $sort;
@@
-100,6
+101,13
@@
sub open
return $self->{fh};
}
return $self->{fh};
}
+sub fn
+{
+ my ($self, $jdate) = @_;
+
+ return $self->_genfn($jdate);
+}
+
sub delete($$)
{
my ($self, $jdate) = @_;
sub delete($$)
{
my ($self, $jdate) = @_;
@@
-211,8
+219,12
@@
sub Log
sub LogDbg
{
sub LogDbg
{
- DXDebug::dbg($_) for @_;
- Log(@_);
+ my $cat = shift;
+ foreach my $m (@_) {
+ DXDebug::dbgsetcat($cat);
+ DXDebug::dbg($m);
+ Log($cat, $m);
+ }
}
sub Logclose
}
sub Logclose