neat footer

[mkgallery.git] / mkgallery.pl

diff --git a/mkgallery.pl b/mkgallery.pl
index 0e3423c761b18b693895752ff9fa1b7cb240f2b4..1031da6949dfab9397931ccfc0adfa993dfa33b5 100755 (executable)
--- a/mkgallery.pl
+++ b/mkgallery.pl
@@ -117,7 +117,6 @@ sub new {
                $class = $this;
                my $root=shift;
                $self = {
-                               -depth=>0,
                                -root=>$root,
                                -fullpath=>$root,
                        };
@@ -159,6 +158,7 @@ sub initpaths {
                                        $pos=index($inc,'/',$pos+1)) {
                        $dp++;
                }
+               $self->{-depth} = $dp;
                for ($pos=length($fullpath);$dp>0 && $pos>0;
                                        $pos=rindex($fullpath,'/',$pos-1)) {
                        $dp--;
@@ -174,6 +174,7 @@ sub initpaths {
                $self->{-inc} = 'NO-.INCLUDE-IN-PATH/'; # won't work anyway
                $self->{-rss} = '';
                $self->{-relpath} = '';
+               $self->{-depth} = 0;
        }
 }
 
@@ -681,6 +682,9 @@ sub startindex {
                );
                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",
        }
@@ -705,6 +709,10 @@ sub endindex {
                        -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";