perl-install/standalone/interactive_http/index.html.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14

use MDK::Common;

print '<html>
';
foreach (map { chomp_($_) } cat_('authorised_progs')) {
    my $name = basename($_);
    print 
qq(<a href="/interactive_http.cgi?state=new&prog=$_">$name</a>
<br>
);
}
print '
</html>
';