PM/pm.pl

#!/usr/bin/perl

use Getopt::Std;
use Term::ANSIColor;

use Password;
use ClipPass;
use Usage;

# Debug
use Data::Dumper;

our $VERSION = '0.0.1';

my $usage = Usage->new();

sub init() {
    my $opt_string = 'swn:l:p:rhvou:i:c:x:g:b:e:';
    getopts("$opt_string") or $usage->show();
    our (
        $opt_s, $opt_w, $opt_n, $opt_r, $opt_l, $opt_p, $opt_h,
        $opt_v, $opt_o, $opt_u, $opt_i, $opt_c, $opt_x, $opt_g,
	$opt_b, $opt_e
    );

    print "Simple password manager writed in Perl.\nVersion: "
        . $VERSION
        . "\n" and exit 0
        if $opt_v;
    $usage->show() if $opt_h;
}

my $pass = Password->new();

if ( $pass->check_config() == 0 ) {
    exit 0;
}

init();

my $copy = ClipPass->new();

# Command line arguments switch
# It's really ugly code. Sorry :(
if ( defined($opt_s) and defined($opt_n) and !defined($opt_o) ) {

    my $get_h = $pass->show( $opt_n, $opt_u );
    my $get_pass = $get_h->{password};
    
    print colored( "Password for $opt_n not found\n", 'red' ) and exit 1 
        if !($get_pass);

    if ( defined( $ENV{'DISPLAY'} ) ) {
        $copy->copy($get_pass);

        print colored( "Password copied to xclipboard.", 'green' );
        print "\nURI: ";
        print colored( $get_h->{resource} . "\n", 'bold blue' );
        print "User: ";
        print colored( $get_h->{username} . "\n", 'bold yellow');
    }
    else {
        print colored( "Warning! Password will show to terminal!", 'red' );
        print " Yes/No: ";
        my $ans = <STDIN>;
        chomp($ans);
        print "$get_pass\n" if $ans eq "Yes";
        print "Cancel\n" if $ans ne "Yes";
    }

    exit 0;
}
if ( defined($opt_s) and defined($opt_g) ) {

    $pass->show( $opt_n, '', $opt_g );

}
elsif ( defined($opt_s) and defined($opt_n) and defined($opt_o) ) {

    my $get_h = $pass->show( $opt_n, $opt_u );

    my $get_pass = $get_h->{password};
    print colored( "Password for $opt_n not found\n", 'red' ) and exit 1 
        if !($get_pass);
    
    $copy->copy( $get_pass );

    # Open resource.
    my @open_cmd = ( 'xdg-open', $get_h->{resource} );
    system(@open_cmd) == 0 or die "Cannot open URI: $!\n";

    print colored( "Password copied to clipboard.\n", 'bold green' );
    print "Trying to open ";
    print colored( $get_h->{resource} . "\n", 'bold blue' );
}

# Remove string from db
elsif ( defined($opt_r) and defined($opt_i) ) {

    my $store_h = { id => $opt_i, };

    $pass->remove($store_h) == 0 or die "Oops! 111: pm.pl. $!\n";
    print colored( "Password was removed!\n", 'bold red' );
}
elsif ( defined($opt_w)
    and defined($opt_n)
    and defined($opt_l)
    and !defined($opt_p) )
{
    # Generate password and store it into DB
    $opt_g = '' if !($opt_g);

    if ( defined($opt_e) ) {
	$pass_length=$opt_e;
    }

    $opt_p = $pass->generate($pass_length);

    my $store_h = {
        name     => $opt_n,
        resource => $opt_l,
        password => $opt_p,
        username => $opt_u,
        comment  => $opt_c,
        group    => $opt_g,
    };

    $pass->save($store_h) == 0 or die "Oops! 105: pm.pl. $!\n";
    $copy->copy($opt_p);
    print colored( "Password was stored into DB!\n", 'green' );
}
elsif ( defined($opt_w)
    and defined($opt_n)
    and defined($opt_l)
    and defined($opt_p) )
{
    # Store new password into DB
    $opt_g = '' if !($opt_g);

    my $store_h = {
        name     => $opt_n,
        resource => $opt_l,
        password => $opt_p,
        gen      => 0,
        username => $opt_u,
        comment  => $opt_c,
        group    => $opt_g,
    };

    $pass->save($store_h) == 0 or die "Oops! 122: pm.pl. $!\n";
    print colored( "Password was stored into DB!\n", 'green' );
}

# Export
elsif ( defined($opt_x) ) {
    $pass->export($opt_x);
    print colored( "Dabase stored in $opt_x\n", 'green' );
}
elsif ( defined($opt_b) ) {
    $pass->import_db($opt_b);
    print colored( "Database imported from $opt_b\n", 'green' );
}
else {
    $usage->show();
}