App-iTan

 view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

    - Also accept '0' as tan index
    - Make list output sortable
    - Dist cleanup (no more M::I::ReadmeMarkdownFromPod and version,
      use Class::Load, remove dead code, ...)
    - Switch from MooseX::App::Cmd to MooseX::App

1.03 Sat Oct 10 2009
    - Fix broken makefile

1.02 Sat Oct 10 2009
    - Copy itan to clipboard (as suggested by Aldo 'Dada' Calpini)

1.01 Sat Oct 3 2009
    - Fixed dependencies in Makefile
    - Typos/dist housekeeping

1.00 Sat Oct 3 2009
    - First stable release

bin/itan  view on Meta::CPAN

=item * overwrite 

Index numbers must be unique. Default behaviour is to skip duplicate iTan
indices. When this flag is enabled the duplicate iTans will be overwritten.

=back

=head2 get

Fetches an iTan an mark it as used. If possible the iTan is also copied
to the clipboard.

 itan get [--next] OR [--index INDEX [--lowerinactive]]  [--memo MEMO]

You will be prompted a password to decrypt the selected iTan.

=over

=item * next

Fetches the next available iTan

lib/App/iTan/Command/Get.pm  view on Meta::CPAN

        eval {
            if ($^O eq 'darwin') {
                Class::Load::load_class('Mac::Pasteboard');
                my $pb = Mac::Pasteboard->new();
                $pb->clear;
                $pb->copy($itan);
            } else {
                Class::Load::load_class('Clipboard');
                Clipboard->copy($itan);
            }
            say 'iTan has been coppied to the clipboard';
        };

        $self->mark($index,$self->memo);
        if ($self->lowerinvalid) {
            $self->dbh->do('UPDATE itan SET valid = 0 WHERE tindex < '.$index)
                 or die "ERROR: Cannot execute: " . $self->dbh->errstr();
        }
    }

    return;

lib/App/iTan/Command/Get.pm  view on Meta::CPAN

App::iTan::Command::Get - Fetches selected iTAN

=head1 SYNOPSIS

 itan get [--next] OR [--index INDEX [--lowerinactive]]  [--memo MEMO]

=head1 DESCRIPTION

Fetches an iTan an marks it as used. If possible the iTAN is also copied
to the clipboard.

You will be prompted a password to decrypt the selected iTan.

=head1 OPTIONS

=head2 next

Get the next available iTAN

=head2 index