#!/usr/local/cpanel/3rdparty/bin/perl
# cpanel - scripts/rebuildusersslstorage          Copyright(c) 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::SSLStorage::Installed ();
use Digest::MD5                   ();

my ( $ssl_ok, $sslstorage ) = Cpanel::SSLStorage::Installed->new();
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";