Revert "Not working import"

This reverts commit 5892f440e8.
This commit is contained in:
Difrex(Denis Zheleztsov) 2014-06-03 18:38:40 +04:00
parent 10026e374d
commit e465310dc7
3 changed files with 17 additions and 43 deletions

17
GPG.pm
View File

@ -109,21 +109,4 @@ sub export {
return $export_file;
}
sub import {
my ( $self, $file ) = @_;
# Generate random file name
my @chars = ( "A" .. "Z", "a" .. "z" );
my $string;
$string .= $chars[ rand @chars ] for 1 .. 10;
my $dec_file = "/tmp/pm." . $string;
# Decrypt database
# gpg --output filepath --decrypt encfile
my @dec_cmd = ( 'gpg', '--output', $dec_file, '--decrypt', $file );
system(@dec_cmd) == 0 or die "Cannot decrypt file $file: $!\n";
return $dec_file;
}
1;

View File

@ -81,6 +81,19 @@ sub remove {
return 0;
}
sub export {
my ( $self, $filename ) = @_;
my $gpg = $self->{_gpg};
my $dec_db_file = $gpg->decrypt_db();
my $export_enc = $gpg->export($dec_db_file);
my @mv_cmd = ( 'mv', "$export_enc", "$filename" );
system(@mv_cmd) == 0 or die "Cannot move $export_enc to $filename: $!\n";
return 0;
}
# Decrypt base and store new password
sub save {
my ( $self, $store ) = @_;
@ -121,27 +134,6 @@ sub save {
return 0;
}
sub export {
my ( $self, $filename ) = @_;
my $gpg = $self->{_gpg};
my $dec_db_file = $gpg->decrypt_db();
my $export_enc = $gpg->export($dec_db_file);
my @mv_cmd = ( 'mv', "$export_enc", "$filename" );
system(@mv_cmd) == 0 or die "Cannot move $export_enc to $filename: $!\n";
return 0;
}
sub import {
my ( $self, $file ) = @_;
my $gpg = $self->{_gpg};
my $db_class = $self->{_db};
my $dec_file = $gpg->import($file);
}
# Generate password
sub generate {
my @chars = ( "A" .. "Z", "a" .. "z", 0 .. 9 );

View File

@ -25,7 +25,6 @@ Simple password manager writed in Perl.
-i password ID
-o open link
-x [filename] export
-I [filename] import
-h show this help screen and exit
-v show version info and exit