foreach my $kvp (split(/,/, $data)) {
- if ($kvp =~ m/^type=(yubico)$/) {
+ if ($kvp =~ m/^type=(yubico|oath)$/) {
$res->{type} = $1;
} elsif ($kvp =~ m/^id=(\S+)$/) {
$res->{id} = $1;
$res->{key} = $1;
} elsif ($kvp =~ m/^url=(\S+)$/) {
$res->{url} = $1;
+ } elsif ($kvp =~ m/^digits=([6|7|8])$/) {
+ $res->{digits} = $1;
+ } elsif ($kvp =~ m/^step=([1-9]\d+)$/) {
+ $res->{step} = $1;
} else {
return undef;
}
sub write_config {
my ($class, $filename, $cfg) = @_;
- delete $cfg->{ids}->{pve};
- delete $cfg->{ids}->{pam};
-
foreach my $realm (keys %{$cfg->{ids}}) {
my $data = $cfg->{ids}->{$realm};
if ($data->{comment}) {