{
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;
return $self->{fh};
}
+sub fn
+{
+ my ($self, $jdate) = @_;
+
+ return $self->_genfn($jdate);
+}
+
sub delete($$)
{
my ($self, $jdate) = @_;
sub write($$$)
{
my ($self, $jdate, $line) = @_;
+ return unless $self && $jdate;
if (!$self->{fh} ||
$self->{mode} ne ">>" ||
$jdate->year != $self->{jdate}->year ||
sub LogDbg
{
+ my $cat = shift;
DXDebug::dbg($_) for @_;
- Log(@_);
+ Log($cat, @_);
}
sub Logclose