fix the export script

1 files changed, 9 insertions, 1 deletions

diff --git a/bin/pwsafe2pass b/bin/pwsafe2pass
index cc21af5..62796e9 100755
--- a/bin/pwsafe2pass
+++ b/bin/pwsafe2pass
@@ -11,7 +11,15 @@ readline;
 
 while (my $line = <>) {
     my ($uuid, $group, $name, $login, $passwd, $notes) = map {
-        s/^"(.*)"$/$1/; $_
+        s/^"(.*)"$/$1/;
+
+        # sigh
+        s/\\\\/\\/g;
+        s/&gt/>/g; # not a typo, they really forgot the ;
+        s/&lt;/</g;
+        s/&amp;/\&/g;
+
+        $_
     } split /\t/, $line;
 
     # XXX pass doesn't handle filenames with spaces properly