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

* Tue Oct 07 2025 Brian Read <brianr@koozali.org> 2.0.4-28.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:43:32 +01:00
parent 13853ba844
commit 8239c3e52b
2 changed files with 16 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
root/etc/e-smith/web/functions/dhcpd
View File

@@ -128,7 +128,7 @@ sub Main_Display ($$){
# Start DHCP client Panel # Start DHCP client Panel
#------------------------------------------------------------ #------------------------------------------------------------
print $q->p (''); print $q->p ('');
print $q->startform (-method => 'POST', print $q->start_form (-method => 'POST',
-action => $q->url (-absolute => 1)); -action => $q->url (-absolute => 1));
print $q->Tr (esmith::cgi::genButtonRow ($q,$q->submit (-name => 'state',-value => $fm->localise('CONNECTED_IP')))); 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, -override => 1,
-default => 'main_save' -default => 'main_save'
),"\n"; ),"\n";
print $q->endform; print $q->end_form;
esmith::cgi::genFooter ($q); esmith::cgi::genFooter ($q);
} }
@@ -409,7 +409,7 @@ sub Del_Lease ($){
esmith::cgi::genHeaderNonCacheable ($q, \%conf, $fm->localise('REMOVE_A_DHCP_LEASE_TITLE')); esmith::cgi::genHeaderNonCacheable ($q, \%conf, $fm->localise('REMOVE_A_DHCP_LEASE_TITLE'));
print $q->h3($fm->localise('REMOVE_A_DHCP_LEASE')); 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 $ip = $q->param ('host');
my $name = $q->param ('name'); my $name = $q->param ('name');
@@ -430,7 +430,7 @@ sub Del_Lease ($){
-override => 1, -override => 1,
-default => 'perform_del_lease'); -default => 'perform_del_lease');
print $q->endform; print $q->end_form;
print $q->p($fm->localise('CLICK_HERE_TO_MAIN_PANEL')); print $q->p($fm->localise('CLICK_HERE_TO_MAIN_PANEL'));
esmith::cgi::genFooter ($q); esmith::cgi::genFooter ($q);
return; return;
@@ -489,7 +489,7 @@ sub Wake_Up ($){
esmith::cgi::genHeaderNonCacheable ($q, \%conf, $fm->localise('WAKING_A_REMOTE_COMPUTER_TITLE')); esmith::cgi::genHeaderNonCacheable ($q, \%conf, $fm->localise('WAKING_A_REMOTE_COMPUTER_TITLE'));
print $q->h3($fm->localise('WAKING_A_REMOTE_COMPUTER')); 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 $mac = uc($q->param ('MAC'));
my $name = uc($q->param ('name')); my $name = uc($q->param ('name'));
@@ -510,7 +510,7 @@ sub Wake_Up ($){
-override => 1, -override => 1,
-default => 'perform_wake_up'); -default => 'perform_wake_up');
print $q->endform; print $q->end_form;
print $q->p($fm->localise('CLICK_HERE_TO_MAIN_PANEL')); print $q->p($fm->localise('CLICK_HERE_TO_MAIN_PANEL'));
esmith::cgi::genFooter ($q); esmith::cgi::genFooter ($q);
return; return;
@@ -617,7 +617,7 @@ sub Message($$){
esmith::cgi::genHeaderNonCacheable ($q, \%conf,$fm->localise('SENDING_A_WINPOPUP')); esmith::cgi::genHeaderNonCacheable ($q, \%conf,$fm->localise('SENDING_A_WINPOPUP'));
print $q->h3($fm->localise('SENDING_A_WINPOPUP_TO') . " @liste_connected."); 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}, print $q->table ({border => 0, cellspacing => 0, cellpadding => 4},
esmith::cgi::genNameValueRow ($q,$fm->localise('YOUR_MESSAGE'), 'message2send', esmith::cgi::genNameValueRow ($q,$fm->localise('YOUR_MESSAGE'), 'message2send',
$fm->localise('WRITE_YOUR_MESSAGE')) ); $fm->localise('WRITE_YOUR_MESSAGE')) );
@@ -629,7 +629,7 @@ sub Message($$){
-default => @liste_connected); -default => @liste_connected);
print $q->hidden (-name => 'message2send', -override => 1, -default => $message2send); print $q->hidden (-name => 'message2send', -override => 1, -default => $message2send);
print $q->hidden (-name => 'state', -override => 1, -default => 'perform_message'); 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')); print $q->p($fm->localise('CLICK_HERE_TO_MAIN_PANEL'));
esmith::cgi::genFooter ($q); esmith::cgi::genFooter ($q);
return; return;
@@ -693,7 +693,7 @@ sub Table_IP ($$) {
# Start DHCP client Panel # Start DHCP client Panel
#------------------------------------------------------------ #------------------------------------------------------------
print $q->p (''); print $q->p ('');
print $q->startform (-method => 'POST', print $q->start_form (-method => 'POST',
-action => $q->url (-absolute => 1)); -action => $q->url (-absolute => 1));
#refresh the list #refresh the list
print esmith::cgi::genButtonRow ($q,$q->submit (-name => 'state',-value => $fm->localise('REFRESH'))); print esmith::cgi::genButtonRow ($q,$q->submit (-name => 'state',-value => $fm->localise('REFRESH')));
@@ -725,7 +725,7 @@ print $q->hr;
-default => 'Save_checkIP' -default => 'Save_checkIP'
),"\n"; ),"\n";
print $q->endform; print $q->end_form;
# Refresh Liste # Refresh Liste
print $q->p($fm->localise('CLICK_HERE_TO_MAIN_PANEL')); 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')); esmith::cgi::genHeaderNonCacheable ($q, \%conf, $fm->localise('REMOVE_DHCP_LEASE_TITLE'));
print $q->h3($fm->localise('REMOVE_DHCP_LEASE_WARNING')); 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->p($fm->localise('CLICK_HERE_TO_MAIN_PANEL'));
print $q->endform; print $q->end_form;
esmith::cgi::genFooter ($q); esmith::cgi::genFooter ($q);
return; return;

5
smeserver-dhcpmanager.spec
View File

@@ -1,6 +1,6 @@
%define name smeserver-dhcpmanager %define name smeserver-dhcpmanager
%define version 2.0.4 %define version 2.0.4
%define release 27 %define release 28
Summary: provide a dhcp panel in the server-manager for The SME Server Summary: provide a dhcp panel in the server-manager for The SME Server
Name: %{name} 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// Implementation of some feature arround dhcp clients like : wol, cleaning dhcpd.leases, Scan of your network etc//
%changelog %changelog
* Tue Oct 07 2025 Brian Read <brianr@koozali.org> 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 <brianr@koozali.org> 2.0.4-27.sme * Sun Oct 05 2025 Brian Read <brianr@koozali.org> 2.0.4-27.sme
- Add UTF8 and avoid potential DB caching problems [SME: 13209] - Add UTF8 and avoid potential DB caching problems [SME: 13209]