view release on metacpan or  search on metacpan

bin/oath  view on Meta::CPAN

#!/usr/bin/env perl
our $VERSION = '1.20260324'; # VERSION

use strict;
use warnings;

use App::OATH;
use Getopt::Long;

my $add;
my $file;
my $help;
my $init;
my $list;
my $newpass;
my $search;
my $raw;
my $rawqr;

if ( ! GetOptions(
    'add=s'    => \$add,
    'file=s'   => \$file,
    'help'     => \$help,
    'init'     => \$init,
    'list'     => \$list,
    'newpass'  => \$newpass,
    'search=s' => \$search,
    'raw'      => \$raw,
    'rawqr'    => \$rawqr,
) ) {
    $help = 1;
}

my $app = App::OATH->new();

if ( $help ) {
    $app->usage();
    exit 0;
}

$app->set_search( $search )   if $search;
$app->set_filename( $file )   if $file;
$app->set_raw()               if $raw;
$app->set_rawqr()             if $rawqr;
$app->init()                  if $init;

$app->get_lock() || die 'File is already locked';

if ( $newpass ) {
    $app->set_newpass( $newpass );
    if ( $add ) {
        $app->add_entry( $add );
    }
    else {
        $app->encrypt_data();
        $app->save_data();
    }
}
elsif ( $add ) {
    $app->add_entry( $add );
}
elsif ( $list ) {
    $app->list_keys();
}
else {
    $app->display_codes();
}

$app->drop_lock();

exit 0;