mirror of
https://github.com/webmin/webmin.git
synced 2026-09-16 02:20:39 +01:00
9be5dc31eb
Add Btrfs subvolume quota support to the Disk Quotas module, including full and simple accounting modes, quota lifecycle actions, and qgroup usage and limit management. Includes ACL enforcement, compatibility with older btrfs-progs versions, destructive-action confirmation, top-level qgroup protection, help, and tests.
92 lines
3.2 KiB
Perl
Executable File
92 lines
3.2 KiB
Perl
Executable File
#!/usr/local/bin/perl
|
|
# Display Btrfs quota status and subvolume qgroups
|
|
|
|
require './quota-lib.pl';
|
|
&ReadParse();
|
|
$dir = $in{'dir'};
|
|
|
|
# Restrict the page to allowed paths on mounted Btrfs filesystems.
|
|
&can_edit_btrfs_filesys($dir) || &error($text{'btrfs_eallow'});
|
|
defined(&btrfs_quota_status) && &is_btrfs_fs($dir) ||
|
|
&error($text{'btrfs_enotbtrfs'});
|
|
&error_setup($text{'btrfs_efailed'});
|
|
|
|
# Read quota status before building the status and qgroup tables.
|
|
$status = &btrfs_quota_status($dir);
|
|
$status || &error($text{'btrfs_enotbtrfs'});
|
|
&error($status->{'error'}) if ($status->{'error'});
|
|
|
|
&ui_print_header(undef, $text{'btrfs_title'}, "", "btrfs");
|
|
|
|
# Map the command's accounting mode to a user-facing label.
|
|
$mode = $status->{'mode'} eq "squota" ? $text{'btrfs_simple'} :
|
|
$status->{'mode'} eq "qgroup" ? $text{'btrfs_full'} :
|
|
$text{'btrfs_unknown'};
|
|
|
|
# Display the current enablement, accounting mode and consistency state.
|
|
print &ui_table_start(&text('btrfs_status_header', &html_escape($dir)),
|
|
"width=100%", 2);
|
|
print &ui_table_row($text{'btrfs_status'},
|
|
$status->{'enabled'} ? $text{'btrfs_enabled'} : $text{'btrfs_disabled'});
|
|
print &ui_table_row($text{'btrfs_mode'}, $mode) if ($status->{'enabled'});
|
|
# Show consistency only when btrfs-progs or the kernel reports it.
|
|
if (defined($status->{'inconsistent'})) {
|
|
print &ui_table_row($text{'btrfs_consistency'},
|
|
$status->{'inconsistent'} ? $text{'btrfs_inconsistent'} :
|
|
$text{'btrfs_consistent'});
|
|
}
|
|
print &ui_table_end();
|
|
|
|
# A disabled filesystem has no qgroups to list or edit.
|
|
if (!$status->{'enabled'}) {
|
|
&ui_print_footer("", $text{'btrfs_return'});
|
|
exit;
|
|
}
|
|
|
|
# Load all qgroups and start the usage and limit table.
|
|
$qgroups = &list_btrfs_qgroups($dir, 0, \$listerr);
|
|
&error($listerr) if (!$qgroups);
|
|
print &ui_columns_start([
|
|
$text{'btrfs_qgroup'},
|
|
$text{'btrfs_path'},
|
|
$text{'btrfs_referenced'},
|
|
$text{'btrfs_exclusive'},
|
|
$text{'btrfs_max_referenced'},
|
|
$text{'btrfs_max_exclusive'},
|
|
], 100, 0, undef, $text{'btrfs_qgroups'});
|
|
foreach $q (@$qgroups) {
|
|
# Read-only users and the filesystem-wide top-level qgroup get no edit
|
|
# link. Limiting 0/5 can block Webmin from changing the limit back.
|
|
$qid = &ui_tag("tt", &html_escape($q->{'id'}));
|
|
chomp($qid);
|
|
if (!$access{'ro'} && $q->{'id'} ne "0/5") {
|
|
$qid = &ui_link("edit_btrfs.cgi?dir=".&urlize($dir).
|
|
"&qgroup=".&urlize($q->{'id'}), $qid);
|
|
}
|
|
|
|
# Display usage and use the standard unlimited label for missing limits.
|
|
print &ui_columns_row([
|
|
$qid,
|
|
$q->{'path'} ne "" ? &html_escape($q->{'path'}) : "-",
|
|
&nice_size($q->{'referenced'}),
|
|
&nice_size($q->{'exclusive'}),
|
|
defined($q->{'max_referenced'}) ?
|
|
&nice_size($q->{'max_referenced'}) : $text{'quota_unlimited'},
|
|
defined($q->{'max_exclusive'}) ?
|
|
&nice_size($q->{'max_exclusive'}) : $text{'quota_unlimited'},
|
|
]);
|
|
}
|
|
print &ui_columns_end();
|
|
|
|
# Full accounting supports rescanning; simple accounting deliberately hides it.
|
|
if (!$access{'ro'} && $access{'enable'} && $status->{'mode'} ne "squota") {
|
|
print &ui_hr();
|
|
print &ui_buttons_start();
|
|
print &ui_buttons_row("btrfs_action.cgi", $text{'btrfs_rescan'},
|
|
$text{'btrfs_rescan_desc'},
|
|
[ [ "dir", $dir ], [ "action", "rescan" ] ]);
|
|
print &ui_buttons_end();
|
|
}
|
|
|
|
&ui_print_footer("", $text{'btrfs_return'});
|