#!/usr/local/bin/perl # list_groups.cgi # Lists all the groups with quotas on some filesystem require './quota-lib.pl'; &ReadParse(); $f = $in{'dir'}; $whatfailed = $text{'lgroups_failed'}; &can_edit_filesys($f) || &error($text{'lgroups_eallow'}); $form = 0; # List quotas &ui_print_header(&text('lgroups_quotas', $f), $text{'lgroups_title'}, "", "list_groups"); # Build and show tabs $prog = "list_groups.cgi?dir=".&urlize($f); @tabs = ( [ 'list', $text{'lgroups_tablist'}, $prog."&mode=list" ] ); if ($access{'default'}) { push(@tabs, [ 'default', $text{'lusers_tabdefault'}, $prog."&mode=default" ]); } if ($access{'email'} && &foreign_check("cron") && &foreign_check("mailboxes")) { push(@tabs, [ 'email', $text{'lusers_tabemail'}, $prog."&mode=email" ]); } print &ui_tabs_start(\@tabs, "mode", $in{'mode'} || 'list', 1); # Build user list links @ulinks = ( ); if ($access{'ggrace'}) { push(@ulinks, "$text{'lusers_egrace'}"); } push(@ulinks, "$text{'lusers_check'}"); # Groups list, in a tab print &ui_tabs_start_tab("mode", "list"); $n = &filesystem_groups($f); $bsize = &block_size($f); $fsbsize = &block_size($f); if ($n > $config{'display_max'} && !$access{'ro'}) { print "",&text('lgroups_toomany', $f),"
\n";
print &ui_links_row(\@ulinks);
}
elsif ($n) {
my $threshold_pc = $config{'threshold_pc'} || 101;
$threshold_pc = 101 if $threshold_pc < 1 or $threshold_pc > 101;
if (!$access{'ro'}) {
print &ui_form_start("edit_group_mass.cgi", "post");
print &ui_hidden('dir', $f),"\n";
}
# Generate select links
@links = ( &select_all_link("d", $form),
&select_invert_link("d", $form),
@ulinks );
if (!$access{'ro'}) {
print &ui_links_row(\@links);
}
# Generate first header (with blocks and files)
local @hcols;
local @tds;
if (!$access{'ro'}) {
push(@hcols, "");
push(@tds, "width=5");
}
push(@hcols, "");
push(@tds, "");
($binfo, $finfo) = &filesystem_info($f, \%group, $n, $fsbsize);
$show_pc_hblocks = $threshold_pc != 101 &&
$config{'pc_show'} >= 1;
$show_pc_sblocks = $threshold_pc != 101 &&
$config{'pc_show'}%2 == 0;
$cols1 = 3 + ($show_pc_hblocks ? 1 : 0) +
($show_pc_sblocks ? 1 : 0) +
($config{'show_grace'} ? 1 : 0);
$cols2 = 3 + ($config{'show_grace'} ? 1 : 0);
push(@hcols, ($bsize ? $text{'lusers_space'} :
$text{'lusers_blocks'}).
($access{'diskspace'} ? " ($binfo)" : ""));
push(@tds, "colspan=$cols1 align=center");
push(@hcols, $text{'lusers_files'}.
($access{'diskspace'} ? " ($finfo)" : ""));
push(@tds, "colspan=$cols2 align=center");
print &ui_columns_start(\@hcols, 100, 0, \@tds);
# Generate second header (with used/soft/hard)
local @hcols;
local @tds;
if (!$access{'ro'}) {
push(@hcols, "");
push(@tds, "width=5");
}
push(@hcols, $text{'lgroups_group'});
if ($show_pc_hblocks) {
push(@hcols, $text{'lusers_pc_hblocks'});
}
if ($show_pc_sblocks) {
push(@hcols, $text{'lusers_pc_sblocks'});
}
push(@hcols, $text{'lusers_used'}, $text{'lusers_soft'},
$text{'lusers_hard'},
$config{'show_grace'} ? ( $text{'lusers_grace'} ) : ( ));
push(@hcols, $text{'lusers_used'}, $text{'lusers_soft'},
$text{'lusers_hard'},
$config{'show_grace'} ? ( $text{'lusers_grace'} ) : ( ));
print &ui_columns_header(\@hcols, \@tds);
# Sort groups
@order = (0 .. $n-1);
if ($config{'sort_mode'} == 0) {
@order = sort { $group{$b,'ublocks'} <=> $group{$a,'ublocks'} }
@order;
}
elsif ($config{'sort_mode'} == 3) {
@order = sort { $group{$b,'hblocks'} <=> $group{$a,'hblocks'} }
@order;
}
elsif ($config{'sort_mode'} == 4) {
@order = sort { $group{$b,'sblocks'} <=> $group{$a,'sblocks'} }
@order;
}
elsif ($config{'sort_mode'} == 2) {
@order = sort { $group{$a,'group'} cmp $group{$b,'group'} }
@order;
}
elsif ($config{'sort_mode'} == 5) {
@order = sort { &to_percent($group{$b,'ublocks'},
$group{$b,'hblocks'}) <=>
&to_percent($group{$a,'ublocks'},
$group{$a,'hblocks'}) } @order;
}
elsif ($config{'sort_mode'} == 6) {
@order = sort { &to_percent($group{$b,'ublocks'},
$group{$b,'sblocks'}) <=>
&to_percent($group{$a,'ublocks'},
$group{$a,'sblocks'}) } @order;
}
# Generate table of groups
foreach $i (@order) {
next if (!&can_edit_group($group{$i,'group'}));
next if ($config{'hide_uids'} &&
$group{$i,'group'} =~ /^#/);
local @cols;
if ($access{'ro'}) {
push(@cols, $group{$i,'group'});
}
else {
push(@cols, "$group{$i,'group'}".
"");
}
my $pc_hblocks=0;
my $pc_sblocks=0;
if($group{$i,'hblocks'}) {
$pc_hblocks = 100 * $group{$i,'ublocks'};
$pc_hblocks/= $group{$i,'hblocks'};
$pc_hblocks = int($pc_hblocks);
}
if($group{$i,'sblocks'}) {
$pc_sblocks = 100 * $group{$i,'ublocks'};
$pc_sblocks/= $group{$i,'sblocks'};
$pc_sblocks = int($pc_sblocks);
}
if ($show_pc_hblocks) {
if ($pc_hblocks > $threshold_pc) {
push(@cols, "".
&html_escape($pc_hblocks)."%");
}
else {
push(@cols, &html_escape($pc_hblocks)."%");
}
}
if ($show_pc_sblocks) {
if ($pc_sblocks > $threshold_pc) {
push(@cols, "".
&html_escape($pc_sblocks)."%");
}
else {
push(@cols, &html_escape($pc_sblocks)."%");
}
}local $ublocks = $group{$i,'ublocks'};
if ($bsize) {
$ublocks = &nice_size($ublocks*$bsize);
}
if ($group{$i,'hblocks'} &&
$group{$i,'ublocks'} > $group{$i,'hblocks'}) {
push(@cols, "".
&html_escape($ublocks)."");
}
elsif ($group{$i,'sblocks'} &&
$group{$i,'ublocks'} > $group{$i,'sblocks'}) {
push(@cols, "".
&html_escape($ublocks)."");
}
else {
push(@cols, &html_escape($ublocks));
}
push(@cols, &nice_limit($group{$i,'sblocks'}, $bsize));
push(@cols, &nice_limit($group{$i,'hblocks'}, $bsize));
push(@cols, $group{$i,'gblocks'}) if ($config{'show_grace'});
push(@cols, $group{$i,'ufiles'});
push(@cols, &nice_limit($group{$i,'sfiles'}, $bsize, 1));
push(@cols, &nice_limit($group{$i,'hfiles'}, $bsize, 1));
push(@cols, $group{$i,'gfiles'}) if ($config{'show_grace'});
if ($access{'ro'}) {
print &ui_columns_row(\@cols, \@tds);
}
else {
print &ui_checked_columns_row(\@cols, \@tds, "d",
$group{$i,'group'});
}
}
print &ui_columns_end();
if (!$access{'ro'}) {
print &ui_links_row(\@links);
print &ui_submit($text{'lgroups_mass'}, "mass"),"
\n";
print &ui_form_end();
}
}
else {
print "",&text('lgroups_noquota', $f),"
\n"; print &ui_links_row(\@ulinks); } # Form to edit any user if (!$access{'ro'}) { print &ui_form_start("edit_group_quota.cgi"); print &ui_hidden("filesys", $f); print &ui_hidden("source", 0); print &ui_submit($text{'lgroups_equota'}); print &ui_group_textbox("group"); print &ui_form_end(); } print &ui_tabs_end_tab("mode", "list"); # Show form for default quotas, in a tab if ($access{'default'}) { print &ui_tabs_start_tab("mode", "default"); print &text('lgroups_info', $text{'lusers_useradmin'}),"
\n"; @dquot = split(/\s+/, $config{"gsync_$f"}); print &ui_form_start("save_gsync.cgi"); print &ui_hidden("filesys", $f); print &ui_table_start($text{'lgroups_newgroup'}, "width=100%", 4); # Default block limits print &ui_table_row($text{'lusers_sblimit'}, "a_input("sblocks", $dquot[0], $bsize)); print &ui_table_row($text{'lusers_hblimit'}, "a_input("hblocks", $dquot[1], $bsize)); # Default file limits print &ui_table_row($text{'lusers_sflimit'}, "a_input("sfiles", $dquot[2])); print &ui_table_row($text{'lusers_hflimit'}, "a_input("hfiles", $dquot[3])); print &ui_table_end(); print &ui_form_end([ [ undef, $text{'lusers_apply'} ] ]); print &ui_tabs_end_tab("mode", "default"); } # Show form for email notifications if ($access{'email'} && &foreign_check("cron") && &foreign_check("mailboxes")) { print &ui_tabs_start_tab("mode", "email"); print &ui_form_start("save_gemail.cgi"); print &ui_hidden("filesys", $f); print &ui_table_start($text{'lgroups_emailheader'}, "width=100%", 4); print &ui_table_row($text{'lgroups_email'}, &ui_radio("email", $config{"gemail_$f"} ? 1 : 0, [ [ 1, $text{'yes'} ], [ 0, $text{'no'} ] ])); print &ui_table_row($text{'lusers_interval'}, &ui_textbox("interval", $config{"gemail_interval_$f"}, 5). " ".$text{'lusers_hours'}); print &ui_table_row($text{'lusers_ltype'}, &ui_radio("type", $config{"gemail_type_$f"} ? 1 : 0, [ [ 1, $text{'lusers_hard'} ], [ 0, $text{'lusers_soft'} ] ])); print &ui_table_row($text{'lusers_percent'}, &ui_textbox("percent", $config{"gemail_percent_$f"}, 5). " %"); print &ui_table_row($text{'lgroups_to'}, &ui_radio("tomode", int($config{"gemail_tomode_$f"}), [ [ 0, $text{'lgroups_tosame'} ], [ 1, &text('lgroups_tofixed', &ui_textbox("to", $config{"gemail_to_$f"}, 20)) ], &foreign_installed("virtual-server") ? ( [ 2, $text{'lgroups_tovirt'} ] ) : ( ) ]), 3); print &ui_table_row($text{'lusers_from'}, &ui_textbox("from", $config{"gemail_from_$f"} || 'webmin@'.&get_system_hostname(), 30)); print &ui_table_row($text{'lusers_cc'}, &ui_opt_textbox("cc", $config{"gemail_cc_$f"}, 30, $text{'lusers_nocc'}), 3); print &ui_table_end(); print &ui_form_end([ [ 'save', $text{'lusers_apply'} ] ]); print &ui_tabs_end_tab("mode", "email"); } print &ui_tabs_end(1); &ui_print_footer("", $text{'lgroups_return'});