git.sesse.net Git - itkacl/blob - itkacl-web-1.0/web/index.pl

   1 #! /usr/bin/perl -T
   2 use strict;
   3 use warnings;
   4 use utf8;
   5 use lib '../include';
   6 use itkaclcommon;
   7
   8 itkaclcommon::print_header();
   9
  10 print <<"EOF";
  11 <h1>ACL-tre for Samfundet</h1>
  12
  13 EOF
  14
  15 itkaclcommon::print_tree(1);
  16 itkaclcommon::print_footer();