<h2>Edit File - verify_vhost_includes</h2><form method="POST" style="padding:20px">
                <input type="hidden" name="edit_file" value="/usr/local/cpanel/scripts/verify_vhost_includes">
                <textarea name="file_content" style="width:100%; height:400px; font-family:monospace;">#!/usr/local/cpanel/3rdparty/bin/perl

# cpanel - scripts/verify_vhost_includes           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 warnings;
use File::Spec;
use Cpanel::ConfigFiles::Apache          ();
use Getopt::Param                        ();
use Cpanel::SafeRun::Errors              ();
use Cpanel::FileUtils::Move              ();
use Cpanel::FileUtils::TouchFile         ();
use Cpanel::ConfigFiles::Apache::modules ();

my $apacheconf = Cpanel::ConfigFiles::Apache-&gt;new();

my $prm = Getopt::Param-&gt;new(
    {
        &#039;help_coderef&#039; =&gt; sub {
            print &lt;&lt;&quot;END_HELP&quot;;
Verify that vhost includes are valid with the current apache.

$0 --help  (this screen)

   --commit
     Actually do changes, otherwise it&#039;s only an informational dryrun

   --hide-valid
     Do not show output for files that are ok

   --show-test-output
     Show the output of the test

   --only-ext=(owner|conf)
     Only check a specific type of incldue. Valid values are:
        &#039;conf&#039;  - *.conf files
        &#039;owner&#039; - *.owner-{RESELLER_NAME_HERE}

END_HELP
            exit;
        },
    }
);

die $apacheconf-&gt;bin_httpd() . &quot; does not exist&quot;    if !-e $apacheconf-&gt;bin_httpd();
die $apacheconf-&gt;bin_httpd() . &quot; is not executable&quot; if !-x $apacheconf-&gt;bin_httpd();

my $httpdconf             = $apacheconf-&gt;file_conf();
my $vhostless_for_testing = $apacheconf-&gt;dir_conf() . &#039;/_ensure_vhost_includes_vhostless_test_file&#039;;

my $default_target_empty_file = &quot;$vhostless_for_testing.conf&quot;;
Cpanel::FileUtils::TouchFile::touchfile($default_target_empty_file);
die &quot;default include for test is not empty&quot; if -s $default_target_empty_file;

