Gecko [ 122.154.134.11 ]

Name	Size	Permission
help	[ DIR ]	drwxr-xr-x
images	[ DIR ]	drwxr-xr-x
lang	[ DIR ]	drwxr-xr-x
CHANGELOG	3.33 KB	-rw-r--r--
acl_security.pl	4.27 KB	-rwxr-xr-x
activate.cgi	940 B	-rwxr-xr-x
cgi_args.pl	1.05 KB	-rwxr-xr-x
check_quotas.cgi	710 B	-rwxr-xr-x
config-ALL-linux	838 B	-rw-r--r--
config-freebsd	747 B	-rw-r--r--
config-hpux	488 B	-rw-r--r--
config-irix	473 B	-rw-r--r--
config-macos	747 B	-rw-r--r--
config-netbsd	747 B	-rw-r--r--
config-openbsd	747 B	-rw-r--r--
config-solaris	488 B	-rw-r--r--
config-unixware	488 B	-rw-r--r--
config.info	1.77 KB	-rw-r--r--
config.info.ca	2.09 KB	-rw-r--r--
config.info.ca.UTF-8	2.1 KB	-rw-r--r--
config.info.cz	1.75 KB	-rw-r--r--
config.info.cz.UTF-8	1.89 KB	-rw-r--r--
config.info.da	1.6 KB	-rw-r--r--
config.info.da.UTF-8	1.6 KB	-rw-r--r--
config.info.de	2.11 KB	-rw-r--r--
config.info.de.UTF-8	2.11 KB	-rw-r--r--
config.info.es	1.61 KB	-rw-r--r--
config.info.es.UTF-8	1.61 KB	-rw-r--r--
config.info.fr	1.6 KB	-rw-r--r--
config.info.fr.UTF-8	1.6 KB	-rw-r--r--
config.info.hu	0 B	-rw-r--r--
config.info.it	1.5 KB	-rw-r--r--
config.info.it.UTF-8	1.5 KB	-rw-r--r--
config.info.ko_KR.UTF-8	1.87 KB	-rw-r--r--
config.info.ko_KR.euc	1.49 KB	-rw-r--r--
config.info.nl	2.1 KB	-rw-r--r--
config.info.nl.UTF-8	2.1 KB	-rw-r--r--
config.info.no	2.06 KB	-rw-r--r--
config.info.no.UTF-8	2.06 KB	-rw-r--r--
config.info.pl	2.08 KB	-rw-r--r--
config.info.pl.UTF-8	2.15 KB	-rw-r--r--
config.info.ru.UTF-8	1.73 KB	-rw-r--r--
config.info.ru_RU	1.1 KB	-rw-r--r--
config.info.ru_RU.UTF-8	1.73 KB	-rw-r--r--
config.info.ru_SU	1.1 KB	-rw-r--r--
config.info.sv	1.08 KB	-rw-r--r--
config.info.sv.UTF-8	1.11 KB	-rw-r--r--
config.info.tr	1.29 KB	-rw-r--r--
config.info.uk_UA	1.09 KB	-rw-r--r--
config.info.uk_UA.UTF-8	1.66 KB	-rw-r--r--
config.info.zh_CN	750 B	-rw-r--r--
config.info.zh_CN.UTF-8	940 B	-rw-r--r--
config.info.zh_TW.Big5	695 B	-rw-r--r--
config.info.zh_TW.UTF-8	807 B	-rw-r--r--
copy_group.cgi	1.37 KB	-rwxr-xr-x
copy_group_form.cgi	922 B	-rwxr-xr-x
copy_user.cgi	1.29 KB	-rwxr-xr-x
copy_user_form.cgi	903 B	-rwxr-xr-x
defaultacl	99 B	-rw-r--r--
edgrace.pl	493 B	-rwxr-xr-x
edit_group_mass.cgi	1.17 KB	-rwxr-xr-x
edit_group_quota.cgi	2.37 KB	-rwxr-xr-x
edit_user_mass.cgi	1.17 KB	-rwxr-xr-x
edit_user_quota.cgi	2.34 KB	-rwxr-xr-x
edquota.pl	504 B	-rwxr-xr-x
email.pl	5.49 KB	-rwxr-xr-x
freebsd-lib.pl	10.71 KB	-rwxr-xr-x
group_filesys.cgi	3.06 KB	-rwxr-xr-x
group_grace_form.cgi	1.29 KB	-rwxr-xr-x
group_grace_save.cgi	788 B	-rwxr-xr-x
hpux-lib.pl	6.26 KB	-rwxr-xr-x
index.cgi	3.4 KB	-rwxr-xr-x
install_check.pl	373 B	-rwxr-xr-x
irix-lib.pl	5.76 KB	-rwxr-xr-x
linux-lib.pl	27 KB	-rwxr-xr-x
list_groups.cgi	9.41 KB	-rwxr-xr-x
list_users.cgi	9.32 KB	-rwxr-xr-x
log_parser.pl	1.41 KB	-rwxr-xr-x
macos-lib.pl	9 KB	-rwxr-xr-x
module.info	238 B	-rw-r--r--
module.info.ar	155 B	-rw-r--r--
module.info.ca	123 B	-rw-r--r--
module.info.ca.UTF-8	135 B	-rw-r--r--
module.info.cz	22 B	-rw-r--r--
module.info.cz.UTF-8	30 B	-rw-r--r--
module.info.da	20 B	-rw-r--r--
module.info.da.UTF-8	26 B	-rw-r--r--
module.info.de	151 B	-rw-r--r--
module.info.de.UTF-8	163 B	-rw-r--r--
module.info.es	24 B	-rw-r--r--
module.info.es.UTF-8	30 B	-rw-r--r--
module.info.fr	27 B	-rw-r--r--
module.info.fr.UTF-8	33 B	-rw-r--r--
module.info.hu	28 B	-rw-r--r--
module.info.hu.UTF-8	36 B	-rw-r--r--
module.info.it	20 B	-rw-r--r--
module.info.it.UTF-8	26 B	-rw-r--r--
module.info.ja_JP.UTF-8	45 B	-rw-r--r--
module.info.ja_JP.euc	34 B	-rw-r--r--
module.info.ko_KR.UTF-8	34 B	-rw-r--r--
module.info.ko_KR.euc	27 B	-rw-r--r--
module.info.ms_MY	121 B	-rw-r--r--
module.info.ms_MY.UTF-8	133 B	-rw-r--r--
module.info.nl	23 B	-rw-r--r--
module.info.nl.UTF-8	29 B	-rw-r--r--
module.info.no	19 B	-rw-r--r--
module.info.no.UTF-8	25 B	-rw-r--r--
module.info.pl	34 B	-rw-r--r--
module.info.pl.UTF-8	42 B	-rw-r--r--
module.info.pt	24 B	-rw-r--r--
module.info.pt.UTF-8	30 B	-rw-r--r--
module.info.ru.UTF-8	42 B	-rw-r--r--
module.info.ru_RU	26 B	-rw-r--r--
module.info.ru_RU.UTF-8	45 B	-rw-r--r--
module.info.ru_SU	26 B	-rw-r--r--
module.info.sv	18 B	-rw-r--r--
module.info.sv.UTF-8	24 B	-rw-r--r--
module.info.tr	22 B	-rw-r--r--
module.info.zh_CN	20 B	-rw-r--r--
module.info.zh_TW.Big5	25 B	-rw-r--r--
netbsd-lib.pl	10.71 KB	-rwxr-xr-x
notes	1.7 KB	-rw-r--r--
openbsd-lib.pl	10.71 KB	-rwxr-xr-x
quota-lib.pl	14.96 KB	-rwxr-xr-x
save_email.cgi	1.32 KB	-rwxr-xr-x
save_gemail.cgi	1.31 KB	-rwxr-xr-x
save_group_mass.cgi	1.51 KB	-rwxr-xr-x
save_group_quota.cgi	1.28 KB	-rwxr-xr-x
save_gsync.cgi	794 B	-rwxr-xr-x
save_sync.cgi	789 B	-rwxr-xr-x
save_user_mass.cgi	1.49 KB	-rwxr-xr-x
save_user_quota.cgi	1.26 KB	-rwxr-xr-x
solaris-lib.pl	7.85 KB	-rwxr-xr-x
uninstall.pl	226 B	-rwxr-xr-x
unixware-lib.pl	6.4 KB	-rwxr-xr-x
user_filesys.cgi	3.04 KB	-rwxr-xr-x
user_grace_form.cgi	1.29 KB	-rwxr-xr-x
user_grace_save.cgi	783 B	-rwxr-xr-x
useradmin_update.pl	2.45 KB	-rwxr-xr-x

