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

#                                      Copyright 2025 WebPros International, LLC
#                                                           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 Cpanel::TempFile           ();
use Cpanel::SafeFile           ();
use Cpanel::Filesys::FindParse ();
use Cpanel::DiskLib            ();
use Getopt::Long;
use Cpanel::Logger             ();
use Cpanel::SafeRun::Errors    ();
use Cpanel::SafeRun::Simple    ();
use Cpanel::Filesys::Mounts    ();
use Cpanel::Config::LoadCpConf ();

my $logger = Cpanel::Logger-&gt;new();

$| = 1;    ## no critic qw(RequireLocalizedPunctuationVars)

my $has_loop_device = 0;

my $install   = 0;    # Add securetmp to system startup
my $uninstall = 0;    # Remove from system startup
my $auto      = 0;    # Secure /tmp and /var/tmp
my $daemonize = 1;
my $help      = 0;

# Get command line options
GetOptions( &#039;auto&#039; =&gt; \$auto, &#039;install&#039; =&gt; \$install, &#039;uninstall&#039; =&gt; \$uninstall, &#039;daemonize!&#039; =&gt; \$daemonize, &#039;help&#039; =&gt; \$help );

if ($help) {
    print &lt;&lt;&quot;MANUAL&quot;;
$0 - secure /tmp and /var/tmp

Options:
- auto: skip interactive customization questions
- install: install &amp; enable securetmp service
- uninstall: disable &amp; uninstal securetmp service
- daemonize: run securetmp in background ( default true )

Sample usages:
# run in interactive mode
&gt; $0

# disable interactive mode, run in background
&gt; $0 --auto

# disable interactive mode, do not run in background
&gt; $0 --auto --nodaemonize
MANUAL
    exit;
}

if ( -e &#039;/var/cpanel/version/securetmp_disabled&#039; ) {
    print &quot;[securetmp] Disabled per /var/cpanel/version/securetmp_disabled\n&quot;;
    exit;
}
elsif ( -e &#039;/var/cpanel/disabled/securetmp&#039; ) {
    print &quot;[securetmp] Disabled per /var/cpanel/disabled/securetmp\n&quot;;
    exit;
}
elsif ( -e &#039;/var/cpanel/dev_sandbox&#039; ) {
    print &quot;[securetmp] Disabled on development sandboxes\n&quot;;
    exit;
}

# do check for loopback module for Linux based VPS
my @modules = Cpanel::SafeRun::Errors::saferunallerrors(&#039;lsmod&#039;);
$has_loop_device = check_loop_device();

if ( !grep /loop/, @modules ) {
    print &quot;*** Notice *** No loop module detected\n&quot;;    # could be built into kernel, so don&#039;t bail out yet
    print &quot;If the loopback block device is built as a module, try running `modprobe loop` as root via ssh and running this script again.\n&quot;;
    print &quot;If the loopback block device is built into the kernel itself, you can ignore this message.\n&quot;;
}
if ( !$has_loop_device ) {
    print &quot;*** Notice *** No working loopback device files found. Try running `modprobe loop` as root via ssh and running this script again.\n&quot;;
    exit(0);
}

# Start interactive setup
if ( !$auto &amp;&amp; !$install &amp;&amp; !$uninstall &amp;&amp; -t STDIN ) {
    print &#039;Would you like to secure /tmp &amp; /var/tmp at boot time? (y/n) &#039;;
    my $answer;
    chomp( $answer = &lt;STDIN&gt; );
    if ( $answer =~ m/^y/i ) {
        $install = 1;
    }
    else {
        print &quot;securetmp will not be added to system startup at this time.\n&quot;;
    }
    undef $answer;

    if ( !$install ) {
        print &#039;Would you like to disable securetmp from the system startup? (y/n) &#039;;
        chomp( $answer = &lt;STDIN&gt; );
        if ( $answer =~ m/^y/i ) {
            $uninstall = 1;
        }
        else {
            print &quot;securetmp will not be removed from system startup.\n&quot;;
        }
        undef $answer;
    }

    print &#039;Would you like to secure /tmp &amp; /var/tmp now? (y/n) &#039;;
    chomp( $answer = &lt;STDIN&gt; );
    if ( $answer =~ m/^y/i ) {
        $auto = 1;
    }
    else {
        print &quot;/tmp &amp; /var/tmp will not be secured at this time.\n&quot;;
    }

    exit if ( !$install &amp;&amp; !$auto &amp;&amp; !$uninstall );
}
elsif ( !$auto &amp;&amp; !$install &amp;&amp; !$uninstall ) {
    exit 1;
}

## ADD/REMOVE from startup
#-----------------------------------------------------------------

if ( !-x &#039;/usr/local/cpanel/scripts/cpservice&#039; ) {
    $logger-&gt;warn(&quot;cpservice is not available. Please check its status.&quot;);
}
else {

    # Remove securetmp from system startup
    if ($uninstall) {
        Cpanel::SafeRun::Simple::saferun( &#039;/usr/local/cpanel/scripts/cpservice&#039;, &#039;securetmp&#039;, &#039;stop&#039; );
        Cpanel::SafeRun::Simple::saferun( &#039;/usr/local/cpanel/scripts/cpservice&#039;, &#039;securetmp&#039;, &#039;disable&#039;, &#039;2345&#039; );
        Cpanel::SafeRun::Simple::saferun( &#039;/usr/local/cpanel/scripts/cpservice&#039;, &#039;securetmp&#039;, &#039;uninstall&#039; );
    }

    # Add securetmp to system startup
    if ($install) {
        Cpanel::SafeRun::Simple::saferun( &#039;/usr/local/cpanel/scripts/cpservice&#039;, &#039;securetmp&#039;, &#039;install&#039; );
        Cpanel::SafeRun::Simple::saferun( &#039;/usr/local/cpanel/scripts/cpservice&#039;, &#039;securetmp&#039;, &#039;enable&#039;, &#039;35&#039; );

        # Do not start securetmp here or it will be run again
    }

}

#-----------------------------------------------------------------

# Fork and secure if not called from console
if ( $auto &amp;&amp; !-t STDIN &amp;&amp; $daemonize ) {
    $SIG{&#039;CHLD&#039;} = \&amp;reaper;
    print &quot;Setting up /tmp &amp; /var/tmp in the background\n&quot;;
    exit if fork;
}
elsif ( !$auto ) {
    exit;
}

print &quot;Securing /tmp &amp; /var/tmp\n&quot;;

# Secure PATH
$ENV{&#039;PATH&#039;} .= &quot;:/sbin:/usr/sbin&quot;;

my $cpconf          = Cpanel::Config::LoadCpConf::loadcpconf();
my $use_custom_size = defined $cpconf-&gt;{&#039;securetmp_file_size&#039;};

# Global Variables
my $brokenvartmp = 0;
my @vnodes       = ();
my $vnodeconfig  = &#039;&#039;;
my $vnodesrch    = &#039;&#039;;
my $vnodenumber  = 0;
my $tmpmnt       = &#039;&#039;;
my $vartmpmnt    = &#039;&#039;;
my $tmpopts      = &#039;&#039;;
my $vartmpopts   = &#039;&#039;;
my $mountkeyword = &#039;&#039;;
my $cpflags      = &#039;&#039;;
my $min_size     = 512 * 1024;                                                               # 512MB
my $tmpdsksize   = $use_custom_size ? $cpconf-&gt;{&#039;securetmp_file_size&#039;} * 1024 : $min_size;

$mountkeyword = &#039;remount&#039;;
$cpflags      = &#039;-af&#039;;

if ( open my $mounts_fh, &#039;&lt;&#039;, &#039;/proc/mounts&#039; ) {
    while ( my $line = readline $mounts_fh ) {

        # must detect: /dev/sda1 /var/tmp\040(deleted) ext2 rw,nosuid,noexec,usrquota 0 0
        if ( $line =~ m/^(\S+)\s+([^\s\\\(]+)\S*\s+\S+\s+(\S+)/ ) {
            if ( $2 eq &#039;/tmp&#039; ) {
                $tmpmnt  = $1;
                $tmpopts = $3;
            }
            elsif ( $2 eq &#039;/var/tmp&#039; ) {
                $vartmpmnt  = $1;
                $vartmpopts = $3;
            }
            if ( $1 =~ /^\/dev\/vn.*/ ) {
                push @vnodes, $1;
            }
        }

        if ( $line =~ m/\S+\s+\(deleted\)[^\/]*\/var\/tmp\s+/ ) {
            $brokenvartmp = 1;
            $vartmpmnt    = &#039;&#039;;
            $vartmpopts   = &#039;&#039;;
        }
    }
    close $mounts_fh;
}
else {
    die &quot;Unable to read /proc/mounts: $!&quot;;
}

# Begin securetmp actions

print &quot;Calculating size on /tmp\n&quot;;
my $partition_map = {};
my $filesys       = Cpanel::DiskLib::get_disk_used_percentage_with_dupedevs();
foreach my $disk ( @{$filesys} ) {
    $partition_map-&gt;{ $disk-&gt;{&#039;mount&#039;} } = $disk-&gt;{&#039;available&#039;};
}
my $mount_point = Cpanel::Filesys::FindParse::find_mount( $filesys, &#039;/usr/tmpDSK&#039; );

my $available = $partition_map-&gt;{$mount_point};

if ($use_custom_size) {
    if ( $tmpdsksize &lt; $min_size ) {
        $tmpdsksize = $min_size;
    }
    my $max_allowed = int( $available * 0.9 );
    if ( $tmpdsksize &gt; $max_allowed ) {
        $tmpdsksize = $max_allowed;
    }
}
else {
    my $five_percent_of_available = ( $available * 0.05 );
    if ( $five_percent_of_available &gt; $tmpdsksize ) {
        $tmpdsksize = $five_percent_of_available;
    }
    my $FOUR_GIG_k = ( 1024 * 1024 * 4 );
    if ( $tmpdsksize &gt; $FOUR_GIG_k ) {
        $tmpdsksize = $FOUR_GIG_k;
    }
}

$tmpdsksize = int($tmpdsksize);
$tmpdsksize = $tmpdsksize - ( $tmpdsksize % 1024 );

my $tmpdsksize_megs = ( $tmpdsksize / 1024 );
print &quot;/tmp calculated to be $tmpdsksize_megs M based on available disk space in /usr\n&quot;;

# Check loop dev on Linux
if ( !$has_loop_device ) {
    print &quot;The system does not support loop devices.\n&quot;;
    if ($brokenvartmp) {
        print &#039;Unmounting orphaned /var/tmp ...&#039;;
        system &#039;umount&#039;, &#039;/var/tmp&#039;;
        print &quot;Done\n&quot;;
    }
    exit;
}

if ( -d &#039;/usr/tmpDSK&#039; ) {
    rename( &#039;/usr/tmpDSK&#039;, &#039;/usr/tmpDSK.move_away.&#039; . $$ . &#039;.&#039; . time() );
}

if ( !-e &#039;/usr/tmpDSK&#039; ) {
    print &quot;No separate partition for tmp!\n&quot;;
    createtmpdisk(&#039;/usr/tmpDSK&#039;);
}
elsif ( -d &#039;/usr/tmpDSK&#039; ) {
    die &quot;/usr/tmpDSK exists as a directory. Please remove and rerun /usr/local/cpanel/scripts/securetmp.\n&quot;;
}

# ensure that /usr/tmpDSK is large enough
# or is the proper size if the tweak setting has been set
elsif ( ( -s &#039;/usr/tmpDSK&#039; ) &lt; ( $tmpdsksize * 1024 ) || ( $use_custom_size &amp;&amp; ( -s &#039;/usr/tmpDSK&#039; ) != ( $tmpdsksize * 1024 ) ) ) {
    print &quot;Your /tmp is the wrong size.   Rebuilding it now.\n&quot;;
    if ($tmpmnt) {
        print &quot;Unmounting /tmp ... &quot;;
        system &#039;umount&#039;, &#039;/tmp&#039;;
        $tmpmnt = &#039;&#039;;
    }
    if ($vartmpmnt) {
        print &quot;Unmounting /var/tmp ... &quot;;
        system &#039;umount&#039;, &#039;/var/tmp&#039;;
        $vartmpmnt    = &#039;&#039;;
        $brokenvartmp = 0;
    }
    system &#039;rm&#039;, &#039;-f&#039;, &#039;/usr/tmpDSK&#039;;
    createtmpdisk(&#039;/usr/tmpDSK&#039;);
}
else {
    print &quot;Everything looks good with your /tmp.  Its the right size and ready to go.\n&quot;;
}

if ( !$tmpmnt ) {

    print &#039;Setting up /tmp... &#039;;
    if ( -e &#039;/usr/tmp.secure&#039; ) {
        system &#039;mv&#039;, &#039;-f&#039;, &#039;/usr/tmp.secure&#039;, &#039;/usr/tmp.secure.cpback&#039;;
    }
    mkdir &#039;/usr/tmp.secure&#039;;
    archivecopy( &#039;/tmp&#039;, &#039;/usr/tmp.secure&#039; );
    system &#039;rm&#039;, &#039;-rf&#039;, &#039;/tmp&#039;;
    mkdir &#039;/tmp&#039;;
    chmod( oct(1777), &#039;/tmp&#039; );
    my $mountresult = mounttmpdsk( &#039;/usr/tmpDSK&#039;, &#039;/tmp&#039;, $tmpopts );
    archivecopy( &#039;/usr/tmp.secure/tmp/.&#039;, &#039;/tmp&#039; );
    chmod( oct(1777), &#039;/tmp&#039; );
    system &#039;rm&#039;, &#039;-rf&#039;, &#039;/usr/tmp.secure&#039;;

    if ($mountresult) {
        die &quot;There was a problem mounting /tmp: $mountresult&quot;;
    }
    print &quot;Done\n&quot;;
}
elsif ( $tmpmnt &amp;&amp; $tmpopts !~ m/noexec/ ) {
    print &#039;Securing /tmp... &#039;;
    system &#039;mount&#039;, &#039;-o&#039;, $mountkeyword . &#039;,noexec,nosuid&#039;, $tmpmnt, &#039;/tmp&#039;;
    print &quot;Done\n&quot;;
}
else {
    print &quot;/tmp is already secure\n&quot;;
}

if ( $brokenvartmp || ( $vartmpmnt &amp;&amp; $vartmpopts !~ m/noexec/ ) ) {
    print &#039;Unmounting insecure /var/tmp... &#039;;
    system &#039;umount&#039;, &#039;/var/tmp&#039;;
    $vartmpmnt  = &#039;&#039;;
    $vartmpopts = &#039;&#039;;
    print &quot;Done\n&quot;;
}

if ( !$vartmpmnt ) {
    print &#039;Setting up /var/tmp... &#039;;

    if ( !-e &#039;/var/tmp&#039; ) {
        mkdir &#039;/var/tmp&#039;;
    }
    elsif ( !-d &#039;/var/tmp&#039; ) {
        system &#039;mv&#039;, &#039;/var/tmp&#039;, &#039;/var/tmp.cpback&#039;;
        mkdir &#039;/var/tmp&#039;;
    }

    system &#039;mount&#039;, &#039;-o&#039;, &#039;bind,noexec,nosuid&#039;, &#039;/tmp&#039;, &#039;/var/tmp&#039;;
    print &quot;Done\n&quot;;
}
else {
    print &quot;/var/tmp is already secure\n&quot;;
}

my $usingTMPDSK = 0;
if ( -e &#039;/usr/tmpDSK&#039; ) {
    my $mount = `mount`;
    if ( $mount =~ m/tmpDSK/ ) {
        $usingTMPDSK = 1;
    }
}

print &#039;Checking fstab for entries ...&#039;;
my $hastmpdsk    = 0;
my $hasvartmpdsk = 0;
my $fslock       = Cpanel::SafeFile::safeopen( \*FSTAB, &#039;+&lt;&#039;, &#039;/etc/fstab&#039; );
if ($fslock) {
    while (&lt;FSTAB&gt;) {
        if (/^\s*\/usr\/tmpDSK/)      { $hastmpdsk    = 1; }
        if (/^\s*(\S+)\s*\/var\/tmp/) { $hasvartmpdsk = 1; }
    }

    if ( !$hastmpdsk &amp;&amp; $usingTMPDSK ) {
        print &quot;Added fstab entry (/tmp)....&quot;;
        print FSTAB &quot;/usr/tmpDSK             /tmp                    ext4    defaults,noauto        0 0\n&quot;;
    }
    if ( !$hasvartmpdsk &amp;&amp; $vartmpmnt ) {
        print &quot;Added fstab entry (/var/tmp)....&quot;;
        print FSTAB &quot;/tmp             /var/tmp                    ext4    defaults,bind,noauto        0 0\n&quot;;
    }

    Cpanel::SafeFile::safeclose( \*FSTAB, $fslock );
    print &quot;Done\n&quot;;
}
else {
    $logger-&gt;die(&quot;Could not edit /etc/fstab&quot;);
}

my $logrotate = &#039;/etc/cron.daily/logrotate&#039;;
if ( -e $logrotate ) {
    my @logrotate_contents;
    my $has_tmpdir = 0;
    if ( open my $logrotate_fh, &#039;&lt;&#039;, $logrotate ) {
        while ( my $line = readline $logrotate_fh ) {
            if ( $line =~ m/TMPDIR/ &amp;&amp; $line !~ m/^\s*#/ ) {
                $has_tmpdir = 1;
                last;
            }
            push @logrotate_contents, $line;
        }
        close $logrotate_fh;

        if ( !$has_tmpdir ) {
            my $updated_logrotate = 0;
            if ( open my $logrotate_fh, &#039;&gt;&#039;, $logrotate ) {
                foreach my $line (@logrotate_contents) {
                    if ( $line =~ m/^#!\/(?:usr|bin)/ ) {
                        print &quot;Adding TMPDIR setting to /etc/cron.daily/logrotate\n&quot;;
                        print {$logrotate_fh} $line;
                        print {$logrotate_fh} &quot;export TMPDIR=/var/spool/logrotate/tmp\n&quot;;
                        $updated_logrotate = 1;
                    }
                    else {
                        print {$logrotate_fh} $line;
                    }
                }
                close $logrotate_fh;
            }
            if ($updated_logrotate) {
                if ( !-e &#039;/var/spool/logrotate/tmp&#039; ) {
                    system &#039;mkdir&#039;, &#039;-p&#039;, &#039;/var/spool/logrotate/tmp&#039;;
                }
                if ( !-d &#039;/var/spool/logrotate/tmp&#039; ) {
                    print &lt;&lt;&#039;EOM&#039;;
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Logrotate detected and TMPDIR setting updated. The TMPDIR
directory (/var/spool/logrotate/tmp) does not exist!

Logrotate will need to use this directory for execution of
its postrotate scripts. This directory is normally /tmp, but
due to /tmp being set as non-executable an alternative
directory must be specified. Please correct this issue.

See /etc/cron.daily/logrotate to adjust the TMPDIR value for your system.
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
EOM
                }
            }
            else {
                warn &quot;Failed to update /etc/cron.daily/logrotate! Logrotate may be corrupt.&quot;;
            }
        }
        else {
            print &quot;Logrotate TMPDIR already configured\n&quot;;
        }
    }
}

print &quot;Process Complete\n&quot;;

Cpanel::Filesys::Mounts::clear_mounts_cache();

exit;

################################################################################
# createtmpdisk
################################################################################
sub createtmpdisk {
    my $path      = shift;
    my $disk_size = shift || $tmpdsksize;

    local $ENV{&#039;LC_ALL&#039;} = &#039;C&#039;;    # Force prompt processing to english

    print &quot;Building ${path}...&quot;;
    if ( -e $path ) {
        unlink($path);
    }
    my $disk_size_in_m = int( $disk_size / 1024 ) || 1;
    my $bytes          = 1024 * 1024 * $disk_size_in_m;
    open( my $fh, &#039;&gt;&#039;, $path ) or die &quot;Failed to open “$path”: $!&quot;;
    truncate( $fh, $bytes ) or do {
        die &quot;truncate($path, $bytes): $!&quot;;
    };
    close($fh);

    open( my $mkfs, &quot;|-&quot; ) || exec( &quot;/sbin/mkfs&quot;, $path );
    print {$mkfs} &quot;yes\r\n&quot;;
    close($mkfs);
    if ( -e &quot;/sbin/tune2fs&quot; ) {
        system( &quot;/sbin/tune2fs&quot;, &quot;-j&quot;, $path );
    }

    chmod 0600, $path;
    print &quot;Done\n&quot;;
    return;
}

################################################################################
# archivecopy
################################################################################
sub archivecopy {
    my ( $origin, $dest ) = @_;

    my $cpflags = &#039;-af&#039;;
    return system( &quot;cp&quot;, $cpflags, $origin, $dest );
}

################################################################################
# mounttmpdsk
################################################################################
sub mounttmpdsk {
    my ( $disk_path, $mount_path, $current_mount_opts ) = @_;

    $current_mount_opts //= &#039;&#039;;

    # Try to mount ext4 + discard first; if that fails, let the system detect the filesystem.
    if ( $current_mount_opts !~ m/loop/ ) {
        if ( system( &#039;mount&#039;, &#039;-t&#039;, &#039;ext4&#039;, &#039;-o&#039;, &#039;loop,noexec,nosuid,rw,discard&#039;, $disk_path, $mount_path ) ) {
            system( &#039;mount&#039;, &#039;-o&#039;, &#039;loop,noexec,nosuid,rw&#039;, $disk_path, $mount_path );
        }
    }
    return (0);
}

sub test_loopback_device {
    my $loopback_device = shift;

    system( &#039;umount&#039;, &#039;/usr/testDSK&#039; );

    createtmpdisk( &#039;/usr/testDSK&#039;, 10240 );

    my $tmpfile         = Cpanel::TempFile-&gt;new();
    my $test_mount_path = $tmpfile-&gt;dir();

    mounttmpdsk( &#039;/usr/testDSK&#039;, $test_mount_path );

    my $loopback_status = Cpanel::SafeRun::Errors::saferunallerrors( &#039;losetup&#039;, $loopback_device );

    system( &#039;umount&#039;, $test_mount_path );
    unlink( &#039;/usr/testDSK&#039;, $test_mount_path );

    return $loopback_status =~ m/\Q$loopback_device\E:.*\/usr\/testDSK/i ? 1 : 0;
}

sub check_loop_device {
    my $loopback_device = Cpanel::SafeRun::Errors::saferunallerrors( &#039;losetup&#039;, &#039;-f&#039; );

    chomp $loopback_device;

    return if !$loopback_device || !test_loopback_device($loopback_device);

    return $loopback_device;
}

################################################################################
# reaper
################################################################################
sub reaper {
    my $thedead;
    while ( ( $thedead = waitpid( -1, 1 ) ) &gt; 0 ) {

        # the dead shall do what ?
    }
    $SIG{CHLD} = \&amp;reaper;
}
</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>