tCMS/bin/totp

#!/usr/bin/env perl

use strict;
use warnings;

use FindBin::libs;

use Trog::Auth;

my $user   = shift @ARGV;
my $domain = shift @ARGV;

die "Must provide a user"   unless $user;
die "Must provide a domain" unless $domain;

my $dbh = Trog::Auth::_dbh();

my $rows = $dbh->selectall_arrayref( "SELECT name, totp_secret FROM user WHERE name = ?", { Slice => {} }, $user );
die "no such user" unless @$rows;
my $secret = $rows->[0]->{totp_secret};

print Trog::Auth::expected_totp_code( undef, $secret ) . "\n";