CHips L Pro sangad

Current File : //proc/3/cwd/scripts/uninstall_plugin
#!/usr/local/cpanel/3rdparty/bin/perl
# cpanel - scripts/install_plugin                    Copyright 2015 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;

PluginUninstaller::run(@ARGV) unless caller;

package PluginUninstaller;

use Getopt::Long qw(GetOptionsFromArray);
use File::MMagic ();    # Prevents compilation into binary.
use POSIX ();

use Cpanel::Plugin::Install ();
use Cpanel::TempFile        ();
use Cpanel::ExtractFile     ();

my $theme;

sub usage {
    my $exit_code = shift || 0;
    print <<EO_USAGE;
uninstall_plugin /path/to/plugin/archive

  Uninstalls features from the specified plugin archive.

    Options:
      --theme     Theme to uninstall the plugin from (default: paper_lantern).

EO_USAGE
    POSIX::_exit($exit_code);
    return;
}

sub bail_out {
    my ($msg) = @_;
    print STDERR "error: $msg\n\n";
    usage(1);
    return;
}

sub run {
    my (@args) = @_;

    my ( $archive, $help );

    GetOptionsFromArray(
        \@args,
        'theme=s' => \$theme,
        'help'    => \$help,
    ) || usage(1);

    if ($help) {
        usage(0);
    }

    $theme ||= 'paper_lantern';

    $archive = $args[0];
    if ( !defined $archive ) {
        bail_out 'No archive given!';
    }

    unless ( -e $archive ) {
        bail_out "No file found at $archive";
    }

    my $staging_dir;
    my $temp_dir_obj = Cpanel::TempFile->new;

    if ( !-d $archive ) {

        # determine that the archive is in a format we can actually work with
        my $type = File::MMagic->new->checktype_filename($archive);
        unless ( $type =~ /x-g?(bzip2|tar|zip)$/ ) {
            bail_out "Unrecognized archive format.";
        }

        $staging_dir = $temp_dir_obj->dir( prefix => 'Cpanel-install_plugin' );
        chmod 0755, $staging_dir;

        # extract to staging dir
        my $files = Cpanel::ExtractFile::extractfile( $archive, 'dir' => $staging_dir );
        $staging_dir = Cpanel::Plugin::Install::determine_plugin_docroot($staging_dir);
    }
    else {
        # if $ARGV[0] is a directory, we'll attempt to work with that.
        $staging_dir = $archive;
    }

    if ( !-e "${staging_dir}/install.json" ) {
        print "install.json is missing from the plugin archive, cannot process\n";
        POSIX::_exit(1);
    }

    POSIX::_exit(1) unless Cpanel::Plugin::Install::install_plugin( $staging_dir, $theme, 1 );    # 1 means delete

    print "Plugin uninstalled ok\n";

    return;
}

1;
CHips L MINI SHELL

CHips L pro
