smecontribs/smeserver-userpanels
6
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

* Tue Oct 07 2025 Brian Read <brianr@koozali.org> 11.0.0-7.sme

Browse Source 
- Apply change from startform to start_form and endform to end_form to CGI panels [SME: 12775-87]
This commit is contained in:
Brian Read
2025-10-08 06:27:16 +01:00
parent b9a151c128
commit a56cf286c4
3 changed files with 25 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
root/etc/e-smith/web/functions/userpanel-useraccounts
View File

@@ -387,7 +387,7 @@ END_TEXT
}#if ulist = 0 }#if ulist = 0
}#if accounts >0 }#if accounts >0
print $q->endform; print $q->end_form;
# print $q->p ($q->hr, $q->font ({size => "-1"}, "www.dungog.net/sme", # print $q->p ($q->hr, $q->font ({size => "-1"}, "www.dungog.net/sme",
esmith::cgi::genFooter($q); esmith::cgi::genFooter($q);
@@ -522,7 +522,7 @@ END_TEXT
esmith::cgi5::genHeaderNonCacheable esmith::cgi5::genHeaderNonCacheable
($q, \%conf, 'Create a new user account'); ($q, \%conf, 'Create a new user account');
print $q->startform (-method => 'POST', print $q->start_form (-method => 'POST',
-action => $q->url (-absolute => 1)); -action => $q->url (-absolute => 1));
print $q->table ({border => 0, cellspacing => 0, cellpadding => 4}, print $q->table ({border => 0, cellspacing => 0, cellpadding => 4},
@@ -598,9 +598,9 @@ END_TEXT
-override => 1, -override => 1,
-default => 'performCreate'); -default => 'performCreate');
print $q->endform; print $q->end_form;
print $q->endform; print $q->end_form;
# print $q->p ($q->hr, $q->font ({size => "-1"}, "www.dungog.net/sme")); # print $q->p ($q->hr, $q->font ({size => "-1"}, "www.dungog.net/sme"));
esmith::cgi::genFooter($q); esmith::cgi::genFooter($q);
@@ -954,7 +954,7 @@ sub modifyUser ($)
esmith::cgi5::genHeaderNonCacheable ($q, \%conf, 'Modify user account'); esmith::cgi5::genHeaderNonCacheable ($q, \%conf, 'Modify user account');
print print
$q->startform (-method => 'POST', -action => $q->url (-absolute => 1)); $q->start_form (-method => 'POST', -action => $q->url (-absolute => 1));
my $acct = $q->param ('acct'); my $acct = $q->param ('acct');
my $fGroup = $q->param ('fGroup'); my $fGroup = $q->param ('fGroup');
@@ -1046,7 +1046,7 @@ sub modifyUser ($)
-override => 1, -override => 1,
-default => 'performModify'); -default => 'performModify');
print $q->endform; print $q->end_form;
# print $q->p ($q->hr, $q->font ({size => "-1"}, "www.dungog.net/sme")); # print $q->p ($q->hr, $q->font ({size => "-1"}, "www.dungog.net/sme"));
esmith::cgi::genFooter($q); esmith::cgi::genFooter($q);
@@ -1386,7 +1386,7 @@ sub deleteUser ($)
esmith::cgi5::genHeaderNonCacheable ($q, \%conf, 'Remove user account'); esmith::cgi5::genHeaderNonCacheable ($q, \%conf, 'Remove user account');
print $q->startform print $q->start_form
(-method => 'POST', -action => $q->url (-absolute => 1)); (-method => 'POST', -action => $q->url (-absolute => 1));
my $acct = $q->param ('acct'); my $acct = $q->param ('acct');
@@ -1416,7 +1416,7 @@ sub deleteUser ($)
-default => 'performDelete'); -default => 'performDelete');
} }
print $q->endform; print $q->end_form;
esmith::cgi::genFooter($q); esmith::cgi::genFooter($q);
return; return;
} }
@@ -1560,7 +1560,7 @@ sub passwdUser ($)
esmith::cgi5::genHeaderNonCacheable ($q, \%conf, 'Reset password for user account'); esmith::cgi5::genHeaderNonCacheable ($q, \%conf, 'Reset password for user account');
print $q->startform print $q->start_form
(-method => 'POST', -action => $q->url (-absolute => 1)); (-method => 'POST', -action => $q->url (-absolute => 1));
my $acct = $q->param ('acct'); my $acct = $q->param ('acct');
@@ -1600,7 +1600,7 @@ sub passwdUser ($)
-default => 'performPasswd'); -default => 'performPasswd');
} }
print $q->endform; print $q->end_form;
esmith::cgi::genFooter($q); esmith::cgi::genFooter($q);
return; return;
} }
@@ -1726,7 +1726,7 @@ sub lockUser ($)
esmith::cgi5::genHeaderNonCacheable ($q, \%conf, 'Lock user account verify'); esmith::cgi5::genHeaderNonCacheable ($q, \%conf, 'Lock user account verify');
print $q->startform print $q->start_form
(-method => 'POST', -action => $q->url (-absolute => 1)); (-method => 'POST', -action => $q->url (-absolute => 1));
my $name = $properties {'FirstName'} . ' ' . $properties {'LastName'}; my $name = $properties {'FirstName'} . ' ' . $properties {'LastName'};
@@ -1752,7 +1752,7 @@ sub lockUser ($)
-override => 1, -override => 1,
-default => 'performLock'); -default => 'performLock');
print $q->endform; print $q->end_form;
esmith::cgi::genFooter($q); esmith::cgi::genFooter($q);
return; return;
} }
@@ -1913,7 +1913,7 @@ sub showHelp ($)
($q, \%conf, 'User Account Help'); ($q, \%conf, 'User Account Help');
print $q->startform (-method => 'POST', print $q->start_form (-method => 'POST',
-action => $q->url (-absolute => 1)); -action => $q->url (-absolute => 1));
print $q->table ({border => 0, cellspacing => 0, cellpadding => 4}, print $q->table ({border => 0, cellspacing => 0, cellpadding => 4},
@@ -1942,7 +1942,7 @@ Admin may place limits on the numbers of users that may be created
</pre> '))); </pre> ')));
print $q->endform; print $q->end_form;
# print $q->p ($q->hr, $q->font ({size => "-1"}, "www.dungog.net/sme ", # print $q->p ($q->hr, $q->font ({size => "-1"}, "www.dungog.net/sme ",
esmith::cgi::genFooter($q); esmith::cgi::genFooter($q);
return; return;

