FM / twofactor

/usr/share/usermin/twofactor

Name	Size	Mode	Actions
lang/	-	0755	rm
ulang/	-	0755	rm
enable.cgi	1979	0755	edit dl rm
index.cgi	1483	0755	edit dl rm
module.info	157	0644	edit dl rm
module.info.pl	107	0644	edit dl rm
qr.cgi	439	0755	edit dl rm
twofactor-funcs-lib.pl	11316	0644	edit dl rm
twofactor-lib.pl	101	0644	edit dl rm
twofactor.pl	695	0755	edit dl rm

Edit: /usr/share/usermin/twofactor/index.cgi (1483B)

#!/usr/bin/perl
# Show a form for enabling two-factor authentication

use strict;
use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
require './twofactor-lib.pl';
our (%in, %text, $remote_user);
&ui_print_header(undef, $text{'index_title'}, "");

# Is it even enabled?
my %miniserv;
&get_miniserv_config(\%miniserv);
if (!$miniserv{'twofactor_provider'}) {
	print $text{'twofactor_setup'},"\n";
	&ui_print_footer("/", $text{'index'});
	return;
	}

# Get the user's current state
my ($provid, $id, $api) = &get_user_twofactor($remote_user, \%miniserv);

print &ui_form_start("enable.cgi", "post");
my @buts;
if ($id) {
	@buts = ( [ "disable", $text{'twofactor_disable'} ] );
	my ($prov) = grep { $_->[0] eq $provid }
		 &list_twofactor_providers();
	print &text('twofactor_already2',
		 "$prov->[1]",
		 "<tt>$id</tt>",
		 "<tt>$remote_user</tt>"),"\n";
	}
else {
	my ($prov) = grep { $_->[0] eq $miniserv{'twofactor_provider'} }
		 &list_twofactor_providers();
	print &text('twofactor_desc2',
		 "$prov->[1]",
		 $prov->[2],
		 "<tt>$remote_user</tt>"),"\n";
	my $ffunc = "show_twofactor_form_".
		 $miniserv{'twofactor_provider'};
	if (defined(&$ffunc)) {
		print &ui_table_start($text{'twofactor_header'}, undef, 2);
		print &{\&{$ffunc}}($remote_user);
		print &ui_table_end();
		}
	@buts = ( [ "enable", $text{'twofactor_enable'} ] );
	}
print &ui_form_end(\@buts);

&ui_print_footer("/", $text{'index'});

#!/usr/bin/perl # Show a form for enabling two-factor authentication use strict; use warnings; no warnings 'redefine'; no warnings 'uninitialized'; require './twofactor-lib.pl'; our (%in, %text, $remote_user); &ui_print_header(undef, $text{'index_title'}, ""); # Is it even enabled? my %miniserv; &get_miniserv_config(\%miniserv); if (!$miniserv{'twofactor_provider'}) { print $text{'twofactor_setup'},"

\n"; &ui_print_footer("/", $text{'index'}); return; } # Get the user's current state my ($provid, $id, $api) = &get_user_twofactor($remote_user, \%miniserv); print &ui_form_start("enable.cgi", "post"); my @buts; if ($id) { @buts = ( [ "disable", $text{'twofactor_disable'} ] ); my ($prov) = grep { $_->[0] eq $provid } &list_twofactor_providers(); print &text('twofactor_already2', "$prov->[1]", "$id", "$remote_user"),"

\n"; } else { my ($prov) = grep { $_->[0] eq $miniserv{'twofactor_provider'} } &list_twofactor_providers(); print &text('twofactor_desc2', "$prov->[1]", $prov->[2], "$remote_user"),"

\n"; my $ffunc = "show_twofactor_form_". $miniserv{'twofactor_provider'}; if (defined(&$ffunc)) { print &ui_table_start($text{'twofactor_header'}, undef, 2); print &{\&{$ffunc}}($remote_user); print &ui_table_end(); } @buts = ( [ "enable", $text{'twofactor_enable'} ] ); } print &ui_form_end(\@buts); &ui_print_footer("/", $text{'index'});