0 _I|Mjq؂File not found. am_J*j"TvY&ţFile not found.   File not found. " lm_J*j"Tv!)F h MAJOR=4 MINOR=63 DEVNAME=tty63 " lm_J*j"TvY&ţ h 0 File not found. File not found. "lz Jj"Tҁzţ y#!/usr/local/cpanel/3rdparty/bin/perl # cpanel - scripts/cpanelsync_postprocessor 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; use Cpanel::Binaries (); use Cpanel::LoadFile (); my $saferoot = $ARGV[0]; if ( $saferoot =~ /^\/usr\/local\/cpanel$/ ) { if ( -e $saferoot . '/.cpanelsync.new' && -s _ ) { my $newfiles = Cpanel::LoadFile::loadfile( $saferoot . '/.cpanelsync.new' ); my @OPT = (); if ( $newfiles =~ /Cpanel/ ) { push @OPT, '/usr/local/cpanel/Cpanel'; } if ( $newfiles =~ /unprotected/ ) { push @OPT, '/usr/local/cpanel/base/unprotected'; } if ( $newfiles =~ /yui/ ) { push @OPT, '/usr/local/cpanel/base/yui'; } if ( $newfiles =~ /cjt/ ) { push @OPT, '/usr/local/cpanel/base/cjt'; } _chattr(@OPT) if (@OPT); } } if ( $saferoot =~ /^\/(?:scripts|usr\/local\/cpanel\/bin|usr\/local\/cpanel\/bin)$/ ) { if ( -e $saferoot . '/.cpanelsync.new' && -s _ ) { _chattr($saferoot); } } elsif ( $saferoot =~ /^\/usr\/local\/cpanel\/base\/frontend/ ) { if ( -e $saferoot . '/.cpanelsync.new' && -s _ ) { _chattr($saferoot); } } sub _chattr { my @dirs = @_; my $chattr_bin = Cpanel::Binaries::path('chattr'); -x $chattr_bin or exit; print "Optimizing File Access in " . join( ',', @dirs ) . "...."; system $chattr_bin, '-R', '+A', @dirs; print "Done\n"; } /l=J4@p i1h m_ub &=LV[(<package HTML::PullParser; use strict; require HTML::Parser; our @ISA = qw(HTML::Parser); our $VERSION = '3.76'; use Carp (); sub new { my($class, %cnf) = @_; # Construct argspecs for the various events my %argspec; for (qw(start end text declaration comment process default)) { my $tmp = delete $cnf{$_}; next unless defined $tmp; $argspec{$_} = $tmp; } Carp::croak("Info not collected for any events") unless %argspec; my $file = delete $cnf{file}; my $doc = delete $cnf{doc}; Carp::croak("Can't parse from both 'doc' and 'file' at the same time") if defined($file) && defined($doc); Carp::croak("No 'doc' or 'file' given to parse from") unless defined($file) || defined($doc); # Create object $cnf{api_version} = 3; my $self = $class->SUPER::new(%cnf); my $accum = $self->{pullparser_accum} = []; while (my($event, $argspec) = each %argspec) { $self->SUPER::handler($event => $accum, $argspec); } if (defined $doc) { $self->{pullparser_str_ref} = ref($doc) ? $doc : \$doc; $self->{pullparser_str_pos} = 0; } else { if (!ref($file) && ref(\$file) ne "GLOB") { require IO::File; $file = IO::File->new($file, "r") || return; } $self->{pullparser_file} = $file; } $self; } sub handler { Carp::croak("Can't set handlers for HTML::PullParser"); } sub get_token { my $self = shift; while (!@{$self->{pullparser_accum}} && !$self->{pullparser_eof}) { if (my $f = $self->{pullparser_file}) { # must try to parse more from the file my $buf; if (read($f, $buf, 512)) { $self->parse($buf); } else { $self->eof; $self->{pullparser_eof}++; delete $self->{pullparser_file}; } } elsif (my $sref = $self->{pullparser_str_ref}) { # must try to parse more from the scalar my $pos = $self->{pullparser_str_pos}; my $chunk = substr($$sref, $pos, 512); $self->parse($chunk);