(root)/users/lolando/sgeps/trunk : /pwsafe2sgeps (revision 15)

#! /usr/bin/perl

#

# Import a pwsafe database into a sgeps store.

#

# Copyright © 2010, Ben Voui <intrigeri@boum.org>

#

# This program is free software; you can redistribute it and/or modify

# it under the terms of the GNU General Public License as published by

# the Free Software Foundation; either version 2 of the License, or

# (at your option) any later version.

#

# Usage: pwsafe2sgeps FILE [FILE ...]

#

# The file(s) passed on the command line are plaintext pwsafe exports.

# Use "pwsafe --exportdb" to get one.

use strict;

use warnings;

my $version_string = <>;

chomp $version_string;

unless ($version_string =~ m/^\# passwordsafe version 2.0 database$/ms) {

    die "This pwsafe database export version is not supported:\n" .

        "    $version_string\n" .

        "Only version 2.0 is supported.\n";

}

while (<>) {

    chomp;

    # skip comment lines

    next if ($_ =~ m/^\#/xms);

    # skip header line

    next if ($_ =~ m/^ uuid \s+ group \s+ name \s+ login \s+ passwd \s+ notes $/xms);

    my ($uuid, $group, $name, $login, $passwd, $notes) =

        ($_ =~ m/^ "([-0-9a-z]+)"

                   \t "(.*)"

                   \t "(.*)"

                   \t "(.*)"

                   \t "(.*)"

                   \t "(.*)"

                 $/xms)

            or next;

    chomp ($uuid, $group, $name, $login, $passwd, $notes);

    my $key;

    if ($group ne '') {

        $key = "$group/$name";

    }

    else {

         $key = $name;

    }

    open SGEPS, ( '| sgeps --add --batch ' . quotemeta($key) )

        or die "Failed to open pipe to sgeps";

    print SGEPS "$login\n" or die "Failed to print login to pipe";

    print SGEPS "$passwd\n" or die "Failed to print password to pipe";

    print SGEPS "$notes\n" or die "Failed to print notes to pipe";

    close SGEPS or die "Failed to close pipe to sgeps";

}