Server IP : 195.201.23.43 / Your IP : 3.15.0.42 Web Server : Apache System : Linux webserver2.vercom.be 5.4.0-192-generic #212-Ubuntu SMP Fri Jul 5 09:47:39 UTC 2024 x86_64 User : kdecoratie ( 1041) PHP Version : 7.1.33-63+ubuntu20.04.1+deb.sury.org+1 Disable Function : pcntl_alarm,pcntl_fork,pcntl_waitpid,pcntl_wait,pcntl_wifexited,pcntl_wifstopped,pcntl_wifsignaled,pcntl_wifcontinued,pcntl_wexitstatus,pcntl_wtermsig,pcntl_wstopsig,pcntl_signal,pcntl_signal_get_handler,pcntl_signal_dispatch,pcntl_get_last_error,pcntl_strerror,pcntl_sigprocmask,pcntl_sigwaitinfo,pcntl_sigtimedwait,pcntl_exec,pcntl_getpriority,pcntl_setpriority,pcntl_async_signals, MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : OFF | Sudo : ON | Pkexec : ON Directory : /usr/share/webmin/squid/ |
Upload File : |
require 'squid-lib.pl'; @accopts = ('portsnets', 'othercaches', 'musage', 'logging', 'copts', 'hprogs', 'actrl', 'admopts', 'proxyauth', 'miscopt', 'cms', 'rebuild', 'calamaris', 'delay', 'headeracc', 'refresh', 'cachemgr', 'authparam', 'iptables', 'manual'); # acl_security_form(&options) # Output HTML for editing security options for the squid module sub acl_security_form { print "<tr> <td valign=top><b>$text{'acl_sections'}</b></td>\n"; print "<td colspan=3><select name=sections multiple size=6>\n"; foreach $s (@accopts) { printf "<option value=%s %s>%s</option>\n", $s, $_[0]->{$s} ? 'selected' : '', $text{"index_${s}"}; } print "</select></td> </tr>\n"; print "<tr> <td><b>$text{'acl_root'}</b></td>\n"; printf "<td colspan=3><input name=root size=40 value='%s'> %s</td> </tr>\n", $_[0]->{'root'}, &file_chooser_button("root", 1); print "<tr> <td><b>$text{'acl_start'}</b></td>\n"; printf "<td><input type=radio name=start value=1 %s> %s\n", $_[0]->{'start'} ? 'checked' : '', $text{'yes'}; printf "<input type=radio name=start value=0 %s> %s</td> </tr>\n", $_[0]->{'start'} ? '' : 'checked', $text{'no'}; print "<tr> <td><b>$text{'acl_restart'}</b></td>\n"; printf "<td><input type=radio name=restart value=1 %s> %s\n", $_[0]->{'restart'} ? 'checked' : '', $text{'yes'}; printf "<input type=radio name=restart value=0 %s> %s</td> </tr>\n", $_[0]->{'restart'} ? '' : 'checked', $text{'no'}; } # acl_security_save(&options) # Parse the form for security options for the squid module sub acl_security_save { $_[0]->{'root'} = $in{'root'}; map { $sections{$_} = 1 } split(/\0/, $in{'sections'}); foreach $s (@accopts) { $_[0]->{$s} = $sections{$s}; } $_[0]->{'start'} = $in{'start'}; $_[0]->{'restart'} = $in{'restart'}; }Private