summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJeffrey Ratcliffe <jeffrey.ratcliffe@gmail.com>2012-09-15 01:02:29 +0200
committerJason A. Donenfeld <Jason@zx2c4.com>2012-09-15 01:02:29 +0200
commit02d0b9a8007fb8532e3b2af3557fdefbeb8bb9b2 (patch)
treeaf460b9d6af1f2fb51770eeb2a6137b543bdaaca
parent820d3d5ea03f3681f40c2d17c5f6e76cd7f1c3da (diff)
downloadpass-02d0b9a8007fb8532e3b2af3557fdefbeb8bb9b2.tar.gz
pass-02d0b9a8007fb8532e3b2af3557fdefbeb8bb9b2.tar.bz2
pass-02d0b9a8007fb8532e3b2af3557fdefbeb8bb9b2.zip
Perl script for importing an xml from fpm2.
-rwxr-xr-xcontrib/fpm2pass.pl76
1 files changed, 76 insertions, 0 deletions
diff --git a/contrib/fpm2pass.pl b/contrib/fpm2pass.pl
new file mode 100755
index 0000000..09aeb5a
--- /dev/null
+++ b/contrib/fpm2pass.pl
@@ -0,0 +1,76 @@
+#!/usr/bin/perl
+
+use warnings;
+use strict;
+use XML::Simple;
+use Getopt::Long;
+use Pod::Usage;
+
+my ($help, $man);
+my @args = ('help' => \$help,
+ 'man' => \$man,);
+GetOptions (@args) or pod2usage(2);
+pod2usage(1) if ($help);
+pod2usage(-exitstatus => 0, -verbose => 2) if $man;
+pod2usage(
+ -msg => "Syntax error: must specify a file to read.",
+ -exitval => 2,
+ -verbose => 1
+)
+ if (@ARGV != 1);
+
+# Grab the XML to a perl structure
+my $xs = XML::Simple->new();
+my $doc = $xs->XMLin(shift);
+
+for (@{$doc->{PasswordList}{PasswordItem}}) {
+ my $name;
+ if (ref($_->{category}) eq 'HASH') {
+ $name = escape($_->{title});
+ }
+ else {
+ $name = escape($_->{category})."/".escape($_->{title});
+ }
+ my $contents = '';
+ $contents .= "$_->{password}\n" unless (ref($_->{password}) eq 'HASH');
+ $contents .= "user $_->{user}\n" unless (ref($_->{user}) eq 'HASH');
+ $contents .= "url $_->{url}\n" unless (ref($_->{url}) eq 'HASH');
+ unless (ref($_->{notes}) eq 'HASH') {
+ $_->{notes} =~ s/\n/\n /g;
+ $contents .= "notes:\n $_->{notes}\n";
+ }
+ my $cmd = "pass insert -f -m $name";
+ my $pid = open(my $fh, "| $cmd") or die "Couldn't fork: $!\n";
+ print $fh $contents;
+ close $fh;
+}
+
+# escape inverted commas, spaces, ampersands and brackets
+sub escape {
+ my ($s) = @_;
+ $s =~ s/\//-/g;
+ $s =~ s/(['\(\) &])/\\$1/g;
+ return $s;
+}
+
+=head1 NAME
+
+ fpm2pass.pl - imports an .xml exported by fpm2 into pass
+
+=head1 SYNOPSIS
+
+=head1 USAGE
+
+ fpm2pass.pl [--help] [--man] <xml>
+
+The following options are available:
+
+=over
+
+=item --help
+
+=item --man
+
+=back
+
+=cut