webmin/usermin/edit_twofactor.cgi

#!/usr/local/bin/perl
# Show two-factor authentication options

require './usermin-lib.pl';
ui_print_header(undef, $text{'twofactor_title'}, "", "twofactor");
get_usermin_miniserv_config(\%miniserv);
$miniserv{'session'} || &error($text{'twofactor_esession'});

print "$text{'twofactor_desc'}<p>\n";
$root = &get_usermin_root_directory();
if (!-r $root."/twofactor") {
	&ui_print_endpage("<b>$text{'twofactor_eversion'}</b>");
	}

print <<EOF;
<style>
.opener_shown {display:inline}
.opener_hidden {display:none}
</style>
EOF

@provs = &webmin::list_twofactor_providers();
print "<script>\n";
print "function show_prov(name) {\n";
foreach $p (@provs) {
	print "d = document.getElementById(\"hiddendiv_$p->[0]\");\n";
	print "d && (d.className = name == \"$p->[0]\" ? \"opener_shown\" : \"opener_hidden\");\n";
	}
print "}\n";
print "</script>\n";

print ui_form_start("change_twofactor.cgi", "post");
print ui_table_start($text{'twofactor_header'}, undef, 2);

# Two-factor provider
print ui_table_row($text{'twofactor_provider'},
	ui_select("twofactor_provider", $miniserv{'twofactor_provider'},
		  [ [ "", "&lt;".$text{'twofactor_none'}."&gt;" ],
		    map { [ $_->[0], $_->[1] ] } @provs ],
		  1, 0, 0, 0, "onChange='show_prov(value)'"), undef, [ "valign=middle","valign=middle" ]);

foreach $p (@provs) {
	my $sfunc = "webmin::show_twofactor_apikey_".$p->[0];
	if (defined(&$sfunc)) {
		print &ui_hidden_table_row_start(undef, $p->[0],
			$p->[0] eq $miniserv{'twofactor_provider'}, undef);
		print &$sfunc(\%miniserv);
		print &ui_hidden_table_row_end($p->[0]);
		}
	}

print ui_table_end();
print ui_form_end([ [ "save", $text{'save'} ] ]);

ui_print_footer("", $text{'index_return'});