summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/interactive_http
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/standalone/interactive_http')
-rw-r--r--perl-install/standalone/interactive_http/index.html.pl14
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>
+';