36 lines
783 B
Perl
36 lines
783 B
Perl
|
#!/usr/bin/perl
|
||
|
|
|
||
|
|
use Password;
|
||
|
|
|
||
|
|
use Getopt::Std;
|
||
|
|
# Global
|
||
|
|
use vars qw / %opt /;
|
||
|
|
our $VERSION = '0.0.0a';
|
||
|
|
|
||
|
|
sub usage() {
|
||
|
|
print STDERR << "EOF";
|
||
|
|
Simple password manager writed in Perl.
|
||
|
|
|
||
|
|
Usage:
|
||
|
|
|
||
|
|
-s [Name of resource] -- Show password for resource
|
||
|
|
-w -- Store new password(interactive)
|
||
|
|
-W [Name|Link|password] -- Non interactive
|
||
|
|
-r [Name] -- Remove password
|
||
|
|
-h -- Show this help screen and exit
|
||
|
|
-v -- Show version info and exit
|
||
|
|
|
||
|
|
EOF
|
||
|
|
exit 1;
|
||
|
|
}
|
||
|
|
|
||
|
|
sub init() {
|
||
|
|
my $opt_string = 'swWrhv';
|
||
|
|
# TODO: switch's to Getopt::Mixed
|
||
|
|
getopts("$opt_string", \%opt) or usage();
|
||
|
|
print STDOUT "Simple password manager writed in Perl.\nVersion: ".$VERSION . "\n" and exit 0 if $opt{v};
|
||
|
|
usage if $opt{h};
|
||
|
|
}
|
||
|
|
|
||
|
|
init();
|