diff --git a/bind8/list_tls.cgi b/bind8/list_tls.cgi new file mode 100644 index 000000000..86727b629 --- /dev/null +++ b/bind8/list_tls.cgi @@ -0,0 +1,28 @@ +#!/usr/local/bin/perl +# Show all registered TLS keys + +use strict; +use warnings; +no warnings 'redefine'; +no warnings 'uninitialized'; +our (%access, %text); + +require './bind8-lib.pl'; +$access{'defaults'} || &error($text{'tls_ecannot'}); +&supports_tls() || &error($text{'tls_esupport'}); +my $conf = &get_config(); + +&ui_print_header(undef, $text{'tls_title'}, ""); + +# Show a table of TLS keys +my @tls = &find("tls", $conf); +my @links = ( &ui_link("edit_tls.cgi?new=1", $text{'tls_add'}) ); +if (@tls) { + print &ui_links_row(\@links); + print &ui_columns_start([ $text{'tls_name'}, + $text{'tls_key'}, + $text{'tls_cert'} ], 100); + # XXX + print &ui_columns_end(); + } +print &ui_links_row(\@links); diff --git a/makedist.pl b/makedist.pl index b635d2187..d5a485008 100755 --- a/makedist.pl +++ b/makedist.pl @@ -60,7 +60,8 @@ $vers || usage(); "webmin-search-lib.pl", "WebminCore.pm", "record-login.pl", "record-logout.pl", "record-failed.pl", "robots.txt", "unauthenticated", "bin", "html-editor-lib.pl", - "switch_theme.cgi", "os_eol.json", + "switch_theme.cgi", "os_eol.json", "forgot_form.cgi", + "forgot_send.cgi", "forgot.cgi", ); if ($min) { # Only those required by others