Add the bare minimum of what is required for the web interface to work (but be butt...

[itkacl] / itkacl-web-1.0 / web / index.pl

diff --git a/itkacl-web-1.0/web/index.pl b/itkacl-web-1.0/web/index.pl
new file mode 100755 (executable)
index 0000000..44771c7
--- /dev/null
+++ b/itkacl-web-1.0/web/index.pl
@@ -0,0 +1,16 @@
+#! /usr/bin/perl -T
+use strict;
+use warnings;
+use utf8;
+use lib '../include';
+use itkaclcommon;
+
+itkaclcommon::print_header();
+
+print <<"EOF";
+<h1>ACL-tre for Samfundet</h1>
+
+EOF
+
+itkaclcommon::print_tree(1);
+itkaclcommon::print_footer();