<%shared> my %P; <%attr> SITECSS=>["/style.css"] TITLE=>"PORTKNOCKING - A system for stealthy authentication across closed ports." DESCRIPTION=>"Port knocking is a stealthy network authentication system that uses closed ports to carry out identification of trusted users. The system permits manipulation of firewall rules from a remote host across closed ports through encrypted channels." % my @views = (qw(about primer details knocklab download implementations documentation faq images resources contribute contact)); % foreach my $view (@views) { % if($P{view} eq $view) { % if ($m->comp_exists("/$P{comproot}/view/$view")) { <& "/$P{comproot}/view/$view", P=>\%P &> % } % } % } <%init> use CGI qw/:all/; use POSIX qw(strftime); use Number::Format; my $format = Number::Format->new(); <%args> %P