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

# cpanel - scripts/clear_orphaned_virtfs_mounts    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 Cpanel::Config::LoadUserDomains ();
use Getopt::Param                   ();
use Cpanel::Filesys::Virtfs         ();
use Cpanel::PwCache::Get            ();
use Cpanel::CloudLinux::CageFS      ();

my $prm = Getopt::Param-&gt;new(
    {
        &#039;help_coderef&#039; =&gt; sub {
            print &lt;&lt;&quot;END_USAGE&quot;;
Unmount any virtfs mounts whose users no longer exist or whose shell is not currently jailshell/noshell

$0 [--help] [--errorsonly] [--inactiveonly] [--clearall] [--user=&lt;user&gt;]

  $0 --help         - this screen
  $0 --user=&lt;user&gt;  - Only cleanup the specified user
  $0 --errorsonly   - Do not have any output unless there are errors
  $0 --inactiveonly - Only cleanup for users with no running processes
  $0 --clearall     - Unmount all virtfs mounts regardless of user&#039;s jailshell/noshell status

END_USAGE
            exit;
        },
    }
);

my %user_map     = %{ Cpanel::Config::LoadUserDomains::loaduserdomains( undef, 0, 1 ) };
my $errorsonly   = $prm-&gt;get_param(&#039;errorsonly&#039;)   ? 1 : 0;
my $clear_all    = $prm-&gt;get_param(&#039;clearall&#039;)     ? 1 : 0;
my $inactiveonly = $prm-&gt;get_param(&#039;inactiveonly&#039;) ? 1 : 0;
my $user         = $prm-&gt;get_param(&#039;user&#039;);

if ($inactiveonly) {
    Cpanel::Filesys::Virtfs::cleanup_inactive_virtfs();
    Cpanel::Filesys::Virtfs::cleanup_unmounts_virtfs_for_dead_users( verbose =&gt; !$errorsonly );
    exit(0);
}

clear_orphaned_virtfs_mounts();
Cpanel::Filesys::Virtfs::cleanup_unmounts_virtfs_for_dead_users( verbose =&gt; !$errorsonly, user =&gt; $user );

sub clear_orphaned_virtfs_mounts {

    my %processed_users;
    my %cagefs_users = map { $_ =&gt; 1 } Cpanel::CloudLinux::CageFS::enabled_users();

    for my $mount ( Cpanel::Filesys::Virtfs::get_virtfs_mounts() ) {
        my $username = Cpanel::Filesys::Virtfs::get_username_from_virtfs_mount_string($mount);
        next if length $user &amp;&amp; $username ne $user;
        next if exists $processed_users{$username};

        print &quot;-- Begin user &#039;$username&#039; --\n&quot; unless $errorsonly;

        my $umount = 0;
        if ( !exists $user_map{$username} ) {
            print &quot;User no longer exists, cleaning orphan...\n&quot; unless $errorsonly;
            $umount++;
        }
        elsif ( $clear_all || Cpanel::PwCache::Get::getshell($username) !~ m{(?:no|jail)shell} ) {
            print &quot;User no longer has jailshell or noshell, cleaning orphan...\n&quot; unless ( $errorsonly || $clear_all );
            $umount++;
        }
        elsif ( $cagefs_users{$username} ) {
            print &quot;User has CageFS enabled, cleaning orphan...\n&quot; unless $errorsonly;
            $umount++;
        }
        else {
            print &quot;No action needed\n&quot; unless $errorsonly;
        }

        if ($umount) {
            print &quot;Cleaning virtfs mounts (if any)\n&quot; unless $errorsonly;
            my ( $rc, @errors ) = Cpanel::Filesys::Virtfs::remove_user_virtfs($username);
            if ($rc) {
                print &quot;Done\n&quot; unless $errorsonly;
                $processed_users{$username}++;
            }
            else {
                print &quot;Failed\n&quot; . join( &quot;\t&quot;, @errors ) . &quot;\n&quot;;
            }
        }
        else {
            $processed_users{$username}++;
        }

        print &quot;-- End user &#039;$username&#039; -- \n\n&quot; unless $errorsonly;
    }

    return;
}
</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>