Code Editor : list_groups.cgi

#!/usr/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, &ui_link("group_grace_form.cgi?filesys=".&urlize($f), $text{'lusers_egrace'}) );
	}
if (!defined(&can_quotacheck) || &can_quotacheck($f)) {
	push(@ulinks, &ui_link("check_quotas.cgi?filesys=".&urlize($f)."&source=group", $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 summary of blocks and files used
	($binfo, $finfo) = &filesystem_info($f, \%user, $n, $fsbsize);
	$show_pc_hblocks = $threshold_pc != 101 &&
			 $config{'pc_show'} >= 1;
	$show_pc_sblocks = $threshold_pc != 101 &&
			 $config{'pc_show'}%2 == 0;
	print "";
	print $bsize ? $text{'lusers_space'}
		 : $text{'lusers_blocks'};
	print $access{'diskspace'} ? " ($binfo)" : "";
	print "&nbsp;\n";
	print $text{'lusers_files'};
	print $access{'diskspace'} ? " ($finfo)" : "";
	print " \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 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_start(\@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, &ui_link("edit_group_quota.cgi?group=".
				&urlize($group{$i,'group'})."&filesys=".
				&urlize($f)."&source=0", $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, "".
				$ublocks."");
			}
		elsif ($group{$i,'sblocks'} &&
		 $group{$i,'ublocks'} > $group{$i,'sblocks'}) {
			push(@cols, "".
				$ublocks."");
			}
		else {
			push(@cols, $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'},
		&quota_input("sblocks", $dquot[0], $bsize));
	print &ui_table_row($text{'lusers_hblimit'},
		&quota_input("hblocks", $dquot[1], $bsize));

# Default file limits
	print &ui_table_row($text{'lusers_sflimit'},
		&quota_input("sfiles", $dquot[2]));
	print &ui_table_row($text{'lusers_hflimit'},
		&quota_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'});

${this.title}

Code Editor : list_groups.cgi