晋太元中，武陵人捕鱼为业。缘溪行，忘路之远近。忽逢桃花林，夹岸数百步，中无杂树，芳草鲜美，落英缤纷。渔人甚异之，复前行，欲穷其林。 　　林尽水源，便得一山，山有小口，仿佛若有光。便舍船，从口入。初极狭，才通人。复行数十步，豁然开朗。土地平旷，屋舍俨然，有良田、美池、桑竹之属。阡陌交通，鸡犬相闻。其中往来种作，男女衣着，悉如外人。黄发垂髫，并怡然自乐。 　　见渔人，乃大惊，问所从来。具答之。便要还家，设酒杀鸡作食。村中闻有此人，咸来问讯。自云先世避秦时乱，率妻子邑人来此绝境，不复出焉，遂与外人间隔。问今是何世，乃不知有汉，无论魏晋。此人一一为具言所闻，皆叹惋。余人各复延至其家，皆出酒食。停数日，辞去。此中人语云：“不足为外人道也。”(间隔 一作：隔绝) 　　既出，得其船，便扶向路，处处志之。及郡下，诣太守，说如此。太守即遣人随其往，寻向所志，遂迷，不复得路。 　　南阳刘子骥，高尚士也，闻之，欣然规往。未果，寻病终。后遂无问津者。 .
Prv8 Shell
Server : Apache
System : Linux srv.rainic.com 4.18.0-553.47.1.el8_10.x86_64 #1 SMP Wed Apr 2 05:45:37 EDT 2025 x86_64
User : rainic ( 1014)
PHP Version : 7.4.33
Disable Function : exec,passthru,shell_exec,system
Directory :  /scripts/

Upload File :
current_dir [ Writeable ] document_root [ Writeable ]

 

Current File : //scripts/fastmail
#!/usr/local/cpanel/3rdparty/bin/perl

# cpanel - scripts/fastmail                        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::fastmail;

use strict;
use warnings;

use Cpanel::ServerTasks                  ();
use Cpanel::PwCache::Helpers             ();
use Cpanel::PwCache::Build               ();
use Cpanel::Config::LoadCpConf           ();
use Cpanel::AccessIds::ReducedPrivileges ();
use Cpanel::Config::Users                ();

my $MIN_INOTIFY_NEEDED       = 4096;
my $MIN_INOTIFY_QUEUE_NEEDED = 16384;

__PACKAGE__->script(@ARGV) unless caller();

sub script {    ## no critic qw(Subroutines::ProhibitExcessComplexity)
    my ( $self, @args ) = @_;

    # TODO: This modulino needs to have its core functionality moved to
    # a module and have its test coverage improved.  Once done the
    # install/* scripts should call the module directly instead of
    # loading this modulino.
    if ( grep( /auto|daemonize/, @args ) ) {
        if ( fork() ) { exit; }
    }
    my $cpconf_ref = Cpanel::Config::LoadCpConf::loadcpconf_not_copy();

    if ( -w '/proc/sys/fs/inotify/max_user_instances' || -w '/proc/sys/filesystem/inotify/max_user_instances' ) {
        Cpanel::PwCache::Helpers::no_uid_cache();    #uid cache only needed if we are going to make lots of getpwuid calls

        Cpanel::PwCache::Build::init_passwdless_pwcache();

        my $pwcache_ref = Cpanel::PwCache::Build::fetch_pwcache();

        my $inotify_needed       = 128;
        my $inotify_queue_needed = 16384;
        my %CPUSERS              = map { $_ => 1 } Cpanel::Config::Users::getcpusers();

        foreach my $pwref (@$pwcache_ref) {
            my $current_inotify_needed = 0;
            next if !$CPUSERS{ $pwref->[0] };
            my $homedir = (@$pwref)[7];
            my $privs   = $pwref->[2] ? Cpanel::AccessIds::ReducedPrivileges->new( $pwref->[2], $pwref->[3] ) : 0;
            if ( -e $homedir . '/.cpanel/email_accounts.json' && ( stat(_) )[7] < 1000000 && open( my $email_account_fh, '<', $homedir . '/.cpanel/email_accounts.json' ) ) {
                while ( readline($email_account_fh) ) {
                    $current_inotify_needed += 10 while (m/"diskused":/gs);
                }
                close($email_account_fh);

                $inotify_queue_needed += $current_inotify_needed;

                $current_inotify_needed += 128;

                if ( $current_inotify_needed > $inotify_needed ) {
                    $inotify_needed = $current_inotify_needed;
                }
            }
        }

        $inotify_queue_needed += $inotify_needed;

        if ( $inotify_needed < $MIN_INOTIFY_NEEDED ) {
            $inotify_needed = $MIN_INOTIFY_NEEDED;
        }

        if ( $inotify_queue_needed < $MIN_INOTIFY_QUEUE_NEEDED ) {
            $inotify_queue_needed = $MIN_INOTIFY_QUEUE_NEEDED;
        }

        foreach my $key ( 'fs', 'filesystem' ) {
            if ( -w '/proc/sys/' . $key . '/inotify/max_user_instances' && open( my $inotify_proc, '>', '/proc/sys/' . $key . '/inotify/max_user_instances' ) ) {
                print {$inotify_proc} $inotify_needed . "\n";
                close($inotify_proc);
            }
            if ( -w '/proc/sys/' . $key . '/inotify/max_queued_events' && open( my $inotify_proc, '>', '/proc/sys/' . $key . '/inotify/max_queued_events' ) ) {
                print {$inotify_proc} $inotify_queue_needed . "\n";
                close($inotify_proc);
            }

        }

        if ( $cpconf_ref->{'mailserver'} eq 'dovecot' ) {
            if ( open( my $fastmail_fh, '>', '/var/cpanel/fastmail' ) ) {
                print {$fastmail_fh} '2';
                close($fastmail_fh);
            }
        }
        else {
            unlink('/var/cpanel/fastmail');
        }

    }
    else {
        require Cpanel::CachedDataStore;
        my $conf_dir        = '/var/cpanel/conf/dovecot';
        my $conf_file       = $conf_dir . '/main';
        my $dovecot_conf_hr = {};

        # Usage is safe as we own the dir and file
        $dovecot_conf_hr = Cpanel::CachedDataStore::fetch_ref($conf_file) if ( -e $conf_file );

        my $restart = 0;
        if ( !exists $dovecot_conf_hr->{'mailbox_idle_check_interval'} ) {
            $dovecot_conf_hr->{'mailbox_idle_check_interval'} = 30;
            $restart = 1;
        }

        if ($restart) {
            mkdir $conf_dir, 0755 if !-e $conf_dir;

            # Usage is safe as we own the dir and file
            Cpanel::CachedDataStore::store_ref( $conf_file, $dovecot_conf_hr );
            system('/usr/local/cpanel/scripts/builddovecotconf');
            Cpanel::ServerTasks::schedule_task( ['CpServicesTasks'], 1, "restartsrv dovecot" );
        }

        if ( $cpconf_ref->{'mailserver'} eq 'dovecot' ) {
            if ( open( my $fastmail_fh, '>', '/var/cpanel/fastmail' ) ) {
                print {$fastmail_fh} '1';
                close($fastmail_fh);
            }
        }
        else {
            unlink('/var/cpanel/fastmail');
        }
    }
    return;
}

haha - 2025