One Hat Cyber Team

Your IP: 216.73.216.93
Server IP: 65.108.141.171
Server: Linux server.heloix.com 5.4.0-214-generic #234-Ubuntu SMP Fri Mar 14 23:50:27 UTC 2025 x86_64
Server Software: Apache
PHP Version: 7.4.33
Buat File | Buat Folder
Dir : ~/usr/share/perl5/Virtualmin/Config/Plugin/
View File Name : Quotas.pm

package Virtualmin::Config::Plugin::Quotas;
use strict;
use warnings;
no warnings qw(once);
use parent 'Virtualmin::Config::Plugin';

$| = 1;

our $config_directory;
our (%gconfig, %miniserv);
our $trust_unknown_referers = 1;

sub new {
  my ($class, %args) = @_;

  # inherit from Plugin
  my $self = $class->SUPER::new(name => 'Quotas', %args);

  return $self;
}

# actions method performs whatever configuration is needed for this
# plugin. XXX Needs to make a backup so changes can be reverted.
sub actions {
  my $self = shift;

  use Cwd;
  my $cwd  = getcwd();
  my $root = $self->root();
  chdir($root);
  $0 = "$root/virtual-server/config-system.pl";
  push(@INC, $root);
  eval 'use WebminCore';    ## no critic
  init_config();

  $self->spin();
  eval {
    my $res = 1;
    foreign_require("mount", "mount-lib.pl");
    mkdir("/home", 0755) if (!-d "/home");
    my ($dir, $dev, $type, $opts) = mount::filesystem_for_dir("/home");

    # Remove noquota, if it is present
    $opts = join(',', grep { !/noquota/ } (split(/,/, $opts)));

    mount::parse_options($type, $opts);
    if (running_in_zone() || running_in_vserver()) {

      #print STDERR "Skipping quotas for Vserver or Zones systems\n";
      return;
    }
    elsif ($gconfig{'os_type'} =~ /-linux$/) {
      $mount::options{'usrquota'} = '';
      $mount::options{'grpquota'} = '';
      $mount::options{'quota'}    = '';
    }
    elsif ($gconfig{'os_type'} =~ /freebsd|netbsd|openbsd|macos/) {

      # Skip if quotas are not enabled--requires a kernel rebuild
      my $quotav = `quota -v`;
      if (!$quotav =~ /none$/) {
        $mount::options{'rw'}         = '';
        $mount::options{'userquota'}  = '';
        $mount::options{'groupquota'} = '';
      }
      else {
        #print "Skipping quotas: Required kernel support is not enabled.\n";
        return;
      }
    }
    elsif ($gconfig{'os_type'} =~ /solaris/) {
      $mount::options{'quota'} = '';
    }
    else {
#print STDERR "Don't know how to enable quotas on $gconfig{'real_os_type'} ($gconfig{'os_type'})\n";
    }
    $opts = mount::join_options($type);
    my @mounts = mount::list_mounts();
    my $idx;
    for ($idx = 0; $idx < @mounts; $idx++) {
      last if ($mounts[$idx]->[0] eq $dir);
    }
    mount::change_mount(
      $idx,
      $mounts[$idx]->[0],
      $mounts[$idx]->[1],
      $mounts[$idx]->[2],
      $opts,
      $mounts[$idx]->[4],
      $mounts[$idx]->[5]
    );
    my $err = mount::remount_dir($dir, $dev, $type, $opts);
    if ($type ne "ext4" || $err) {
      my $xfs = $type eq 'xfs';
      print "\b" x 7 . " " x 7;
      print 
        "\nThe filesystem $dir could not be remounted with quotas enabled.\n";
      print $xfs ? "You will need to reboot your system to enable quotas." :
                   "You may need to reboot your system, and/or enable quotas\nmanually in Webmin/System/Disk Quotas module.";
      print " " x ($xfs ? 26 : 34);
      $res = 2;
      if ($xfs) {

        # Update the grub config file source
        my $grubfile = "/etc/default/grub";
        my %grub;
        &read_env_file($grubfile, \%grub) || ($res = 0);
        my $v = $grub{'GRUB_CMDLINE_LINUX'};
        if ($v !~ /rootflags=.*?([u|g]quota)/) {
            if ($v =~ /rootflags=(\S+)/) {
                $v =~ s/rootflags=(\S+)/rootflags=$1,uquota,gquota/;
            } else {
                $v .= " rootflags=uquota,gquota";
            }
            $grub{'GRUB_CMDLINE_LINUX'} = $v;
            &write_env_file($grubfile, \%grub);

            # Generate a new actual config file
            my $grub_file = "/boot/grub2/grub.cfg";

            # On EFI it's different config file
            if (-d "/sys/firmware/efi") {
                my %osrelease;
                &read_env_file('/etc/os-release', \%osrelease);
                my $osid = $osrelease{'ID'} || 'centos';
                $grub_file = "/boot/efi/EFI/$osid/grub.cfg";
            }
            &copy_source_dest($grub_file, "$grub_file.orig");
            $self->logsystem("grub2-mkconfig -o $grub_file");
        }
      }
    }
    else {
      # Activate quotas
      $self->logsystem("modprobe quota_v2");
      $self->logsystem("quotacheck -vgum $dir");
      $self->logsystem("quotaon -av");
      $res = 1;
    }
    $self->done($res);    # Maybe OK!
  };
  if ($@) {
    $ENV{'QUOTA_FAILED'} = '1';
    $self->done(2);       # 2 is a non-fatal error
  }
}

1;