From a56cf286c4ed5aeb0b42a796407690e9f283e36d Mon Sep 17 00:00:00 2001 From: Brian Read Date: Wed, 8 Oct 2025 06:27:16 +0100 Subject: [PATCH] * Tue Oct 07 2025 Brian Read 11.0.0-7.sme - Apply change from startform to start_form and endform to end_form to CGI panels [SME: 12775-87] --- .../web/functions/userpanel-useraccounts | 28 +++++++++---------- .../web/functions/userpanel-userbackup | 8 +++--- smeserver-userpanels.spec | 8 +++++- 3 files changed, 25 insertions(+), 19 deletions(-) diff --git a/root/etc/e-smith/web/functions/userpanel-useraccounts b/root/etc/e-smith/web/functions/userpanel-useraccounts index 93e79e8..d763281 100644 --- a/root/etc/e-smith/web/functions/userpanel-useraccounts +++ b/root/etc/e-smith/web/functions/userpanel-useraccounts @@ -387,7 +387,7 @@ END_TEXT }#if ulist = 0 }#if accounts >0 - print $q->endform; + print $q->end_form; # print $q->p ($q->hr, $q->font ({size => "-1"}, "www.dungog.net/sme", esmith::cgi::genFooter($q); @@ -522,7 +522,7 @@ END_TEXT esmith::cgi5::genHeaderNonCacheable ($q, \%conf, 'Create a new user account'); - print $q->startform (-method => 'POST', + print $q->start_form (-method => 'POST', -action => $q->url (-absolute => 1)); print $q->table ({border => 0, cellspacing => 0, cellpadding => 4}, @@ -598,9 +598,9 @@ END_TEXT -override => 1, -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")); esmith::cgi::genFooter($q); @@ -954,7 +954,7 @@ sub modifyUser ($) esmith::cgi5::genHeaderNonCacheable ($q, \%conf, 'Modify user account'); 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 $fGroup = $q->param ('fGroup'); @@ -1046,7 +1046,7 @@ sub modifyUser ($) -override => 1, -default => 'performModify'); - print $q->endform; + print $q->end_form; # print $q->p ($q->hr, $q->font ({size => "-1"}, "www.dungog.net/sme")); esmith::cgi::genFooter($q); @@ -1386,7 +1386,7 @@ sub deleteUser ($) esmith::cgi5::genHeaderNonCacheable ($q, \%conf, 'Remove user account'); - print $q->startform + print $q->start_form (-method => 'POST', -action => $q->url (-absolute => 1)); my $acct = $q->param ('acct'); @@ -1416,7 +1416,7 @@ sub deleteUser ($) -default => 'performDelete'); } - print $q->endform; + print $q->end_form; esmith::cgi::genFooter($q); return; } @@ -1560,7 +1560,7 @@ sub passwdUser ($) esmith::cgi5::genHeaderNonCacheable ($q, \%conf, 'Reset password for user account'); - print $q->startform + print $q->start_form (-method => 'POST', -action => $q->url (-absolute => 1)); my $acct = $q->param ('acct'); @@ -1600,7 +1600,7 @@ sub passwdUser ($) -default => 'performPasswd'); } - print $q->endform; + print $q->end_form; esmith::cgi::genFooter($q); return; } @@ -1726,7 +1726,7 @@ sub lockUser ($) esmith::cgi5::genHeaderNonCacheable ($q, \%conf, 'Lock user account verify'); - print $q->startform + print $q->start_form (-method => 'POST', -action => $q->url (-absolute => 1)); my $name = $properties {'FirstName'} . ' ' . $properties {'LastName'}; @@ -1752,7 +1752,7 @@ sub lockUser ($) -override => 1, -default => 'performLock'); - print $q->endform; + print $q->end_form; esmith::cgi::genFooter($q); return; } @@ -1913,7 +1913,7 @@ sub showHelp ($) ($q, \%conf, 'User Account Help'); - print $q->startform (-method => 'POST', + print $q->start_form (-method => 'POST', -action => $q->url (-absolute => 1)); 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 '))); - print $q->endform; + print $q->end_form; # print $q->p ($q->hr, $q->font ({size => "-1"}, "www.dungog.net/sme ", esmith::cgi::genFooter($q); return; diff --git a/root/etc/e-smith/web/functions/userpanel-userbackup b/root/etc/e-smith/web/functions/userpanel-userbackup index 5a804e4..b9077fb 100644 --- a/root/etc/e-smith/web/functions/userpanel-userbackup +++ b/root/etc/e-smith/web/functions/userpanel-userbackup @@ -181,7 +181,7 @@ sub showInitial ($$) my $default_action = 'desktop-backup'; - print $q->startform (-method => 'POST', + print $q->start_form (-method => 'POST', -action => $q->url (-absolute => 1)); print $q->table ({border => 0, cellspacing => 0, cellpadding => 4}); @@ -209,7 +209,7 @@ sub showInitial ($$) -default => 'perform' ); - print $q->endform; + print $q->end_form; # print $q->p ($q->hr, $q->font ({size => "-1"}, "www.dungog.net/sme")); esmith::cgi::genFooter($q); @@ -322,7 +322,7 @@ sub desktopRestore () -override => 1, -default => 'desktop-restore'); - print $q->endform; + print $q->end_form; esmith::cgi::genFooter ($q); } @@ -372,7 +372,7 @@ sub desktopVerify () -default => 'desktop-verify' ); - print $q->endform; + print $q->end_form; esmith::cgi::genFooter ($q); } diff --git a/smeserver-userpanels.spec b/smeserver-userpanels.spec index 0df5ce1..5f03820 100644 --- a/smeserver-userpanels.spec +++ b/smeserver-userpanels.spec @@ -6,7 +6,7 @@ Summary: Panels to let users to change server settings. %define name smeserver-userpanels Name: %{name} %define version 11.0.0 -%define release 5 +%define release 7 Version: %{version} Release: %{release}%{?dist} License: GNU GPL version 2 @@ -26,6 +26,12 @@ Change password,Forward mail, Backup users home directory, Delegate creation of users with restrictions. %changelog +* Tue Oct 07 2025 Brian Read 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 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 11.0.0-5.sme - Add UTF8 and avoid potential DB caching problems [SME: 13209]