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}
  );
}