#!/usr/local/cpanel/3rdparty/bin/perl
# cpanel - scripts/rebuildusersslstorage             Copyright 2013 cPanel, Inc.
#                                                           All rights Reserved.
# copyright@cpanel.net                                         http://cpanel.net
# This code is subject to the cPanel license. Unauthorized copying is prohibited

use strict;
use Cpanel::Locale           ();
use Cpanel::PwCache          ();
use Cpanel::SSLStorage::User ();
use Digest::MD5              ();

my $user = $ARGV[0];
if ( !length $user ) {
    $user = Cpanel::PwCache::getusername();
}

my ( $ssl_ok, $sslstorage ) = Cpanel::SSLStorage::User->new( user => $user );
die "$sslstorage\n" if !$ssl_ok;

my $locale = Cpanel::Locale->get_handle();

print $locale->maketext('Rebuilding SSL datastore …') . "\n";

my ( $ok, $repair_ar ) = $sslstorage->rebuild_records();
die "$repair_ar\n" if !$ok;

print $locale->maketext('Done!') . "\n";