diff options
author | Dexter Morgan <dmorgan@mageia.org> | 2011-06-02 20:51:35 +0000 |
---|---|---|
committer | Dexter Morgan <dmorgan@mageia.org> | 2011-06-02 20:51:35 +0000 |
commit | a9b2bdafaf625d10aef2f476aa4014fd36c846bc (patch) | |
tree | 2364afc0ee6739b59a25c44d68c9f003bcaf03d9 /perl-install/standalone/interactive_http/index.html.pl | |
download | drakx-a9b2bdafaf625d10aef2f476aa4014fd36c846bc.tar drakx-a9b2bdafaf625d10aef2f476aa4014fd36c846bc.tar.gz drakx-a9b2bdafaf625d10aef2f476aa4014fd36c846bc.tar.bz2 drakx-a9b2bdafaf625d10aef2f476aa4014fd36c846bc.tar.xz drakx-a9b2bdafaf625d10aef2f476aa4014fd36c846bc.zip |
Branch for updates
Diffstat (limited to 'perl-install/standalone/interactive_http/index.html.pl')
-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> +'; |