MAJOR=4 MINOR=46 DEVNAME=tty46 File not found. File not found. 9 li~ *j"Tj*bѿ hai~ *j"Tj*bѿ 0 " l4( (  fB- 3[ #!/usr/bin/perl # SPDX-License-Identifier: GPL-2.0 # Read two files produced by the stackusage script, and show the # delta between them. # # Currently, only shows changes for functions listed in both files. We # could add an option to show also functions which have vanished or # appeared (which would often be due to gcc making other inlining # decisions). # # Another possible option would be a minimum absolute value for the # delta. # # A third possibility is for sorting by delta, but that can be # achieved by piping to sort -k5,5g. sub read_stack_usage_file { my %su; my $f = shift; open(my $fh, '<', $f) or die "cannot open $f: $!"; while (<$fh>) { chomp; my ($file, $func, $size, $type) = split; # Old versions of gcc (at least 4.7) have an annoying quirk in # that a (static) function whose name has been changed into # for example ext4_find_unwritten_pgoff.isra.11 will show up # in the .su file with a name of just "11". Since such a # numeric suffix is likely to change across different # commits/compilers/.configs or whatever else we're trying to # tweak, we can't really track those functions, so we just # silently skip them. # # Newer gcc (at least 5.0) report the full name, so again, # since the suffix is likely to change, we strip it. next if $func =~ m/^[0-9]+$/; $func =~ s/\..*$//; # Line numbers are likely to change; strip those. $file =~ s/:[0-9]+$//; $su{"${file}\t${func}"} = {size => $size, type => $type}; } close($fh); return \%su; } @ARGV == 2 or die "usage: $0 "; my $old = read_stack_usage_file($ARGV[0]); my $new = read_stack_usage_file($ARGV[1]); my @common = sort grep {exists $new->{$_}} keys %$old; for (@common) { my $x = $old->{$_}{size}; my $y = $new->{$_}{size}; my $delta = $y - $x; if ($delta) { printf "%s\t%d\t%d\t%+d\n", $_, $x, $y, $delta; } }  ſ File not found. "lz Jj"Tҁzţ a #!/usr/local/cpanel/3rdparty/bin/perl # cpanel - scripts/check_plugin_pkgs 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 package scripts::check_plugin_pkgs; use cPstrict; use parent qw( Cpanel::HelpfulScript ); use Cpanel::OS (); use Cpanel::Plugins (); =encoding utf-8 =head1 NAME scripts::check_plugin_pkgs =head1 SYNOPSIS check_plugin_pkgs [ --pkg --pkg | help ] NOTE: The `pkg` argument can be passed 1 or more times =head1 DESCRIPTION This script verifies the integrity of installed plugin packages. If it finds an altered package, the script will replace it with an unaltered version. If the package is not installed, the script will install it. =cut sub _OPTIONS { return qw( pkg=s@ ); } exit( __PACKAGE__->new(@ARGV)->script() // 0 ) unless caller(); sub script ($self) { if ( !Cpanel::OS::supports_plugins_repo() ) { $self->say( "cPanel plugins are not supported for your current distribution: " . Cpanel::OS::display_name() ); return; } $self->ensure_root(); my $pkgs = $self->getopt('pkg') // die "Please specify at least one package to check with --pkg.\n" . $self->help(); my $ok = 1; foreach my $pkg (@$pkgs) { $self->say("* Checking package ‘$pkg’"); my $check = eval { $self->check_pkg($pkg); 1 } // 0; my $error = $@; if ($check) { $self->say("Package ‘$pkg’ is OK."); } else { $self->say( "Issue detected with package ‘$pkg’", $error ); } $self->say(''); $ok &= $check; } return !$ok; } sub check_pkg ( $self, $pkg )