<& ../../../header, title => "The Australian Legal Scholarship Library", path => ['/', 'AustLII', '/austlii/research/', 'Research Projects', '/austlii/research/2008/', '2008'], colour => '', style => 'research', &> <% include_file() %> <& ../../../footer &> <%init> our $uri = $r->uri; $uri =~ s|/index.[s]?htm[l]?$|/|i; our $base = '/home/web/htdocs'; sub include_file { my $file = shift || 'contents.html'; my $PRINT = 0; open F, "$base/$uri/$file" or die "cannot open $file\n"; while () { print if ($PRINT); $PRINT = 1 if (m##); } close F; # return $contents; }