More group updates and quots done

This commit is contained in:
John Crisp 2025-05-16 11:57:27 +02:00
parent f90583b285
commit 613f17bb4f
8 changed files with 236 additions and 231 deletions

View File

@ -11,6 +11,8 @@
</div> </div>
% } % }
<!-- reetp error here -->
% if ( stash 'error' ) { % if ( stash 'error' ) {
<div class="text-danger"> <div class="text-danger">
<%= $c->render_to_string(inline => stash 'error') %> <%= $c->render_to_string(inline => stash 'error') %>

View File

@ -3,19 +3,13 @@
% my $btn = l('GROUP_ADD'); % my $btn = l('GROUP_ADD');
<form action="/smanager/groups2" method="POST"> <form action="/smanager/groups2" method="POST">
%#= form_for '/groups' => (method => 'POST') => begin <%= hidden_field 'trt' => 'ADD' %>
%= hidden_field 'trt' => 'ADD'
<br> <br>
<div> <div>
<button type="submit" class="btn btn-primary"><%= $btn %> </button> <button type="submit" class="btn btn-primary"><%= $btn %> </button>
</div> </div>
</form> </form>
%# end
<br> <br>
<h2><%=l 'grp_CURRENT_LIST' %></h2> <h2><%=l 'grp_CURRENT_LIST' %></h2>
<br><br> <br><br>

View File

@ -3,13 +3,13 @@
% my $btn = l('SAVE'); % my $btn = l('SAVE');
<form action="/smanager/groups2" method="POST"> <form action="/smanager/groups2" method="POST">
<br><br> <br><br>
<h2><%= l 'MODIFY_USER_GROUP' %></h2> <h2><%= l 'MODIFY_USER_GROUP' %></h2>
<br><br> <br><br>
<div class="row g-3 align-items-center"> <div class="row g-3 align-items-center">
<div class="col-md-2"> <div class="col-md-2">
<label for="inputLastNAme" class="col-form-label"><%= l 'GROUP_NAME' %></label> <label for="inputLastNAme" class="col-form-label"><%= l 'GROUP_NAME' %></label>
@ -18,15 +18,15 @@
<input disabled type="text" id="disabledTextInput" class="form-control" placeholder="<%= $grp_datas->{group} %>"> <input disabled type="text" id="disabledTextInput" class="form-control" placeholder="<%= $grp_datas->{group} %>">
</div> </div>
</div> </div>
<br><br> <br><br>
<%=l 'grp_GROUP_DESC_EXPL'%> <%= l 'grp_GROUP_DESC_EXPL'%>
<br><br> <br><br>
% param 'groupDesc' => $grp_datas->{description} unless param 'groupDesc'; % param 'groupDesc' => $grp_datas->{description} unless param 'groupDesc';
<div class="row g-3 align-items-center"> <div class="row g-3 align-items-center">
<div class="col-md-2"> <div class="col-md-2">
<label for="inputGroupDesc" class="col-form-label"><%= l 'grp_GROUP_DESC' %></label> <label for="inputGroupDesc" class="col-form-label"><%= l 'grp_GROUP_DESC' %></label>
@ -40,15 +40,15 @@
</span> </span>
</div> </div>
</div> </div>
<br><br> <br><br>
<div> <div>
<%=l 'GROUP_MEMBERS' %> <%= l 'GROUP_MEMBERS' %>
</div> </div>
<br> <br>
<div> <div>
% if ( $members->{'admin'} ) { % if ( $members->{'admin'} ) {
%= check_box 'groupMembers', value => 'admin', checked => undef %= check_box 'groupMembers', value => 'admin', checked => undef
@ -57,9 +57,9 @@
% } % }
&nbspAdministrator (admin) &nbspAdministrator (admin)
</div> </div>
<br> <br>
% my $users = $c->gen_users_list(); % my $users = $c->gen_users_list();
% foreach my $key ( sort keys %$users ) { % foreach my $key ( sort keys %$users ) {
% if ( $members->{ $key } ) { % if ( $members->{ $key } ) {
@ -68,23 +68,23 @@
%= check_box 'groupMembers' => $key %= check_box 'groupMembers' => $key
&nbsp &nbsp
% } % }
%= $users->{$key} <%= $users->{$key} %>
%= " (" . $key . ")" <%= " (" . $key . ")" %>
<br> <br>
% } % }
<br><br> <br><br>
<div class="row g-3 align-items-center"> <div class="row g-3 align-items-center">
<div class="col-md-2"> <div class="col-md-2">
<button type="submit" class="btn btn-primary"><%= $btn %></button> <button type="submit" class="btn btn-primary"><%= $btn %></button>
</div> </div>
</div> </div>
%= hidden_field 'trt' => $grp_datas->{trt} <%= hidden_field 'trt' => $grp_datas->{trt} %>
%= hidden_field 'groupName' => $grp_datas->{group} <%= hidden_field 'groupName' => $grp_datas->{group} %>
</form> </form>
</div> </div>

View File

@ -5,17 +5,11 @@
<form action="/smanager/pseudonyms2" method="POST"> <form action="/smanager/pseudonyms2" method="POST">
<h2><%= l 'pse_REMOVE_PSEUDONYM' %></h2> <h2><%= l 'pse_REMOVE_PSEUDONYM' %></h2>
<%#= $c->render_to_string(inline => l('pse_ABOUT_TO_REMOVE', $pse_datas->{pseudonym})); %> <!--This is the old test that needs fixing in the language files-->
Thisis the old test that needs fixing in the language files
<%= l('pse_ABOUT_TO_REMOVE') %>
<br> <br>
You are about to remove the pseudonym: <%= $pse_datas->{pseudonym} %> <%= $c->render_to_string(inline => l('pse_ABOUT_TO_REMOVE', $pse_datas->{pseudonym})); %>
<h6>Are you sure you wish to continue?</h6>
<br><br> <br><br>
<div class="row g-3 align-items-center"> <div class="row g-3 align-items-center">

View File

@ -2,55 +2,70 @@
% my $btn = l('SAVE'); % my $btn = l('SAVE');
%= form_for '/pseudonyms2' => (method => 'POST') => begin <form action="/smanager/pseudonyms2" method="POST">
<p>
<h2>
%=l 'pse_MODIFY_PSEUDONYM'
</h2>
<br>
%=l 'pse_DESC_PSEUDONYM_NAME'
</p>
<p> <h2><%=l 'pse_MODIFY_PSEUDONYM' %></h2>
<span class=""> <br>
%=l 'pse_PSEUDONYM_NAME', class => ""
</span>
<span class="">
%= $pse_datas->{pseudonym}, class => ""
</span>
</p>
<p> <div>
<span class=""> <%=l 'pse_DESC_PSEUDONYM_NAME' %>
%=l 'pse_SELECT_ACCOUNT', class => "" </div>
</span>
<span class="">
% param 'Account' => $pse_datas->{account} unless param 'Account';
%= select_field 'Account' => $c->existing_accounts_list(), class => ""
</span>
</p>
%if ( $c->is_pseudonym_not_removable( $pse_datas->{pseudonym} ) ) { <br>
<p> <div class="row g-3 align-items-center">
<span class=""> <div class="col-md-2">
%=l 'pse_SELECT_INTERNAL', class => "" <%=l 'pse_PSEUDONYM_NAME' %>
</span> </div>
<span class="">
% param 'Internal' => $pse_datas->{internal} unless param 'Internal';
%= select_field 'Internal' => [ [(l 'YES') => 'YES'], [(l 'NO') => 'NO'] ], class => ""
</span>
</p>
%} <div class="col-auto">
<%= $pse_datas->{pseudonym} %>
<p> </div>
%= submit_button "$btn", class => "" </div>
</p>
%= hidden_field 'trt' => $pse_datas->{trt} <br>
<div class="row g-3 align-items-center">
<div class="col-md-2">
<%=l 'pse_SELECT_ACCOUNT' %>
</div>
<div class="col-auto">
% param 'Account' => $pse_datas->{account} unless param 'Account';
<%= select_field 'Account' => $c->existing_accounts_list(); %>
</div>
</div>
% if ( $c->is_pseudonym_not_removable( $pse_datas->{pseudonym} ) ) {
<br>
<div class="row g-3 align-items-center">
<div class="col-md-2">
<%= l 'pse_SELECT_INTERNAL' %>
</div>
<div class="col-auto">
% param 'Internal' => $pse_datas->{internal} unless param 'Internal';
<%= select_field 'Internal' => [ [(l 'YES') => 'YES'], [(l 'NO') => 'NO'] ] %>
</div>
</div>
% }
<br><br>
<div class="row g-3 align-items-center">
<div class="col-md-2">
<button type="submit" class="btn btn-primary"><%= $btn %></button>
</div>
</div>
%= hidden_field 'trt' => $pse_datas->{trt}
%= hidden_field 'Pseudonym' => $pse_datas->{pseudonym} %= hidden_field 'Pseudonym' => $pse_datas->{pseudonym}
%end </form>
</div> </div>

View File

@ -1,84 +1,72 @@
<div> <div>
<p> % my $modul = $c->render_to_string(inline => $c->l('quo_QUOTA_DESC'));
% my $modul = $c->render_to_string(inline => $c->l('quo_QUOTA_DESC'));
%= $modul <%= $modul %>
<h3> <h2><%= l 'quo_CURRENT_USAGE_AND_SETTINGS' %></h2>
%=l 'quo_CURRENT_USAGE_AND_SETTINGS'
</h3>
<br> <br>
% my $numUsers = @$userAccounts;
% if ($numUsers == 0){
%=l 'ACCOUNT_USER_NONE'
% } else {
% my $limit = l('quo_LIMIT_WITH_GRACE_MB'); $limit =~ s#(graceX)#<br>$1#; % my $numUsers = @$userAccounts;
% my $absolute = l('quo_ABS_LIMIT_MB'); $absolute =~ s#(limitX)#<br>$1#; % if ($numUsers == 0){
% my $current = l('quo_CURRENT_USAGE'); $current =~ s#(usageX)#<br>$1#; <%= l 'ACCOUNT_USER_NONE' %>
% } else {
<table class="table table-bordered"> % my $limit = l('quo_LIMIT_WITH_GRACE_MB'); $limit =~ s#(graceX)#<br>$1#;
<thead> % my $absolute = l('quo_ABS_LIMIT_MB'); $absolute =~ s#(limitX)#<br>$1#;
<tr> % my $current = l('quo_CURRENT_USAGE'); $current =~ s#(usageX)#<br>$1#;
<th class="">
%=l 'ACCOUNT'
</th>
<th class="">
%=l 'USER_NAME'
</th>
<th class="">
%= $limit
</th>
<th class="">
%= $absolute
</th>
<th class="">
%= $current
</th>
<th class="">
%=l 'ACTION'
</th>
</tr>
</thead>
<tbody>
% foreach my $user (@$userAccounts) <table class="table table-bordered">
% { <thead>
% my $uid = getpwnam($user->key); <tr>
% unless ($uid) { <th class="col-sm"><%= l 'ACCOUNT' %></th>
% warn($self->localise('COULD_NOT_GET_UID'),$user->key); <th class="col-sm"><%= l 'USER_NAME' %></th>
% next; <th class="col-sm"><%= $limit %></th>
% } <th class="col-sm"><%= $absolute %></th>
% my $name = $user->prop("FirstName")." ".$user->prop("LastName"); <th class="col-sm"><%= $current %></th>
% my $dev = Quota::getqcarg('/home/e-smith/files'); <th class="col-sm user-valign-center"><%= l 'ACTION' %></th>
% my ($bc, $bs, $bh, $bt, $ic, $is, $ih, $it) = Quota::query($dev, $uid); </tr>
<tr> </thead>
%= t td => (class => "") => $user->key
%= t td => (class => "") => $name <tbody>
%= t td => (class => "") => sprintf("%.2f", $bs / 1024 )
%= t td => (class => "") => sprintf("%.2f", $bh / 1024 ) % foreach my $user (@$userAccounts) {
%= t td => (class => "") => sprintf("%.2f", $bc / 1024 ) % my $uid = getpwnam($user->key);
<td class=""> % unless ($uid) {
%my $modify_text = l('MODIFY'); # Localized text % warn($self->localise('COULD_NOT_GET_UID'),$user->key);
%my $csrf_token = "TOKEN"; # CSRF token for security % next;
%my $quota_user_name = $user->key; # quotas_entry name extracted from the data structure % }
%my $actionModify = qq{ % my $name = $user->prop("FirstName")." ".$user->prop("LastName");
% <a href="quotad?CsrfDef=$csrf_token&trt=UPD&user=$quota_user_name"> % my $dev = Quota::getqcarg('/home/e-smith/files');
% <button type='button' class="" title='$modify_text' > % my ($bc, $bs, $bh, $bt, $ic, $is, $ih, $it) = Quota::query($dev, $uid);
% $modify_text
% </button> <tr>
% </a> <td><%= $user->key %></td>
%}; <td><%= $name %></td>
<%= $c->render_to_string(inline => $actionModify) %> <td><%= sprintf("%.2f", $bs / 1024 ) %></td>
</td> <td><%= sprintf("%.2f", $bh / 1024 ) %></td>
</tr> <td><%= sprintf("%.2f", $bc / 1024 ) %></td>
% }
</tbody> % my $modify_text = l('MODIFY'); # Localized text
% my $csrf_token = "TOKEN"; # CSRF token for security
% my $quota_user_name = $user->key; # quotas_entry name extracted from the data structure
% my $actionModify = qq{
% <a href="quotad?CsrfDef=$csrf_token&trt=UPD&user=$quota_user_name">
% <button type='button' class="btn btn-primary" title='$modify_text' >
% $modify_text
% </button>
% </a>
%};
<td class="user-valign-center"><%= $c->render_to_string(inline => $actionModify) %></td>
</tr>
% }
</tbody>
</table> </table>
<%} %>
</p>
%= hidden_field 'trt' => $quo_datas->{trt} % }
<%= hidden_field 'trt' => $quo_datas->{trt} %>
</div> </div>

View File

@ -1,16 +1,13 @@
<div> <div>
% my $btn = l('SAVE'); % my $btn = l('SAVE');
%= form_for '/quota2' => (method => 'POST') => begin <form action="/smanager/quota2" method="POST">
<p>
<h2>
%=l 'quo_MODIFY_USER_TITLE'
</h2>
</p>
% my $userid = $quo_datas->{user}; <h2><%= l 'quo_MODIFY_USER_TITLE' %></h2>
% my $user = $quo_datas->{userRec};
% my $userid = $quo_datas->{user};
% my $user = $quo_datas->{userRec};
<!-- <!--
for my $user @$userAccounts for my $user @$userAccounts
{ {
@ -20,68 +17,81 @@
} }
} }
--> -->
% my $uid = getpwnam($user->key); % my $uid = getpwnam($user->key);
% unless ($uid) { % unless ($uid) {
% warn(l('COULD_NOT_GET_UID'),$user->key); % warn(l('COULD_NOT_GET_UID'),$user->key);
% next; % next;
% } % }
% my $name = $user->prop("FirstName") . " " . $user->prop("LastName"); % my $name = $user->prop("FirstName") . " " . $user->prop("LastName");
% my $dev = Quota::getqcarg('/home/e-smith/files'); % my $dev = Quota::getqcarg('/home/e-smith/files');
% my ($bc, $bs, $bh, $bt, $ic, $is, $ih, $it) = Quota::query($dev, $uid); % my ($bc, $bs, $bh, $bt, $ic, $is, $ih, $it) = Quota::query($dev, $uid);
<p> <div>
%=l 'quo_USER' <%= l 'quo_USER' %>&nbsp<%= "$name (\"$userid\")" %>
%= "$name (\"$userid\")" &nbsp
%=l 'quo_CURRENTLY_HAS' <%= l 'quo_CURRENTLY_HAS' %>&nbsp<%= $ic %>
%= $ic <%= l 'quo_FILES' %>
%=l 'quo_FILES' &nbsp
%=l 'quo_OCCUPYING' <%= l 'quo_OCCUPYING' %>&nbsp<%= $c->toMB($bc) %>&nbsp<%= l 'quo_MEGABYTES' %>
%= $c->toMB($bc) </div>
%=l 'quo_MEGABYTES' <br>
</p>
<p>
%=l 'quo_INSTRUCTIONS'
</p>
<p> <div>
<span class=""> <%= l 'quo_INSTRUCTIONS' %>
%=l 'quo_USER', class => "" </div>
</span> <br>
<span class="">
%= $name, class => "" <div class="row g-3 align-items-center">
</span> <div class="col-md-2">
</p> <%= l 'quo_USER' %>
</div>
<div class="col-auto">
<%= $name %>
</div>
</div>
<br>
<p>
<span class="">
%=l 'quo_LIMIT_WITH_GRACE', class => ""
</span>
<span class="">
% param 'Soft' => $quo_datas->{softlim} unless param 'Soft'; % param 'Soft' => $quo_datas->{softlim} unless param 'Soft';
%= text_field 'Soft', class => ""
</span>
</p>
<p> <div class="row g-3 align-items-center">
<span class=""> <div class="col-md-2">
%=l 'quo_ABS_LIMIT', class => "" <label for="inputQuotaDesc" class="col-form-label"><%=l 'quo_LIMIT_WITH_GRACE' %></label>
</span> </div>
<span class=""> <div class="col-auto">
<!-- text_field 'Soft' -->
<input type="text" name="Soft" id="inputQuotaDesc" class="form-control" aria-describedby="QuotaDesc" value="<%= $quo_datas->{softlim} %>">
</div>
</div>
<br>
% param 'Hard' => $quo_datas->{hardlim} unless param 'Hard'; % param 'Hard' => $quo_datas->{hardlim} unless param 'Hard';
%= text_field 'Hard', class => ""
</span>
</p>
<p> <div class="row g-3 align-items-center">
<div class="col-md-2">
<label for="inputQuotaABS" class="col-form-label"><%= l 'quo_ABS_LIMIT' %></label>
</div>
<div class="col-auto">
<!-- text_field 'Hard' -->
<input type="text" name="Hard" id="inputQuotaABS" class="form-control" aria-describedby="QuotaABS" value="<%= $quo_datas->{hardlim} %>">
</div>
</div>
<br><br> <br><br>
%= submit_button "$btn", class => ""
</p>
%= hidden_field 'trt' => $quo_datas->{trt} <div class="row g-3 align-items-center">
%= hidden_field 'user' => $quo_datas->{user} <div class="col-md-2">
<button type="submit" class="btn btn-primary"><%= $btn %></button>
% end </div>
</div>
<%= hidden_field 'trt' => $quo_datas->{trt} %>
<%= hidden_field 'user' => $quo_datas->{user} %>
</form>
</div> </div>

View File

@ -5,26 +5,28 @@
<div class="card-body"> <div class="card-body">
% if (config->{debug} == 1) { % if (config->{debug} == 1) {
<p> <div>
%= dumper $c->current_route %= dumper $c->current_route
%= dumper $quo_datas %= dumper $quo_datas
</p> </div>
% } % }
% if ( stash 'error' ) { % if ( stash 'error' ) {
<br><div class=""> <br>
%= $c->render_to_string(inline => stash 'error') <div class="text-danger">
</div> <%= $c->render_to_string(inline => stash 'error') %>
%} </div>
% }
<h1><%= $title%></h1> <h1><%= $title%></h1>
% if ($quo_datas->{trt} eq 'UPD') { % if ($quo_datas->{trt} eq 'UPD') {
%= include 'partials/_quo_upd' <%= include 'partials/_quo_upd' %>
%} else { % } else {
%= include 'partials/_quo_list' <%= include 'partials/_quo_list' %>
%} % }
</div> </div>
%end %end