https://bugs.koozali.org/show_bug.cgi?id=12782

--- Comment #2 from bunkobugsy <[email protected]> ---
--- dhcpd       2025-09-27 17:57:41.000000000 +0300
+++ dhcpd.new   2024-11-14 15:36:00.464085809 +0200
@@ -128,7 +128,7 @@
     # 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 @@
             -override => 1,
             -default => 'main_save'
         ),"\n";
-    print $q->endform;
+    print $q->end_form;
     esmith::cgi::genFooter ($q);

 }
@@ -409,7 +409,7 @@
     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 @@
                       -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 @@
     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 @@
                       -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 @@

     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 @@
                       -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 @@
     # 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 @@
             -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 @@
     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 @@
     print $q->p($fm->localise('CLICK_HERE_TO_MAIN_PANEL'));


-    print $q->endform;
+    print $q->end_form;
     esmith::cgi::genFooter ($q);
     return;

-- 
You are receiving this mail because:
You are on the CC list for the bug.
_______________________________________________
Mail for each SME Contribs bug report
To unsubscribe, e-mail [email protected]
Searchable archive at https://lists.contribs.org/mailman/public/contribteam/

Reply via email to