1 files changed, 14 insertions, 0 deletions
diff --git a/perl-install/standalone/interactive_http/index.html.pl b/perl-install/standalone/interactive_http/index.html.pl
new file mode 100644
index 000000000..afd91459b
--- /dev/null
+++ b/perl-install/standalone/interactive_http/index.html.pl
@@ -0,0 +1,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>
+';