PAL.C.T MINI SHELL
#!/usr/bin/perl
# Display a form for updating multiple user quotas on a filesystem
require './quota-lib.pl';
&ReadParse();
$fs = $in{'dir'};
@d = split(/\0/, $in{'d'});
foreach $u (@d) {
&can_edit_user($u) ||
&error(&text('euser_eallowus', $u));
}
$access{'ro'} && &error(&text('euser_eallowus', $u));
&can_edit_filesys($fs) ||
&error($text{'euser_eallowfs'});
&ui_print_header(undef, $text{'umass_title'}, "", "edit_user_mass");
$bsize = &block_size($fs);
print &text('umass_count', scalar(@d)),"<p>\n";
print &ui_form_start("save_user_mass.cgi", "post");
foreach $u (@d) {
print &ui_hidden("d", $u),"\n";
}
print &ui_hidden("dir", $fs),"\n";
print &ui_table_start($text{'umass_header'}, undef, 2);
foreach $t ('sblocks', 'hblocks', 'sfiles', 'hfiles') {
print &ui_table_row($text{'umass_'.$t},
&ui_radio($t.'_def', 0,
[ [ 0, $text{'umass_leave'} ],
[ 1, $text{'umass_unlimited'} ],
[ 2, $text{'umass_set'}." ".
($t =~ /blocks$/ ? "a_inputbox($t, "", $bsize)
: &ui_textbox($t, "", 10)) ] ]));
}
print &ui_table_end();
print &ui_form_end([ [ "ok", $text{'umass_ok'} ] ]);
&ui_print_footer("list_users.cgi?dir=".&urlize($fs), $text{'euser_ureturn'});
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`