+ mkdir($ref->{prefix}, 0777) unless -e $ref->{prefix};
+ $logs{$ref} = $ref;
+ $ref->{jdate} = $ref->unixtoj($main::systime);
+
+ return $ref;
+}
+
+sub _genfn
+{
+ my ($self, $jdate) = @_;
+ my $year = $jdate->year;
+ my $thing = $jdate->thing;
+
+ my $fn = sprintf "$self->{prefix}/$year/%02d", $thing if $jdate->isa('Julian::Month');
+ $fn = sprintf "$self->{prefix}/$year/%03d", $thing if $jdate->isa('Julian::Day');
+ $fn .= ".$self->{suffix}" if $self->{suffix};
+ return $fn;