mirror of
https://github.com/webmin/webmin.git
synced 2026-02-03 06:03:28 +00:00
30 lines
715 B
Perl
Executable File
30 lines
715 B
Perl
Executable File
#!/usr/local/bin/perl
|
|
# Validate the OTP for some user
|
|
|
|
$main::no_acl_check = 1;
|
|
$main::no_referers_check = 1;
|
|
$ENV{'WEBMIN_CONFIG'} = "/etc/webmin";
|
|
$ENV{'WEBMIN_VAR'} = "/var/webmin";
|
|
if ($0 =~ /^(.*\/)[^\/]+$/) {
|
|
chdir($1);
|
|
}
|
|
require './acl-lib.pl';
|
|
$module_name eq 'acl' || die "Command must be run with full path";
|
|
|
|
# Check command-line args
|
|
@ARGV == 5 || die "Usage: $0 user provider id token api-key";
|
|
($user, $provider, $id, $token, $apikey) = @ARGV;
|
|
|
|
# Call the provider validation function
|
|
&foreign_require("webmin");
|
|
$func = "webmin::validate_twofactor_".$provider;
|
|
$err = &$func($id, $token, $apikey);
|
|
if ($err) {
|
|
$err =~ s/\r|\n/ /g;
|
|
print $err,"\n";
|
|
exit(1);
|
|
}
|
|
else {
|
|
exit(0);
|
|
}
|