diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2001-08-17 23:21:55 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2001-08-17 23:21:55 +0000 |
commit | 926857fafc0c9f2759f3b65aabe8a0112f9a16ca (patch) | |
tree | 48e477dffe10e4e6c99748e75215913dc105bd8c /perl-install/standalone | |
parent | 106c2e53d9d530aa14fb11ecfe3b737126a10173 (diff) | |
download | drakx-926857fafc0c9f2759f3b65aabe8a0112f9a16ca.tar drakx-926857fafc0c9f2759f3b65aabe8a0112f9a16ca.tar.gz drakx-926857fafc0c9f2759f3b65aabe8a0112f9a16ca.tar.bz2 drakx-926857fafc0c9f2759f3b65aabe8a0112f9a16ca.tar.xz drakx-926857fafc0c9f2759f3b65aabe8a0112f9a16ca.zip |
autogenerate index.html
Diffstat (limited to 'perl-install/standalone')
-rw-r--r-- | perl-install/standalone/interactive_http/index.html.pl | 14 |
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> +'; |