From 8239c3e52b2c0bd89f6f956d3e8ea13104a14589 Mon Sep 17 00:00:00 2001 From: Brian Read Date: Wed, 8 Oct 2025 06:43:32 +0100 Subject: [PATCH] * Tue Oct 07 2025 Brian Read 2.0.4-28.sme - Apply change from startform to start_form and endform to end_form to CGI panels [SME: 12775-87] --- root/etc/e-smith/web/functions/dhcpd | 24 ++++++++++++------------ smeserver-dhcpmanager.spec | 5 ++++- 2 files changed, 16 insertions(+), 13 deletions(-) diff --git a/root/etc/e-smith/web/functions/dhcpd b/root/etc/e-smith/web/functions/dhcpd index 5c8a076..005fc46 100644 --- a/root/etc/e-smith/web/functions/dhcpd +++ b/root/etc/e-smith/web/functions/dhcpd @@ -128,7 +128,7 @@ sub Main_Display ($$){ # Start DHCP client Panel #------------------------------------------------------------ print $q->p (''); - print $q->startform (-method => 'POST', + print $q->start_form (-method => 'POST', -action => $q->url (-absolute => 1)); print $q->Tr (esmith::cgi::genButtonRow ($q,$q->submit (-name => 'state',-value => $fm->localise('CONNECTED_IP')))); @@ -252,7 +252,7 @@ print $q->Tr (esmith::cgi::genButtonRow ($q,$q->submit (-name => 'state',-value -override => 1, -default => 'main_save' ),"\n"; - print $q->endform; + print $q->end_form; esmith::cgi::genFooter ($q); } @@ -409,7 +409,7 @@ sub Del_Lease ($){ esmith::cgi::genHeaderNonCacheable ($q, \%conf, $fm->localise('REMOVE_A_DHCP_LEASE_TITLE')); print $q->h3($fm->localise('REMOVE_A_DHCP_LEASE')); - print $q->startform (-method => 'POST', -action => $q->url (-absolute => 1)); + print $q->start_form (-method => 'POST', -action => $q->url (-absolute => 1)); my $ip = $q->param ('host'); my $name = $q->param ('name'); @@ -430,7 +430,7 @@ sub Del_Lease ($){ -override => 1, -default => 'perform_del_lease'); - print $q->endform; + print $q->end_form; print $q->p($fm->localise('CLICK_HERE_TO_MAIN_PANEL')); esmith::cgi::genFooter ($q); return; @@ -489,7 +489,7 @@ sub Wake_Up ($){ esmith::cgi::genHeaderNonCacheable ($q, \%conf, $fm->localise('WAKING_A_REMOTE_COMPUTER_TITLE')); print $q->h3($fm->localise('WAKING_A_REMOTE_COMPUTER')); - print $q->startform (-method => 'POST', -action => $q->url (-absolute => 1)); + print $q->start_form (-method => 'POST', -action => $q->url (-absolute => 1)); my $mac = uc($q->param ('MAC')); my $name = uc($q->param ('name')); @@ -510,7 +510,7 @@ sub Wake_Up ($){ -override => 1, -default => 'perform_wake_up'); - print $q->endform; + print $q->end_form; print $q->p($fm->localise('CLICK_HERE_TO_MAIN_PANEL')); esmith::cgi::genFooter ($q); return; @@ -617,7 +617,7 @@ sub Message($$){ esmith::cgi::genHeaderNonCacheable ($q, \%conf,$fm->localise('SENDING_A_WINPOPUP')); print $q->h3($fm->localise('SENDING_A_WINPOPUP_TO') . " @liste_connected."); - print $q->startform (-method => 'POST', -action => $q->url (-absolute => 1)); + print $q->start_form (-method => 'POST', -action => $q->url (-absolute => 1)); print $q->table ({border => 0, cellspacing => 0, cellpadding => 4}, esmith::cgi::genNameValueRow ($q,$fm->localise('YOUR_MESSAGE'), 'message2send', $fm->localise('WRITE_YOUR_MESSAGE')) ); @@ -629,7 +629,7 @@ sub Message($$){ -default => @liste_connected); print $q->hidden (-name => 'message2send', -override => 1, -default => $message2send); print $q->hidden (-name => 'state', -override => 1, -default => 'perform_message'); - print $q->endform; + print $q->end_form; print $q->p($fm->localise('CLICK_HERE_TO_MAIN_PANEL')); esmith::cgi::genFooter ($q); return; @@ -693,7 +693,7 @@ sub Table_IP ($$) { # Start DHCP client Panel #------------------------------------------------------------ print $q->p (''); - print $q->startform (-method => 'POST', + print $q->start_form (-method => 'POST', -action => $q->url (-absolute => 1)); #refresh the list print esmith::cgi::genButtonRow ($q,$q->submit (-name => 'state',-value => $fm->localise('REFRESH'))); @@ -725,7 +725,7 @@ print $q->hr; -default => 'Save_checkIP' ),"\n"; - print $q->endform; + print $q->end_form; # Refresh Liste print $q->p($fm->localise('CLICK_HERE_TO_MAIN_PANEL')); @@ -852,7 +852,7 @@ sub Del_all_Lease ($){ esmith::cgi::genHeaderNonCacheable ($q, \%conf, $fm->localise('REMOVE_DHCP_LEASE_TITLE')); print $q->h3($fm->localise('REMOVE_DHCP_LEASE_WARNING')); - print $q->startform (-method => 'POST', -action => $q->url (-absolute => 1)); + print $q->start_form (-method => 'POST', -action => $q->url (-absolute => 1)); @@ -865,7 +865,7 @@ sub Del_all_Lease ($){ print $q->p($fm->localise('CLICK_HERE_TO_MAIN_PANEL')); - print $q->endform; + print $q->end_form; esmith::cgi::genFooter ($q); return; diff --git a/smeserver-dhcpmanager.spec b/smeserver-dhcpmanager.spec index 9888610..c931adb 100644 --- a/smeserver-dhcpmanager.spec +++ b/smeserver-dhcpmanager.spec @@ -1,6 +1,6 @@ %define name smeserver-dhcpmanager %define version 2.0.4 -%define release 27 +%define release 28 Summary: provide a dhcp panel in the server-manager for The SME Server Name: %{name} @@ -25,6 +25,9 @@ AutoReqProv: no Implementation of some feature arround dhcp clients like : wol, cleaning dhcpd.leases, Scan of your network etc// %changelog +* Tue Oct 07 2025 Brian Read 2.0.4-28.sme +- Apply change from startform to start_form and endform to end_form to CGI panels [SME: 12775-87] + * Sun Oct 05 2025 Brian Read 2.0.4-27.sme - Add UTF8 and avoid potential DB caching problems [SME: 13209]