summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-08-17 23:21:55 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-08-17 23:21:55 +0000
commit926857fafc0c9f2759f3b65aabe8a0112f9a16ca (patch)
tree48e477dffe10e4e6c99748e75215913dc105bd8c
parent106c2e53d9d530aa14fb11ecfe3b737126a10173 (diff)
downloaddrakx-backup-do-not-use-926857fafc0c9f2759f3b65aabe8a0112f9a16ca.tar
drakx-backup-do-not-use-926857fafc0c9f2759f3b65aabe8a0112f9a16ca.tar.gz
drakx-backup-do-not-use-926857fafc0c9f2759f3b65aabe8a0112f9a16ca.tar.bz2
drakx-backup-do-not-use-926857fafc0c9f2759f3b65aabe8a0112f9a16ca.tar.xz
drakx-backup-do-not-use-926857fafc0c9f2759f3b65aabe8a0112f9a16ca.zip
autogenerate index.html
-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>
+';