\_SB_.LNKA azD  j-File not found. "lz Jj"Tҁzţ w [#!/usr/local/cpanel/3rdparty/bin/perl # cpanel - scripts/uninstall_plugin Copyright 2022 cPanel, L.L.C. # 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 (); use Cpanel::Config::LoadWwwAcctConf (); my $theme; my $default_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: $default_theme). 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 ); my $wwwacctconf = Cpanel::Config::LoadWwwAcctConf::loadwwwacctconf(); $default_theme = $wwwacctconf->{DEFMOD}; GetOptionsFromArray( \@args, 'theme=s' => \$theme, 'help' => \$help, ) || usage(1); if ($help) { usage(0); } $theme ||= $default_theme; $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;  mYe#!/usr/bin/perl # SPDX-License-Identifier: GPL-2.0 # # Treewide grep for references to files under Documentation, and report # non-existing files in stderr. use warnings; use strict; use Getopt::Long qw(:config no_auto_abbrev); # NOTE: only add things here when the file was gone, but the text wants # to mention a past documentation file, for example, to give credits for # the original work. my %false_positives = ( "Documentation/scsi/scsi_mid_low_api.rst" => "Documentation/Configure.help", "drivers/vhost/vhost.c" => "Documentation/virtual/lguest/lguest.c", ); my $scriptname = $0; $scriptname =~ s,.*/([^/]+/),$1,; # Parse arguments my $help = 0; my $fix = 0; my $warn = 0; if (! -e ".git") { printf "Warning: can't check if file exists, as this is not a git tree\n"; exit 0; } GetOptions( 'fix' => \$fix, 'warn' => \$warn, 'h|help|usage' => \$help, ); if ($help != 0) { print "$scriptname [--help] [--fix]\n"; exit -1; } # Step 1: find broken references print "Finding broken references. This may take a wh