PAL.C.T MINI SHELL
#!/usr/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'},
[ [ "", "<".$text{'twofactor_none'}.">" ],
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'});
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`