$class = $this;
my $root=shift;
$self = {
- -depth=>0,
-root=>$root,
-fullpath=>$root,
};
$pos=index($inc,'/',$pos+1)) {
$dp++;
}
+ $self->{-depth} = $dp;
for ($pos=length($fullpath);$dp>0 && $pos>0;
$pos=rindex($fullpath,'/',$pos-1)) {
$dp--;
$self->{-inc} = 'NO-.INCLUDE-IN-PATH/'; # won't work anyway
$self->{-rss} = '';
$self->{-relpath} = '';
+ $self->{-depth} = 0;
}
}
);
print $IND eval $prm,"\n";
} else {
+ print STDERR "could not open ",
+ $self->{-toppath}.'/'.$incdir.'/header.pl',
+ " ($!), reverting to default header";
print $IND a({-href=>"../index.html"},"UP"),"\n",
h1({-class=>'title'},$title),"\n",
}
-breadcrumbs => "breadcrumbs unimplemented",
);
print $IND eval $prm,"\n";
+ } else {
+ print STDERR "could not open ",
+ $self->{-toppath}.'/'.$incdir.'/footer.pl',
+ " ($!), reverting to default empty footer";
}
print $IND end_html,"\n";