#!/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";
Copyright 2K16 - 2K18 Indonesian Hacker Rulez