One Hat Cyber Team

Your IP: 18.217.185.32
Server IP: 97.74.87.16
Server: Linux 16.87.74.97.host.secureserver.net 5.14.0-503.38.1.el9_5.x86_64 #1 SMP PREEMPT_DYNAMIC Fri Apr 18 08:52:10 EDT 2025 x86_64
Server Software: Apache
PHP Version: 8.2.28
Buat File | Buat Folder

View File Name : test_sa_compiled

#!/usr/local/cpanel/3rdparty/bin/perl

# cpanel - scripts/test_sa_compiled                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 Mail::SpamAssassin;
if ($Mail::SpamAssassin::VERSION) {
    my ($perl_version) = ( $] =~ /^(\d\.\d\d\d)/ );
    unshift @INC,
      (
        -e "/var/lib/spamassassin/compiled/$perl_version/$Mail::SpamAssassin::VERSION"
        ? "/var/lib/spamassassin/compiled/$perl_version/$Mail::SpamAssassin::VERSION"
        : "/var/lib/spamassassin/compiled/$Mail::SpamAssassin::VERSION"
      );
}

if (@ARGV) {
    unshift @INC, $ARGV[0];
}

# used by update_spamassassin_config to determine if sa-compile generated a working body_0 XS module
eval {
    require Mail::SpamAssassin::CompiledRegexps::body_0;

    my $string = 'test';
    my $match  = Mail::SpamAssassin::CompiledRegexps::body_0::scan($string);

    print "ok\n";
};