^^&&^^

Edit File: killsslvhost

#!/usr/local/cpanel/3rdparty/bin/perl
# cpanel - killsslvhost                              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::HttpUtils::ApRestart::BgSafe ();
use Cpanel::HttpUtils::Config::Apache    ();
use Cpanel::HttpUtils::Domain            ();

my @domains = @ARGV;

die "Please provide one or more domains.\n" if !@domains;

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

my $transaction = Cpanel::HttpUtils::Config::Apache->new();
my @removed;
for my $domain (@domains) {
    my $real_domain = Cpanel::HttpUtils::Domain::findAliasMainServer( $domain, $transaction->_get_apache_conf_datastore_obj()->{'data'} );
    next if !$real_domain;

my ( $remove_ok, $removed_ar ) = $transaction->remove_vhosts_by_name( $real_domain, 'ssl' );
    die $removed_ar if !$remove_ok;

push @removed, @$removed_ar;
}

if (@removed) {
    my ( $result, $msg ) = $transaction->save();
    die $msg if !$result;
    ( $result, $msg ) = $transaction->close();
    die $msg if !$result;

Cpanel::HttpUtils::ApRestart::BgSafe::restart();

print $locale->maketext( 'You have successfully removed SSL virtual hosts for the following domains: [join,~, ,_1]”.', [ map { $_->{'servername'} } @removed ] );
}
else {
    $transaction->abort();

print $locale->maketext('The given domains do not have any SSL virtual hosts to remove.');
}

print "\n";

exit;