$web_root C:/www
$domain_root domain

##</code><code>##

docroot docroot
art_root articles
pic_root pics

##</code><code>##

Sub docroot{
  my  $self = shift;
  my $cnf = $self->cnf;
  return join(
    q{/},
    $cnf->param(q{$web_root}),
    $cnf->param(q{$domain_root}),
    $cnf->param(q{docroot}),
  );
}

sub art_root {
  my $self = shift;
  my $cnf = $self->cnf;
  return join(
    q{/},
    $self->docroot,
    $cnf->param(q{art_root}
  );
}

##</code><code>##

my $article_file = join(
  q{/},
  $self->art_root,
  $art_dirname,
  $art_filename,
);