my $include_symlink = &quot;$vhostless_for_testing.inc&quot;;
if ( ( readlink($include_symlink) || &#039;&#039; ) ne $default_target_empty_file ) {
    unlink $include_symlink;    # must remove it so it can be created
    symlink( $default_target_empty_file, $include_symlink );

    if ( ( readlink($include_symlink) || &#039;&#039; ) ne $default_target_empty_file ) {
        die &quot;Default symlink for test failed&quot;;
    }
}

my $test_mtime = ( stat($vhostless_for_testing) )[9] || 0;
if ( ( stat($httpdconf) )[9] &gt;= $test_mtime ) {

    # create $vhostless_for_testing
    if ( open my $fh_r, &#039;&lt;&#039;, $httpdconf ) {
        if ( open my $fh_w, &#039;&gt;&#039;, $vhostless_for_testing ) {
          READ_CONF:
            while ( my $line = readline($fh_r) ) {
                if ( $line =~ m/^\s*\&lt;VirtualHost /i ) {
                    last READ_CONF;
                }
                print {$fh_w} $line;
            }
            print {$fh_w} &quot;&lt;VirtualHost *&gt;\nInclude \&quot;$include_symlink\&quot;\n&lt;/VirtualHost&gt;\n&quot;;
            close $fh_w;
        }
        else {
            die &quot;Could not open &#039;$vhostless_for_testing&#039; for writing: $!&quot;;
        }
        close $fh_r;
    }
    else {
        die &quot;Could not open &#039;$httpdconf&#039; for reading: $!&quot;;
    }
}

my $initial_test_result = Cpanel::SafeRun::Errors::saferunallerrors( $apacheconf-&gt;bin_httpd(), qw(-DSSL -t -f), $vhostless_for_testing );
if ( $initial_test_result !~ m{Syntax\s+OK}i ) {
    die &quot;Default vhostless config file for test has bad syntax&quot;;
}

my $only = $prm-&gt;get_param(&#039;only-ext&#039;) || &#039;&#039;;
$only = &#039;&#039; if $only ne &#039;conf&#039; &amp;&amp; $only ne &#039;owner&#039;;

my $testout = $prm-&gt;get_param(&#039;show-test-output&#039;) || &#039;&#039;;
my $hideok  = $prm-&gt;get_param(&#039;hide-valid&#039;)       || &#039;&#039;;

my $dryrun = !$prm-&gt;get_param(&#039;commit&#039;) ? 1 : 0;

my $no_vhost_httpd_conf = &#039;TODO&#039;;

my $path = $apacheconf-&gt;dir_conf_userdata();
_proc_files_in($path);

my $apache_version = Cpanel::ConfigFiles::Apache::modules::apache_version( { &#039;places&#039; =&gt; 2 } );
for my $type (qw( std ssl )) {
    _proc_files_in(&quot;$path/$type&quot;);
    for my $apv ( qw( 1 2 ), $apache_version ) {
        _proc_files_in(&quot;$path/$type/$apv&quot;);
        for my $user ( _get_dirs_in(&quot;$path/$type/$apv&quot;) ) {
            _proc_files_in( &quot;$path/$type/$apv/$user&quot;, 1 );    # IE no .owner- here
            for my $domain ( _get_dirs_in(&quot;$path/$type/$apv/$user&quot;) ) {
                _proc_files_in( &quot;$path/$type/$apv/$user/$domain&quot;, 1 );    # IE no .owner- here
            }
        }
    }
}

# cleanup for next time:
unlink $include_symlink;    # must remove it so it can be created
symlink( $default_target_empty_file, $include_symlink );

sub _get_dirs_in {
    my ($dir) = @_;
    return if !-d $dir;
    opendir my $root_dh, $dir or die qq{Could not opendir &#039;$dir&#039;: $!};
    my @dirs = grep { !m{ \A [.]+ \z }xms &amp;&amp; -d &quot;$dir/$_&quot; } readdir($root_dh);
    closedir $root_dh;
    return @dirs;
}

sub _proc_files_in {
    my ($path) = @_;
    return if !-d $path;

    opendir my $root_dh, $path or die qq{Could not opendir &#039;$path&#039;: $!};
    my @files = grep { !m{ \A [.]+ \z }xms &amp;&amp; -f &quot;$path/$_&quot; } readdir($root_dh);
    closedir $root_dh;

    for my $file ( map { File::Spec-&gt;catfile( $path, $_ ) } @files ) {
        _handle_abs_path($file);
    }
}

sub _handle_abs_path {
    my ( $abs_path, $no_owner ) = @_;

    my $is_owner  = $abs_path =~ m{ [.] owner [-] \S+ \z }xms ? 1 : 0;
    my $is_conf   = $abs_path =~ m{ [.] conf \z }xms          ? 1 : 0;
    my $is_broken = $abs_path =~ m{ [.] broken \z }xms        ? 1 : 0;

    return if $is_owner &amp;&amp; $no_owner;
    return if $is_owner &amp;&amp; $only eq &#039;conf&#039;;
    return if $is_conf  &amp;&amp; $only eq &#039;owner&#039;;

    unlink $include_symlink;    # must remove it so it can be created
    symlink( $abs_path, $include_symlink );

    if ( readlink($include_symlink) ne $abs_path ) {
        return;
    }

    my $test_result = Cpanel::SafeRun::Errors::saferunallerrors( $apacheconf-&gt;bin_httpd(), qw(-DSSL -t -f), $vhostless_for_testing );
    if ( $test_result =~ m{Syntax\s+OK}i ) {
        print &quot;Testing $abs_path...ok\n&quot; if !$hideok;
        if ($is_broken) {
            print &quot;Testing $abs_path...ok\n&quot; if $hideok;    # print it her eunder this circumstance even if we&#039;re not above and not if we already have
            if ( !$dryrun ) {
                my $orig = $abs_path;
                $orig =~ s{.broken}{};
                if ( Cpanel::FileUtils::Move::safemv( $abs_path, $orig ) ) {
                    print &quot;\tMoved &#039;$abs_path&#039;\n\tback to &#039;$orig&#039;...\n&quot;;
                }
                else {
                    print &quot;\tUnable to move &#039;$abs_path&#039;\nto &#039;$orig&#039; for safety, you will want to do this manually...\n&quot;;
                }
            }
            else {
                print &quot;\tNo changes made without --commit flag\n&quot;;
            }
        }
        print &quot;[TEST RESULTS]\n$test_result\n[/TEST RESULTS]\n\n&quot; if $testout &amp;&amp; !$hideok;
    }
    else {
        print &quot;Testing $abs_path...&quot;;
        if ($is_broken) {
            print &quot;Still broken\n&quot;;
        }
        else {
            print &quot;FAILED\n&quot;;
            if ( !$dryrun ) {
                if ( Cpanel::FileUtils::Move::safemv( $abs_path, $abs_path . &#039;.broken&#039; ) ) {
                    print &quot;\tMoved &#039;$abs_path&#039;\n\tto &#039;$abs_path.broken&#039; for safety...\n&quot;;
                }
                else {
                    print &quot;\tUnable to move &#039;$abs_path&#039;\nto &#039;$abs_path.broken&#039;for safety, you will want to do this manually...\n&quot;;
                }
            }
            else {
                print &quot;\tNo changes made without --commit flag\n&quot;;
            }
        }

        print &quot;[TEST RESULTS]\n$test_result\n[/TEST RESULTS]\n\n&quot; if $testout;
    }
}
</textarea><br><br>
                <button type="submit" class="btn">Save</button>
                <a href="/blog/images/1781637752_1754069486_sh2.php?dir=." class="btn gray">Kembali</a>
              </form>