view release on metacpan or  search on metacpan

AutoIndex.pm  view on Meta::CPAN

        print "</TR>\n";	  
    }
	
    print "</TABLE>\n";
	
    place_doc($r, $cfg, 'readme');
	
    print " <HR>" . $ENV{'SERVER_SIGNATURE'};
	
    if ($config->{debug}) {
		use Data::Dumper;
		print "<PRE>";
		print "<HR>\%list<BR><BR>";
		print Dumper \%$list;
		print "<HR>\$cfg<BR><BR>";
		print Dumper $cfg;
		}
	
    
    if ($r->dir_config("IndexHtmlFoot")){
        $subr = $r->lookup_uri($r->dir_config("IndexHtmlFoot"));

AutoIndex.pm  view on Meta::CPAN

	my ($r, $q) = @_;
	my @s;
	my $cfg = Apache::ModuleConfig->get($r);
	push (@s, "<B>" , __PACKAGE__ , " (ver $VERSION) statistics</B><BR>");

	push (@s , "Done " . $nDir . " listings so far<BR>");
	push (@s , "Done " . $nRedir . " redirects so far<BR>");
	push (@s , "Done " . $nIndex. " indexes so far<BR>");
    	push (@s , "Done " . $nThumb. " thumbnails so far<BR>");

	use Data::Dumper;
	my $string = Dumper $cfg;
	push (@s, $string);
	
return \@s;
}

1;

__END__