tCMS/bin/totp

#!/usr/bin/env perl

use strict;
use warnings;

use FindBin::libs;

use Trog::Auth;
use Trog::Config;

my $user   = shift @ARGV;
my $domain = Trog::Config->get()->param('general.hostname');

die "Must provide a user"   unless $user;
die "Must Set domain in configuration file" unless $domain;

my ( $uri, $qr, $failure, $message, $totp ) = Trog::Auth::totp($user,$domain);
print "TOTP URI: $uri\n";
print "Secret: ".$totp->base32secret()."\n";
print "Current Auth code: ".$totp->expected_totp_code( time ) . "\n";