return $self->{fh};
}
+sub fn
+{
+ my ($self, $jdate) = @_;
+
+ return $self->_genfn($jdate);
+}
+
sub delete($$)
{
my ($self, $jdate) = @_;
sub LogDbg
{
my $cat = shift;
- DXDebug::dbg($_) for @_;
- Log($cat, @_);
+ foreach my $m (@_) {
+ DXDebug::dbgsetcat($cat);
+ DXDebug::dbg($m);
+ Log($cat, $m);
+ }
}
sub Logclose