8
root/etc/e-smith/web/functions/userpanel-userbackup
View File

@@ -181,7 +181,7 @@ sub showInitial ($$)
my $default_action = 'desktop-backup'; my $default_action = 'desktop-backup';
print $q->startform (-method => 'POST', print $q->start_form (-method => 'POST',
-action => $q->url (-absolute => 1)); -action => $q->url (-absolute => 1));
print $q->table ({border => 0, cellspacing => 0, cellpadding => 4}); print $q->table ({border => 0, cellspacing => 0, cellpadding => 4});
@@ -209,7 +209,7 @@ sub showInitial ($$)
-default => 'perform' -default => 'perform'
); );
print $q->endform; print $q->end_form;
# print $q->p ($q->hr, $q->font ({size => "-1"}, "www.dungog.net/sme")); # print $q->p ($q->hr, $q->font ({size => "-1"}, "www.dungog.net/sme"));
esmith::cgi::genFooter($q); esmith::cgi::genFooter($q);
@@ -322,7 +322,7 @@ sub desktopRestore ()
-override => 1, -override => 1,
-default => 'desktop-restore'); -default => 'desktop-restore');
print $q->endform; print $q->end_form;
esmith::cgi::genFooter ($q); esmith::cgi::genFooter ($q);
} }
@@ -372,7 +372,7 @@ sub desktopVerify ()
-default => 'desktop-verify' -default => 'desktop-verify'
); );
print $q->endform; print $q->end_form;
esmith::cgi::genFooter ($q); esmith::cgi::genFooter ($q);
} }

8
smeserver-userpanels.spec
View File

@@ -6,7 +6,7 @@ Summary: Panels to let users to change server settings.
%define name smeserver-userpanels %define name smeserver-userpanels
Name: %{name} Name: %{name}
%define version 11.0.0 %define version 11.0.0
%define release 5 %define release 7
Version: %{version} Version: %{version}
Release: %{release}%{?dist} Release: %{release}%{?dist}
License: GNU GPL version 2 License: GNU GPL version 2
@@ -26,6 +26,12 @@ Change password,Forward mail, Backup users home directory,
Delegate creation of users with restrictions. Delegate creation of users with restrictions.
%changelog %changelog
* Tue Oct 07 2025 Brian Read <brianr@koozali.org> 11.0.0-7.sme
- Apply change from startform to start_form and endform to end_form to CGI panels [SME: 12775-87]
* Tue Oct 07 2025 Brian Read <brianr@koozali.org> 11.0.0-6.sme
- Apply change from startform to start_form and endform to end_form to CGI panels [SME: 12775-87]
* Mon Oct 06 2025 Brian Read <brianr@koozali.org> 11.0.0-5.sme * Mon Oct 06 2025 Brian Read <brianr@koozali.org> 11.0.0-5.sme
- Add UTF8 and avoid potential DB caching problems [SME: 13209] - Add UTF8 and avoid potential DB caching problems [SME: 13209]