<& ../../header, title => "Making Victoria a model jurisdiction for free access to law", path => ['/', 'AustLII', '/austlii/research/', 'Research Projects', '/austlii/research/2009/', '2009'], colour => '', style => 'research', logo2 => '/images/logos/lsbvic_smlogo.png', logo2_link => 'http://www.lsb.vic.gov.au/', &> <% 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; }